Cara Buka Password Macro VBA Excel

UBAH PASSWORD pada VBA 
(khusus untuk *.xla)

1. TAHAP PERSIAPAN

1.    Download FRHED, pada http://frhed.sourceforge.net/en/ 
cari yang Frhed-1.6.0-exe.zip
atau https://nchc.dl.sourceforge.net/project/frhed/1.%20Stable%20Releases/1.6.0/Frhed-1.6.0-exe.zip

2.    file yang akan diubah passwordnya, misal ASLI.xla, di back up terlebih dahulu

3.    Bikin File XLA yang baru, dengan password yang kita maui, misal namanya PASSBARU.xla, dengan password : 1234, caranya 
Cara Menu>Developer>Visual Basic > Vew > Project Explorer > Arahkan Kursor Pada Vba Project   > Tools > Vba Project Properties > Protection > Centang  Kotak dialog Look Project For View dan Isikan Pasworrd beserta konfirmasinya (misal password = 1234, dan konfirmasinya = 1234)

4.    Save file ... (PASSBARU.xla)

2. TAHAP EKSEKUSI

1.      open file Frhed

2.      buka PASSBARU.xla

3.      cari CMG,DPB dan GC, dengan cara Ctrl+F = CMG klik OK

                    klik OK

        

4.      copy paste kan mulai CMG.... sampai ' " ' (sebelum ... [Host ..) ke Notepad

5.      sekarang buka ASLI,xla , lakukan langkah nya spt no 3 dan 4

6.      Bandingkan panjangnya antara PASSBARU.xla dan ASLI.xla

PASSBARU

CMG="2D2F819683E787E787E38BE38B"

DPB="7A78D6693E863E86C17A3F8627EBD83A43343F4BC3D4E2F2FF5561C0CF7588B9909766835D"

GC="C7C56B3CF5C443C543C543"

ASLI

CMG="27258BF6953AB83EB83EBC42BC42"

DPB="4E4CE2DF2E21483E483EB7C2493CC448D6DC8DB2616141D8C685C55454D8735285DC42ECD90DB9"

GC="7577D904272A282A282A"

length (CMG dan DPB) PASSBARU , lebih pendek dari ASLI,

bila lebih panjang spt GC , tidak perlu di apa apakan

tetapi bila lebih pendek, tambahkan angka "0", pada bagian belakang, sesuai kebutuhan

=====================

PASSBARUupdate

CMG="2D2F819683E787E787E38BE38B00"

DPB="7A78D6693E863E86C17A3F8627EBD83A43343F4BC3D4E2F2FF5561C0CF7588B9909766835D0000"

GC="C7C56B3CF5C443C543C543"

7.      copy pastekan PASSBaru Update (yang ada tambahan 0), ke ASLI.xla

  (jangan lupa beri centang pada Paste), dan pilih yang CFText, OK

8.      Save File

..............

3. TAHAP OPEN VBA

1.      panggil file Asli.xla, di Excel

2.      open file Asli.xla dengan password : 1234

3.      ..... hore hore hore ..... bisa dibuka 

4.      terserah mau diapakan source codenya 

============== SELESAI =============

CARA BUKA PASSWORD EXCEL Sheet Document ( Lupa pasword ) 

Seringkali Kita Jumpai Sheet Pada File Excel File Milik Orang yang Terproteksi dengan password atau barangkali File Kita Sendiri yang karena alasan tertentu Kita Proteksi pada Sheetnya dan Begitu kita butuh membuka Sheet tersebut ternyata Kita Lupa password , Nah gimana Caranya membukanya
cara membuka protect sheets atau password pada setiap sheets excel, karena sering ditemukan file excel yang diprotect oleh pembuatnya. Pada posting ini saya coba sharekan trik atau cara mudah untuk membuka protect sheets excel tanpa menggunakan password khusus pada microsoft excel 2007 (mungkin juga bisa digunakan pada ms excel 2010)..

Langkah Langkah yang diambil sebagai berikut :

1.    Klik kanan pada nama sheet file yang ada dibagian bawah (seperti sheet1, sheet2, dan sheet3) lalu pilih “VIEW CODE” atau tekan tombol kombinasi “Alt + F11″ maka akan terbuka jendela Microsoft visual basic kemudian pilih insert MODULE. Maka akan terlihat gambar seperti di bawah ini

2.      masukan kode di bawah ini

Sub InternalPasswords()

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(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: Next
Next: Next: Next: Next: Next: Next

End Sub

Ingat, kode script di atas harus dicopy seluruhnya dari kata Sub InternalPasswords()  sampai dengan End Sub.
Sehingga pada layar akan tampak seperti ini

3.     klik TOOLS (yang ada di atas) kemudian pilih MACROS. Maka akan tampak layar seperti ini

4.      Selanjutnya Anda klik RUN dan tunggu beberapa saat sampai proses selesai.

Setelah itu Anda keluarkan layar Microsoft visual basic dengan mengklik tanda close (x) yang ada di pojok kanan atas atau dengan mengklik FILE (dipojok kiri) lalu pilih Close and Return to Microsoft Excel , insya Allah protect sheet sudah hilang.

      Untuk membuka protect sheet pada sheet-sheet yang lain lakukan dengan langkah yang sama.
Bagi Anda yang akan mencoba saya sarankan SAVE AS dulu file excel yang akan diedit dan gantikan dengan nama file yang lain. Untuk yang sudah mencobanya ditunggu komentar dan sarannya di bagian rubrik komentar
Apabila file EXCEL tersebut berbentuk MACRO ENABLE WORKBOOK, save as terlebih dahulu file tersebut ke tipe EXCEL WORKBOOK