I’m back from my holiday in the land of no internet and cellphone coverage.
The up side was ( or one of the up sides ) I had time finally post this piece of code to unprotect a sheet with a forgotten password.
The nice thing is you can protect the sheet with the found password and the old password still works …. lol
Sub PasswordBreaker() Dim i0 As Integer, i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer, i7 As Integer Dim i8 As Integer, i9 As Integer, m1 As Integer, m2 As Integer Dim sPassword As String On Error Resume Next For i0 = 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 i7 = 65 To 66 For i8 = 65 To 66: For i9 = 65 To 66: For m1 = 65 To 66: For m2 = 32 To 126 sPassword = "" sPassword = sPassword & Chr(i0) & Chr(i1) & Chr(i2) & Chr(i3) & Chr(i4) & Chr(i5) sPassword = sPassword & Chr(i6) & Chr(i7) & Chr(i8) & Chr(i9) & Chr(m1) & Chr(m2) ActiveSheet.Unprotect sPassword Application.StatusBar = False If ActiveSheet.ProtectContents = False Then MsgBox "Password used to unprotect this sheet is: " & sPassword Exit Sub End If Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next End Sub