MrExcel Publishing
Your One Stop for Excel Tips & Solutions

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?