Sunday, June 3, 2012
Cara Membuka File Excel yang Terprotect
Suatu saat ada temen yang bertanya, "Mas kok file Excel yang ngopy dari pusat ga bisa diedit yah, padahal ada data yang perlu dihapus atau diubah, kalo saya mau hapus data dalam cell muncul tulisan seperti ini",
hmhhm,.. (dalam hati saya berkata "ini sih bukan pertama kali'y saya nemuin hal semacam ini"),..
Untuk menjawab pertanyaan di atas, saya akan mencoba memberikan tips agar file Excel atau xls dapat diedit dan diubah sesuka hati.
Pertama yang harus kita lakukan adalah mengetahui password untuk membuka protect file tersebut,... tapi bagaimana cara mengetahuinya,.. kan yang membuat passwordnya orang lain,, hehehe
Oke langsung saja saya akan memberikan tutorialnya, silahkan disimak baik-baik,. :-p
1. Buka dulu file ms. excel / xls yang terprotect
2. Kemudian tekan tombol alt + F11, maka akan terbuka jendela Microsoft visual basic
3. Pada menu bar klik Insert, kemudian klik Module
4. Copy paste code di bawah ini :
Sub PasswordBreaker()
'Author unknown but submitted by brettdj of www.experts-exchange.com
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
'Author unknown but submitted by brettdj of www.experts-exchange.com
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
5. Klik icon save, kemudian tutup Microsoft visual basic
6. Kembali ke Ms. Excel, pada menu bar klik View > Macros > View Macros
7. Kemudian klik Run
8. Tunggu beberapa saat dan password akan muncul
9. Setelah mengetahui passwordnya tinggal kita buka protect filenya
10. klik file > Info > Protect Workbook > Permissions
11. Klik Unprotect, Masukkan passwordnya dan klik OK
Untuk file xls yang mempunyai sheet lebih dari satu, tinggal ulangi masukan password pada sheet yang masih unprotect
Selamat sekarang file xls sudah dapat diedit
Subscribe to:
Post Comments (Atom)
31 komentar:
makasih mas ... solusinya sangat membantu masalah saya selama ini
esa >> sama-sama gan,.. trima kasih atas kunjungannya,...
wah ... kebeneran nih - sudah cari kemana mana akhirnya ketemu juga solusinya ... mksih om mashadi shi
pas buanget buat masalah yang sedang saya hadapi.
mohon izin buka praktek buat masalah excell saya..
terima kasih juragan..!!!!
mantaaaaaaaap gan
it's work.......
thank you
thanks bro.. sukses selalu
mas kok keluarnya pasword AABABBABAAAW
perasaan bukan itu deh mas pasword yg saya bikin, mohon penjelasannya mas
mas mau nanya klo file yg mau dibuka g muncul insert paswordnya gmn? pertama mau dbuka g muncul apa2 lgsg tampilan excel kosong
THANK YOU GAN....
Sangat membantu Mass .,.,. makasih yaa,.,. :D
trims programnya yg josss, saya butuh banget. smoga amal anda dapat balasan dari YMKuasa, amin
TERIMA KASIH ATAS BANTUANNYA PAKK,,ITS USEFUL
Terimakasih untuk telah berbagi ilmu
thanks bro!
terima kasih banyak
mAKASIH YAH... TUHAN YESUS MEMBERKATI ..
keren keren!!!
hebaaaat sangat bermanfaaat !!!! setelah saya coba it's work like charm
mantep kang,, ud ane praktek'in,,
manjurrr..
ijin copas di blog ane,, ud tak kasih sumbernya koq..
kunjungi juga blog ane http://semuailmubisa.blogspot.com/
MATUR NUWUN, SANGAT MEMBANTU..
terimakasih banyak...sangat membantu..dan berhasil
Tks banget mas bro nice info nya masalah file Exel dr pusat sdh terselesaikan wass. wr.wb.
Trims Mas Smoga ada ide lainnya yg memikat matur suwun
semua menu di VBA ga bisa di klik.. jadi ga bisa copy paste di modulenya
Cocok Sob sharing, bisa dipakai dengan mulus... Tengkiu... Ngomong2 ada yang bisa langsung tampak password yg sebenarnya ngak? Penasaran juga sebelumnya pake password apa... hehe
klo untuk di MS Office 2013 apa bisa?
Terima kasih atas tutorialnya :)
mas bagaiman klu jendela visual basicnya jg di password?? saya menemukan masalah seperti ini
terimakasih sangat membantu
kalo tiap sheet passwordnya beda gimana gan?..
PokerOfAsian.com | Situs Poker Online Resmi | Bandar Ceme | BandarQ | DominoQQ
DANAQQ.COM SITUS BANDARQ DOMINO QQ BANDARQ ONLINE DOMINO 99 DOMINOQQ DOMINO99 ONLINE INDONESIA
LAPAKQQ.ONLINE AGEN DOMINO 99, DOMINO QIU QIU, BANDAR Q ONLINE, POKER ONLINE, DOMINO ONLINE
VBANDAR Agen Remi9 Judi Sakong Bandar Poker Online Indonesia
BORNEOPOKER.COM BANDAR POKER ONLINE SERTA BANDAR Q ONLINE TERPERCAYA DI INDONESIA
domino99, dominoQQ, domino Qiu Qiu, Bandarq, Qiu Qiu
Post a Comment