Unlock Excel spreadsheet with VBA code

Sub PasswordBreaker()
    'Breaks worksheet password protection.
 
    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

Comments

Post a Comment

Your comment or feedback help me to write more blogs. Please add your comments.

Popular posts from this blog

How to Stop Excel from giving a number in scientific notation

If you ever enter a very large number into a cell, you'll notice that Microsoft Excel displays it in scientific notation. For example, when you enter the number 1231231231234 in a cell, Excels displays 1.23123E+12. No matter how large you make the cell width, Excel still displays a number larger than 12 characters in scientific notation. To display the number in a format other than scientific notation, you need to reformat the cell(s). Here's how: We have two methods to get rid of this issue. Method 1 Concate the scientific notation with a single quote('), you will get the proper number. 1.11E+19 '11111111111111100000 But we have a issue still exists if it cross 20, here is an example. 1.11E+20 '1.11111111111111E+20 Disadvantage: So you cannot use method1 if it cross 20. Method 2 Step1:  Select the scientific notation , Go to format cell, select Text Step2:  Select the scientific notat...
Read more

The 'Microsoft.Jet.OLEDB.4.0' provider is not registered on the local machine

This error bugged me for a whole day, I google a lotz and read many articles, but no use i was not able to fix this issue. I am using Windows 7 64bit O/S with 32bit Ms Office, i uninstalled Office completely and downloaded AccessDatabaseEngine_X64 and installed and run my application it worked smoothly. Then again i uninstalled microsoft access database engine and tried, i was getting that error message. So i concluded that i have to use Access database engine x 64 which was not installed during my ms office installation. you can download the same from the below URL. 64bit http://download.microsoft.com/download/f/d/8/fd8c20d8-e38a-48b6-8691-542403b91da1/AccessDatabaseEngine.exe 32bit http://download.microsoft.com/download/2/4/3/24375141-E08D-4803-AB0E-10F2E3A07AAA/AccessDatabaseEngine.exe But this did not resolved my problem, so i relayed on third party component(Infragistics).
Read more

System.IO.IsolatedStorage.IsolatedStorageException: Unable to create the store directory

Error Supporting Info System.Web.HttpUnhandledException (0x80004005): Exception of type 'System.Web.HttpUnhandledException' was thrown. ---> System.IO.IsolatedStorage.IsolatedStorageException: Unable to create the store directory. (Exception from HRESULT: 0x80131468) at System.IO.IsolatedStorage.IsolatedStorageFile.GetRootDir(IsolatedStorageScope scope, StringHandleOnStack retRootDir) at System.IO.IsolatedStorage.IsolatedStorageFile.InitGlobalsNonRoamingUser(IsolatedStorageScope scope) at System.IO.IsolatedStorage.IsolatedStorageFile.GetRootDir(IsolatedStorageScope scope) at System.IO.IsolatedStorage.IsolatedStorageFile.GetGlobalFileIOPerm(IsolatedStorageScope scope) at System.IO.IsolatedStorage.IsolatedStorageFile.Init(IsolatedStorageScope scope) at System.IO.IsolatedStorage.IsolatedStorageFile.GetStore(IsolatedStorageScope scope, Type domainEvidenceType, Type assemblyEvidenceType) at MS.Internal.IO.Packaging.PackagingUtilities.ReliableIsolatedStorageFileFolder.G...
Read more