Protected spreadsheets
Posted by Scott Thomas on February 04, 2002 8:14 AM
I have a spreadsheet that is linked to several other spreadsheets that I cannot make changes to the formulas because it is protected with a password. The person who created this is no where to be found. How can I get to this password or around it.
Help!
Posted by Paul on February 04, 2002 9:10 AM
If the sheet is locked this code that was posted on this board will work:
Sub PasswordBreaker()
'by Bob McCormick on NG microsoft.public.excel.misc on 22 May 2001.
'Breaks worksheet password protection.
'Note This code will not tell you what the password was (except by accident).
'What it does is exploit the poor encryption algorithm that is used for sheet 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)
Application.StatusBar = 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 useable 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)
Application.StatusBar = False
Exit Sub
End If
Next n
Next i6
Next i5
Next i4
Next i3
Next i2
Next i1
Next m
Next l
Next k
Next j
Next i
Application.StatusBar = False
End Sub
Posted by JOJO on February 04, 2002 10:17 AM
SENT YOUR FILE TO ME AND I'LL CRACK THE PASSWORD..EVEN THE VBA PASSWORD TOO..ALL 4 FREE..ENJOY AND CHEERS
boymoi@yahoo.com
Posted by faster on February 04, 2002 3:22 PM
Anyone?
This is more efficient than my version. I would like
to see an Excel based version to open VBA project.
Anyone?
Posted by Jack in the UK on February 04, 2002 3:59 PM
Can codes crack locked VBA modules,,if so care to post ? [NT]
Posted by faster on February 05, 2002 7:59 AM
I cannot . . . yet. Anyone else?
