How to Unlock a Microsoft Excel Spreadsheet

Have you ever received a Microsoft Excel file from a colleague or client, only to find that it is password protected and that the password is nowhere to be found?

There is a way around it…. And it is VERY easy.

Watch the video at the top of this page to see how it is done!

Here is the code shown in the video – simply copy and paste into your file

Sub PasswordBreaker()
‘Breaks worksheet 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)
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(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

 

PA Pages

PA Pages is all about YOU! We know that the role of the Personal Assistant or Executive Assistant along with other various Office Professional roles within the Australian workforce has changed substantially over recent times. Today many of these roles hold a large amount of influence, decision-making and require us to be a Jill (or Jack) of all trades. Our mission is to provide you with the ultimate online resource where Office Professionals like you can be inspired and empowered to be the best leaders, problems solvers and support person in the office. We aim to provide you with everything you need through our online community whether you have a question about the workplace or your career, need to organise a team building activity, send a gift, book a chauffeur driven car, or want to know how to do something you will find it all here on PA Pages. Personal Assistants, Executive PA, Virtual Assistants, Secretaries, Receptionists and more!

0 Comments

No Comments Yet!

You can be first to comment this post!