Hi
I have a password protected sheet in a Excel 2013 workbook (that someone has manged to work out the original password and change) that the following script does not work in:
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
Any assistance would be appreciated, because the spreadsheet is linked to others as a source of data.
Regards, Gary
IF you upload the file, i may help you to unprotect the sheet.
Hi
Please find the attached spreadsheet.
The Worksheet in particular that I cannot access is "Operation WWW"
GaryTibble said
HiPlease find the attached spreadsheet.
The Worksheet in particular that I cannot access is "Operation WWW"
Hi,
Please refer to attched file, the sheet named "Operation WWW" was unprotected.
Youd code is OK, one trick is to save your workbook to 97-2003 version, then run the macro.
hope it helps.
Clark
Hi Clark
That is really strange because the file I am trying to use definitely shows that sheet as password protected.
I will use the file you have returned and thanks for the file save tip.
Thanks very much, Gary