Friday, June 12, 2015

Cara Membuka Password VBA di Excel 2013

Tutorial kali ini adalah mengenai cara membuka pasword VBA di excel 2013, tentu kita pernah mengalami suatu ketika download file excel dari internet, ternyata file tersebut tidak bisa diedit pada sebagian cel tertentu atau bahkan seluruh file tersebut.  Tentu kita cukup pusing bukan, nah sekarang tidak perlu pusing lagi ini saya kasih cara membukanya.

Cara Membuka Pasword VBA di Excel 2013

1. Buka File Excel yang ada pasword VBA nya.

Excel 2013


2. Kemudian pada keyboard Tekan Alt + F11 kemudian akan muncul tampilan Macro VBA Excel

Macro VBA Excel 2013


3. Kemudian Klik Insert - Module, Kemudian Copy dan taruh kode script dibawah ini ke modul tersebut

Sub InternalPasswords()
Dim i As Integer, j As Integer, k As IntegerDim l As Integer, m As Integer, n As IntegerDim i1 As Integer, i2 As Integer, i3 As IntegerDim 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 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For 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(n)
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 ActiveWorkbook.ProtectStructure = False Then
If ActiveWorkbook.ProtectWindows = False Then
If ActiveSheet.ProtectContents = False Then
Exit Sub
End If
End If
End If
Next: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: Next
End Sub

4. Kemudian Klik Run - Run Macro - Pilih Internal Passwords - Klik Run

Run Macro VBA


InternalPasswords Macro VBA



5. Maka Password project VBA dari File Excel 2013 tadi akan terbuka.

No comments:

Post a Comment