Hi Surya, I too get some files for which I do not have a password. After Alt+F11, I can neither open a new module or place to write anywhere.. how shall I go about?
regards, Sastry 2009/5/19 Surya - Chantigadu <suryaprasad...@gmail.com> > Use the below code in VB ..open an excel sheet press Ctrl +F11 and insert a > module and paste the code below: > > 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) > Exit Sub > End If > Next: Next: Next: Next: Next: Next > Next: Next: Next: Next: Next: Next > End Sub > and run it - to run press F5 then the password will be breaked but this > will be applicable to 2003 version only.. > > Cheers > Surya > > On Tue, May 19, 2009 at 3:05 PM, Dhartikumar Sahu > <dhartiku...@gmail.com>wrote: > >> hi group >> >> can u suggest me how to remove open password in excel >> >> Thanks >> Dhartikumar >> >> >> > > > > --~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- Some important links for excel users: 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at http://www.excelitems.com 2. Excel tutorials at http://www.excel-macros.blogspot.com 3. Learn VBA Macros at http://www.vbamacros.blogspot.com 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com If you find any spam message in the group, please send an email to: Ayush Jain @ jainayus...@gmail.com or Ashish Jain @ 26may.1...@gmail.com ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---
