passwords

ilspensoroso

Board Regular
Joined
May 8, 2002
Messages
52
Recently, some kind person on this site, gave the vba code for opening worksheets having forgotten the password. Is there a code for workbooks. I saved a lot of workbooks when first I started experimenting with vba but I have forgotten the Passwords.

Greatful as always for any help.
 

Excel Facts

How to find 2nd largest value in a column?
MAX finds the largest value. =LARGE(A:A,2) will find the second largest. =SMALL(A:A,3) will find the third smallest
Nope. VBA isn't going to do it. You're going to have to use a password ******* type thingy. There's a couple recommended on this site at:

http://www.mrexcel.com/#pwd

Additionally, I'd use the "search" link on this site because I recall someone posting some more useful information about possbily free password cracking services.
 
Upvote 0
Well actually you can do it via VBA
You just need a VAST amount of time and a
Large Dictionary, using a Brute force method.
 
Upvote 0
On 2002-05-13 15:16, Ivan F Moala wrote:
Well actually you can do it via VBA
You just need a VAST amount of time and a
Large Dictionary, using a Brute force method.

Your code would be screwed by "kajsdfkljhaslkwio234@#$w434kh", then, huh? :wink: )
 
Upvote 0
On 2002-05-14 19:37, Mark O'Brien wrote:
On 2002-05-13 15:16, Ivan F Moala wrote:
Well actually you can do it via VBA
You just need a VAST amount of time and a
Large Dictionary, using a Brute force method.

Your code would be screwed by "kajsdfkljhaslkwio234@#$w434kh", then, huh? :wink: )

Yup..thats exactly right! :wink:

Using Brute force No good, But typical users put in more meaninful passwords even though they may have been told Not to. Book protection is a little more complicated then Sheet code, the
hash generation algorithm is the same as
with sheet protection, but the whole
document is encrypted. However the password
that is entered which is used to encrypt the
document is a fixed key stored in the MS
Excel program code ? Is it any wonder that
there is an abundance of excel cracks avail.
This key is generated from the Password "VelvetSweatshop".
If you protect a MS Excel workbook with this
password, no password is required to open
the document!!!
 
Upvote 0
If you can open it as read only this code will remove the pasword on the file :

Sub workbook_breakIt()

Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer, 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
Workbook.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
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
End Sub

Please don't ask how it works because I don't have a clue - someone sent it to me ages ago ( appologies if you're that someone - I've forgotten who you are ).
 
Upvote 0

Forum statistics

Threads
1,213,558
Messages
6,114,297
Members
448,564
Latest member
ED38

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top