[TUT]How to Remove Protected Excel Sheet Password

[adema69]

ng marami ts! malaking tulong to.

 

[ortiej]

Kung repost na po to paki delete na lang po.

Follow these Steps Carefully.

Note: Applicable to any version of MS Office. What I am using in this demonstration is MS Office 2010.

1. Open the Password Protected Excel Sheet.
2. Press Alt+F11. A MS Visual Basic Interface will popup.
3. Do as what the image shows

View attachment 388291​

4. Paste this code:

Sub PasswordBreaker()
    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

and will look like this

View attachment 388292​

5. Close the MS Visual Basic Interface and return to the protected excel sheet.

6. Go to view>macros (it may differ with other version of MS Office).Follow the steps in the image as shown.

View attachment 388293​

7. Then a window will popup and will look like this.

View attachment 388294​

8. After running the code please wait until it finishes its routine. It may take a minute or two depending on the speed of your system.

9. If you see the messagebox as shown below then you're successful.

View attachment 388295​

10. Then "Save As" it in a different filename.

I hope you'll find this tutorial helpful.

Thank you Sir!

 

[ghrey05]

Uy salamat po dito. bookmarked

 

[stefen489]

boss panu kung pati vba linagyan ng password?

 

[Gatorade]

Tnx for future reference

 

[kadz_amr]

boss panu kung pati vba linagyan ng password?

Merong ding procedure para matanggal ang vba PW protection ng Excel File. Popost ko lang soon.

 

[ortiej]

Kung repost na po to paki delete na lang po.

Follow these Steps Carefully.

Note: Applicable to any version of MS Office. What I am using in this demonstration is MS Office 2010.

1. Open the Password Protected Excel Sheet.
2. Press Alt+F11. A MS Visual Basic Interface will popup.
3. Do as what the image shows

View attachment 388291​

4. Paste this code:

Sub PasswordBreaker()
    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

and will look like this

View attachment 388292​

5. Close the MS Visual Basic Interface and return to the protected excel sheet.

6. Go to view>macros (it may differ with other version of MS Office).Follow the steps in the image as shown.

View attachment 388293​

7. Then a window will popup and will look like this.

View attachment 388294​

8. After running the code please wait until it finishes its routine. It may take a minute or two depending on the speed of your system.

9. If you see the messagebox as shown below then you're successful.

View attachment 388295​

10. Then "Save As" it in a different filename.

I hope you'll find this tutorial helpful.

nice tut sir! thanks!!

 

[bladehurt25]

Pa bookmark ts, salamat.

 

[Manuel Pacardo]

Maraming Salamat po

 

[Gatorade]

pano ko ma open ung file eh nanghihingi agad ng password pag open mo.. popup agad ung password pag click or open ng excel file

 

[shandyair]

Thank you Sir...

 

[israelm2023]

Kung repost na po to paki delete na lang po.

Follow these Steps Carefully.

Note: Applicable to any version of MS Office. What I am using in this demonstration is MS Office 2010.

1. Open the Password Protected Excel Sheet.
2. Press Alt+F11. A MS Visual Basic Interface will popup.
3. Do as what the image shows

View attachment 388291​

4. Paste this code:

Sub PasswordBreaker()
    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

and will look like this

View attachment 388292​

5. Close the MS Visual Basic Interface and return to the protected excel sheet.

6. Go to view>macros (it may differ with other version of MS Office).Follow the steps in the image as shown.

View attachment 388293​

7. Then a window will popup and will look like this.

View attachment 388294​

8. After running the code please wait until it finishes its routine. It may take a minute or two depending on the speed of your system.

9. If you see the messagebox as shown below then you're successful.

View attachment 388295​

10. Then "Save As" it in a different filename.

I hope you'll find this tutorial helpful.

TS sinusubukan ko ung alt+F11 pero pag open n ung VBA di maclick ang module.. as step #2 as per your picture... what will do??

 

[lonewolf07]

2011 pa ung threan mga boss

 

[kumaw]

hindi ma click yung module nka white xa un clickble skin

- - - Updated - - -

Quote Originally Posted by Gatorade View Post
pano ko ma open ung file eh nanghihingi agad ng password pag open mo.. popup agad ung password pag click or open ng excel file
same kme d gmgna un alt+f11
xempre i close mu muna yung llbas n pw wag mo iclose un excel mttra xa n hnd mg ssra.ska mo gmtin ung alt f11

 

[Brianjay7]

pa bookmark thanks dito..

 

[jonce_09]

Pano pag yung workbook yung password protected may way po ba para matanggal?

 

[sphinxer]

Pa BM nito ts magagamit to sa mga file..

 

[kurt1124bat]

Thanks TS , bookmark

 

[rexmanship123]

salamat dito master

 

[niddo]

aNG TINDI!!!!!!

NAPA WOW! TALAGA AKO AH.