Copying Protected Worksheets

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have an excel spreadsheet that was password protected by an unknown user. Its an excellent tool and I'd like to adapt it for personal use. I've tried copying it to a blank spreadsheet and also "saving it as" another name in another folder. Neither method will allow me to make adjustments. There are numerous calculations I'd spend forever trying to create from scratch. Is there a way to do what I want?
 
Or try this:


Code:
--------------------

Sub PasswordBreaker()

' Breaks worksheet password protection.

Dim intPress As Integer

intPress = MsgBox("Preparing to disable your password...", _
vbQuestion + vbOKCancel, "Password Breaker")

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 "OK, your password has been disabled. Try not to forget it again...", 0, "Password Breaker"

' 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

--------------------
 
Back
Top