Status
Not open for further replies.

#### rccwill

##### New Member
I recently took over a company spread sheet from a former employee, who password protected a sheet in a work book. The bad thing is that no one knows the password to change any of the cells. Is there a way to "crack" the password on the sheet?

### Excel Facts

Using Function Arguments with nested formulas
If writing INDEX in Func. Arguments, type MATCH(. Use the mouse to click inside MATCH in the formula bar. Dialog switches to MATCH.

#### santeria

##### Well-known Member
Yes, but the optimal way will have a cost factor.
That is, you pay per file, or for some software, which-ever is cheaper I guess.

go to straxx.com

#### Juan Pablo González

##### MrExcel MVP

Do a search here for 'crack sheet password'

#### lenze

##### Legend

If you are only looking at a password protected sheet, try this code

'by Bob McCormick on NG: microsoft.public.excel.misc
'on 22 May 2001.

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
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
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

If you have a protected workbook, try this

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
ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _
& Chr(i4) & Chr(i5) & Chr(i6) & Chr
If ActiveWorkbook.ProtectStructure = 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
Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

#### nutritiouspig

##### Well-known Member
Is there a way to edit that code to work on password protected addins? .XLAs

Or does someone know of another way to defeat password protection on add ins?

#### Zack Barresse

##### MrExcel MVP
i don't know about add-in *******s but they do have decompilers to put them into plain excel formats. don't know if that's going to help you though.

#### Mark O'Brien

##### MrExcel MVP
simfonik said:
Is there a way to edit that code to work on password protected addins? .XLAs

Or does someone know of another way to defeat password protection on add ins?

Oh you'd better run and hide.

You're going to suffer the ire of many a disgruntled add-in programmer with that sort of question. You'll probably not get a better answer than the one firefytr gave you.

Status
Not open for further replies.

Replies
2
Views
47
Replies
3
Views
321
Replies
0
Views
58
Replies
1
Views
154
Replies
0
Views
150

1,129,347
Messages
5,635,764
Members
416,879
Latest member
Excel_Newbie4980

### 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.

### Which adblocker are you using?

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

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