Bismillahirrahmanirrahim pada kesemptan ini saya ingin berbagi dan menyimpan Cara Membuka Password Sheet Excel, saya bukan mengajarkan cara meng hack program yang di buat dari aplikasi microsoft excel tapi saya cuma ingin menyimpan kode vb script untuk membuka password sheet excel yang di protek. Kadang kita memprotek suatu aplikasi yang kita buat dengan sebuah password tapi yang namanya manusia kadang ingat kadang lupa, nah untuk mengantisipasi dari lupa tersebut banyak berbagai solusi, ada yang disimpan dalam catatan pribadi ada yang disimpan dalam email dan ada pula yang disimpan di dalam postingan blog.

Cara Membuka Password Sheet Excel
Cara Membuka Password Sheet Excel
Jika sobat mempunyai kasus yang sama (lupa password excel) sobat bisa menggunakan script di bawah ini untuk membukanya.
Langkah langkah Cara Membuka Password Sheet Excel
Pertama buka Ms Excel yang di proteks dengan password
Setelah tebuka, langkah selanjutnya sobat tekan Alt+F11 dalam keyboard
Maka dengan secara otomatis sobat membuka VB Macro.
Setelah VB Macro tebuka langkah selanjutnya sobat buat sebuah modul dengan langkah langkah seperti di bawah ini.
Klik Menu Insert Klik Module 
Setelah modul baru tebuka sobat copy (Ctrl+C) script di bawah ini terus vaste (Ctrl+V) pada modul.
   
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)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = 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

Langkah terakhir, klik run script atau tekan F5, maka dengan secara otomatis password akan tampil. Oke saya rasa potingan tentang Cara Membuka Password Sheet Excel saya cukupkan sampai disini semoga bermanfaat, akhir kata dari saya Good Luck Happy Blogging.
   
Axact

Z-PLATE

Terima Kasih Telah Berkunjung dan Berkanan Membaca artikel dari Blog Kami, Silahkan Masukan Komentar Untuk menambah Motivasi Kami.

Post A Comment:

0 comments: