Skip to main content

kode VBA untuk membuka Password Protect Workbook Excel

Jika Anda pernah lupa password untuk salah satu lembar kerja excel Anda Yang bisa membuat anda Frustasi ??
 
Berikut saya share kode VBA untuk membuka Password Protect Workbook Excel

 
Sub PasswordBreaker()

'Breaks worksheet password protection.

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
Labels:

Comments

Post a Comment

Popular posts from this blog

[Arsip] Uninstal Zimbra Mail Server

UnInstalling Zimbra on Linux Uninstall Directions for Linux/All Other Operating Systems As root: 1) Run the commands: su – zimbra zmcontrol stop exit (you should be root after you run exit) 2a) Run the command:  ps -ef | grep -i zimbra If you see running processes 2b) Kill any lingering processes:  kill -9 <pid> 3a) Run the command:  df If you see "amavisd" 3b) run command:  umount /opt/zimbra/amavisd<-new-blah>/tmp 4)  cd /<tmp_tar_install_dir>/zcs/ 5) Run the command:  ./install.sh -u 6) Run the following commands to complete the unistall: rm -rf /opt/zimbra rm -rf /var/log/*zimbra* rm -rf /tmp/*zimbra* rm -rf /tmp/hsperfdata* rm -rf /tmp/install.* rm -rf /tmp/*swatch* rm -rf /tmp/log* Ensure that you removed ALL the files owned by the user zimbra AND that contain the name "zimbra" in: /var/log/ /tmp/ 7) Run the following commands to delete the users and groups: userdel zimbra userdel postfix groupdel zimbra groupdel postfix 8) Remove th...
Post a Comment
Read more

Membuat fungsi “terbilang” Excel menggunakan macro VBA

Jika Anda ingin menerjemahkan Angka menjadi Kata-kata , contohnya saja dalam pembuatan Form Kwitansi suatu Transaksi , anda dapat membuatnya dengan menggunakan aplikasi Microsoft Excel dan Macro Visual Basic Application ( VBA ) .saya menggunakan Excel 2007 Untuk membuatnya silahkan ikuti langkah-langkah dibawah ini :  buka Microsoft Excel , lalu tekan alt+F11  Setelah Muncul Microsoft Visual Basic , lalu pilih Insert > module Isikan code Seperti diatas  silahkan anda download source code nya disini !! Save Book ( ctrl+S)   Save As type : pilih Excel Macro - Enable Workbook  (*.xlsm) lalu klik Save  pilih File > Close and return to microsoft excel , macro sudah dibuat , sekarang kita tinggal test macro tersebut Tempatkan cell A2 , pilih Formulas > Insert Function lalu pilih Category User Defined Terlihat Function terbilang yang sudah dibuat tadi di VBA , klik Ok Akan Tampil Form Seperti diatas ,  Nilai_angka  arahkan ke Cell A1 ( ters...
9 comments
Read more

Install Remote Desktop di Linux Mint 15

Ketika saya menginstall Linux Mint 15 di laptop saya  , setelah 1 jam selesai install OSnya  , ketika ingin remote desktop server , di search Aplikasi remote desktop di linux mint 15  knp tidak ada ... akhirnya saya install untuk remote desktop bernama aplikasi Remmina Dengan terminal : sudo apt-get install remmina Setelah terinstall , buka menu > Internet > Remmina silahkan coba remote desktop OS Windows , masukan Ip address , pilh Protokol VNC - Virtual Network Computing Masukkan Password Hasil Remote destop seperti diatas . SSH - Secure Shell , pilih Protokol SSH - Secure Shell  Masukkan IP Adderess Server dan masukan Password ,Ok Hasil SSH seprti diatas . Protokol SFTP Sekian , semoga bermanfaat Taufan M| email me
Post a Comment
Read more