Thanks You Guru
On Mon, Mar 15, 2010 at 12:47 PM, Vikas Chouhan <vikask...@gmail.com> wrote:
> in excel sheet (password protect) open and press alt+f11 and paste code
> .............
>
> good luck
>
> On Mon, Mar 15, 2010 at 10:21 AM, Nandkumar kakvipure <
> nandkumar.hindust...@gmail.com> wrote:
>
>> Hi Gurus,
>> How to use please tell me explain
>>
>> Thanks in Advance
>> Nandkumar
>>
>> On Mon, Mar 15, 2010 at 10:05 AM, santosh bahuguna <
>> santoshbahug...@gmail.com> wrote:
>>
>>> Below is the code to unprotect all the password protected sheet were
>>> you are not able to make any changes you can easyly break the sheet
>>> password
>>>
>>> Crack Sheet Protection Password
>>>
>>> Sub PasswordBreaker()
>>>
>>>
>>> Dim i As Integer, j As Integer, k As Integer
>>> Dim l As Integer, m As Integer, n As Integer
>>> Dim i1 As Integer, i2 As Integer, i3 As Integer
>>> Dim i4 As Integer, i5 As Integer, i6 As Integer
>>> On Error Resume Next
>>> For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
>>> For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
>>> For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
>>> For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
>>>
>>>
>>> ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
>>> Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
>>> Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
>>> If ActiveSheet.ProtectContents = False Then
>>> MsgBox "One usable password is " & Chr(i) & Chr(j) & _
>>> Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
>>> Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
>>> ActiveWorkbook.Sheets(1).Select
>>> Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
>>> Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
>>> Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
>>> Exit Sub
>>> End If
>>> Next: Next: Next: Next: Next: Next
>>> Next: Next: Next: Next: Next: Next
>>>
>>>
>>> End Sub
>>>
>>> ENJOY
>>>
>>> --
>>>
>>> ----------------------------------------------------------------------------------
>>> Some important links for excel users:
>>> 1. Follow us on TWITTER for tips tricks and links :
>>> http://twitter.com/exceldailytip
>>> 2. Join our Facebook Group @
>>> http://www.facebook.com/group.php?gid=287779555678
>>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>>
>>> To post to this group, send email to excel-macros@googlegroups.com
>>>
>>> <><><><><><><><><><><><><><><><><><><><><><>
>>> HELP US GROW !!
>>>
>>> We reach over 6,800 subscribers worldwide and receive many nice notes
>>> about the learning and support from the group.Let friends and co-workers
>>> know they can subscribe to group at
>>> http://groups.google.com/group/excel-macros/subscribe
>>>
>>
>> --
>>
>> ----------------------------------------------------------------------------------
>> Some important links for excel users:
>> 1. Follow us on TWITTER for tips tricks and links :
>> http://twitter.com/exceldailytip
>> 2. Join our Facebook Group @
>> http://www.facebook.com/group.php?gid=287779555678
>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>
>> To post to this group, send email to excel-macros@googlegroups.com
>>
>> <><><><><><><><><><><><><><><><><><><><><><>
>> HELP US GROW !!
>>
>> We reach over 6,800 subscribers worldwide and receive many nice notes
>> about the learning and support from the group.Let friends and co-workers
>> know they can subscribe to group at
>> http://groups.google.com/group/excel-macros/subscribe
>>
>
>
>
> --
> One Team One Dream One Goal
>
> Warm Regards,
> Vikas Chauhan
> E-Mail :- vikask...@gmail.com,vikask...@rediffmail.com,
> 9911868518,
> "We can't Spell S_ccess without U"
>
> Life is Very beautiful !!!
> ¨`•.•´¨) Always
> `•.¸(¨`•.•´¨) Keep
> (¨`•.•´¨)¸.•´ Smiling!
> `•.¸.•´.
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our Facebook Group @
> http://www.facebook.com/group.php?gid=287779555678
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> HELP US GROW !!
>
> We reach over 6,800 subscribers worldwide and receive many nice notes about
> the learning and support from the group.Let friends and co-workers know they
> can subscribe to group at
> http://groups.google.com/group/excel-macros/subscribe
>
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
