Showing posts with label how to crack sheet password. Show all posts
Showing posts with label how to crack sheet password. Show all posts

Friday, 16 March 2012



How to crack the Sheet Protection password?  (Excel 2007 and Above version: ) -VBA method :


        Folks,  Interested to know how to crack the sheet protection password. Here is the simple solution.....


Steps:

      1. Open the Excel workbook which you want to break the sheet password.
      2. Press Alt + F11
      3. Select insert-> Module
      4. And then paste the below code in the module


Public Sub OverrideSheetprot()
Dim intPress As Integer,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
Dim wbsh, tmstrt, attmpt

tmstrt = Timer
attmpt = 0

On Error Resume Next

Set wbsh = ActiveWorkbook.ActiveSheet

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

attmpt = attmpt + 1
wbsh.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)
DoEvents
If wbsh.ProtectContents = False Then
MsgBox "Match found : " & Chr(i) & Chr(j) & Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) & vbCrLf & "Sheet is now un protected."
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub


And then just press F5 key!! 

Thats it !!


Thanks,
Raegle