let me know how to use the same to break existing password protected sheet.
On 24 March 2011 15:35, NOORAIN ANSARI <noorain.ans...@gmail.com> wrote: > Dear Experts., > > Please find & use below VBA code to break password in EXCEL > > 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 > > -- > > ---------------------------------------------------------------------------------- > 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