Hello,
I am currently working to update some excel files that had
password protection on each worksheet from a former employee. I have
obtained some generic code to unprotect the file, however, I cannot get
it to perform on every worksheet in my workbook. I have many files to
do and each file has many worksheets. Can anyone please help me make
this code loop through each worksheet? Thanks for your time,
Sub PasswordBreaker()
Dim WS_Count As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
Dim B As Integer
Dim ws As Worksheet
For B = 1 To WS_Count
Set ws = ActiveWorkbook.Worksheets(B)
ws.Activate
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)
Next B
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub