Dear Noorain,
Working Thank u So much...
*Best Regards,*
*Venkat*
On Tue, Jun 28, 2011 at 12:33 PM, NOORAIN ANSARI
<noorain.ans...@gmail.com>wrote:
> Dear Venkat.,
>
> Please find & use below VBA code to Unprotect sheet in EXCEL 2007
>
> Procedure : Press alt+F11
> Insert-Module then Paste below code
> Press-F5 to run
>
>
>
> 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
>
>
> --
> Thanks & regards,
> Noorain Ansari
>
>
>
> On Tue, Jun 28, 2011 at 11:07 AM, Venkatesan c <venkat1....@gmail.com>wrote:
>
>> Dear All,
>>
>> I want any VBA code or some tool to Unprotect Sheet in Excel 2007
>>
>> I forgot the password..
>>
>>
>> *Best Regards,*
>> *Venkat*
>> *
>> *
>> *
>> *
>>
>>
>> --
>>
>> ----------------------------------------------------------------------------------
>> Some important links for excel users:
>> 1. Follow us on TWITTER for tips tricks and links :
>> http://twitter.com/exceldailytip
>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>> 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
>>
>> <><><><><><><><><><><><><><><><><><><><><><>
>> Like our page on facebook , Just follow below link
>> http://www.facebook.com/discussexcel
>>
>
>
>
--
*
*
*
*
*
*
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
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
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
