
Cara membuka password Excel yang terkunci bisa dilakukan dengan banyak cara. Seperti misalnya dengan mengunggah file Excel secara online berbasis web, menggunakan aplikasi tambahan, ataupun bisa juga dengan cara manual seperti dengan Zip atau Binary Worksheet dengan Macro.
Cara tersebut dilakukan untuk membuka file Excel yang tidak bisa diedit karena file yang di Encrypt oleh pengguna yang lupa password atau pemilik file yang tidak ingin data Excelnya dirubah oleh orang lain dengan alasan privasi data.
Nah, untuk kalian yang ingin tau cara membuka file Excel yang terkunci dengan worksheet yang terproteksi tersebut, silahkan mengikuti langkah-langkah yang ada pada penjelasan dibawah ini:
DAFTAR ISI
Cara Membuka Password File Excel Tanpa Software
Cara membuka password excel dapat kalian lakukan di Binary Worksheet dengan Macro Syntax. Dengan memasukkan kode VBA kedalam module, file Excel yang di Encrypt dapat dibuka.
Kode VBA macro ini berfungsi untuk menghapus kode password yang ada di dalam file Excel kalian. Nah, berikut ini tahap-tahap membuka file Excel yang terkunci dari dalam Ms Excel tanpa aplikasi dan software tambahan.
1. Membuka Excel Yang Pakai Password
- Sebelum melakukan cara membuka password Excel dengan menggunakan kode VBA, langkah pertama yang harus kalian lakukan terlebih dahulu adalah membuka lembar kerja baru pada Microsoft Excel, bukan file Excel yang terkunci.
- Setelah kalian membuka lembar kerja baru, lalu silahkan masuk ke menu “File”, kemudian klik “Option” yang berada di posisi paling bawah menu Excel. Seperti pada contoh gambar di bawah ini:
- Pada langkah kedua akan muncul tampilan tab “Excel Option”. Kalian klik “Customize Ribbon” yang ada di sebelah kiri. Setelah itu klik “Main Tabs”, lalu klik “Developer”, kemudian klik “Add>>”, lanjut klik “OK”.
- Setelah langkah kedua selesai, maka pada menu bar akan muncul menu baru bernama “Developer”. Silahkan kalian klik menu “Developer” tersebut, kemudian klik “Visual Basic”. Atau bisa juga dengan menggunakan tombol “ALT+F11” pada keyboard. Seperti pada gambar berikut:
- Setelah tampilan “Microsoft Visual Basic for Applications” muncul. Lalu langkah selanjutnya klik “Insert”, kemudian klik “Module”.
- Akan ada tampilan kotak module baru yang tampil seperti pada gambar dibawah ini. Kotak module ini nantinya akan berfungsi untuk menempatkan code VBA yang digunakan untuk membuka password pada Excel yang terkunci.
Langkah selanjutnya kalian copy kode berikut, kemudian paste ke dalam kotak module yang tampil.
Sub RemoveProtection()
Dim dialogBox As FileDialog
Dim sourceFullName As String
Dim sourceFilePath As String
Dim sourceFileName As String
Dim sourceFileType As String
Dim newFileName As Variant
Dim tempFileName As String
Dim zipFilePath As Variant
Dim oApp As Object
Dim FSO As Object
Dim xmlSheetFile As String
Dim xmlFile As Integer
Dim xmlFileContent As String
Dim xmlStartProtectionCode As Double
Dim xmlEndProtectionCode As Double
Dim xmlProtectionString As StringSet dialogBox = Application.FileDialog(msoFileDialogFilePicker)
dialogBox.AllowMultiSelect = False
dialogBox.Title = “Select file to remove protection from”If dialogBox.Show = -1 Then
sourceFullName = dialogBox.SelectedItems(1)
Else
Exit Sub
End IfsourceFilePath = Left(sourceFullName, InStrRev(sourceFullName, “\”))
sourceFileType = Mid(sourceFullName, InStrRev(sourceFullName, “.”) + 1)
sourceFileName = Mid(sourceFullName, Len(sourceFilePath) + 1)
sourceFileName = Left(sourceFileName, InStrRev(sourceFileName, “.”) – 1)tempFileName = “Temp” & Format(Now, ” dd-mmm-yy h-mm-ss”)
newFileName = sourceFilePath & tempFileName & “.zip”
On Error Resume Next
FileCopy sourceFullName, newFileNameIf Err.Number <> 0 Then
MsgBox “Unable to copy ” & sourceFullName & vbNewLine _
& “Check the file is closed and try again”
Exit Sub
End If
On Error GoTo 0zipFilePath = sourceFilePath & tempFileName & “\”
MkDir zipFilePathSet oApp = CreateObject(“Shell.Application”)
oApp.Namespace(zipFilePath).CopyHere oApp.Namespace(newFileName).itemsxmlSheetFile = Dir(zipFilePath & “\xl\worksheets\*.xml*”)
Do While xmlSheetFile <> “”xmlFile = FreeFile
Open zipFilePath & “xl\worksheets\” & xmlSheetFile For Input As xmlFile
xmlFileContent = Input(LOF(xmlFile), xmlFile)
Close xmlFilexmlStartProtectionCode = 0
xmlStartProtectionCode = InStr(1, xmlFileContent, “<sheetProtection”) If xmlStartProtectionCode > 0 ThenxmlEndProtectionCode = InStr(xmlStartProtectionCode, _
xmlFileContent, “/>”) + 2 ‘”/>” is 2 characters long
xmlProtectionString = Mid(xmlFileContent, xmlStartProtectionCode, _
xmlEndProtectionCode – xmlStartProtectionCode)
xmlFileContent = Replace(xmlFileContent, xmlProtectionString, “”)End If
xmlFile = FreeFile
Open zipFilePath & “xl\worksheets\” & xmlSheetFile For Output As xmlFile
Print #xmlFile, xmlFileContent
Close xmlFilexmlSheetFile = Dir
Loop
xmlFile = FreeFile
Open zipFilePath & “xl\workbook.xml” For Input As xmlFile
xmlFileContent = Input(LOF(xmlFile), xmlFile)
Close xmlFilexmlStartProtectionCode = 0
xmlStartProtectionCode = InStr(1, xmlFileContent, “<workbookProtection”) If xmlStartProtectionCode > 0 ThenxmlEndProtectionCode = InStr(xmlStartProtectionCode, _
xmlFileContent, “/>”) + 2 ””/>” is 2 characters long
xmlProtectionString = Mid(xmlFileContent, xmlStartProtectionCode, _
xmlEndProtectionCode – xmlStartProtectionCode)
xmlFileContent = Replace(xmlFileContent, xmlProtectionString, “”)End If
xmlStartProtectionCode = 0
xmlStartProtectionCode = InStr(1, xmlFileContent, “<fileSharing”) If xmlStartProtectionCode > 0 ThenxmlEndProtectionCode = InStr(xmlStartProtectionCode, xmlFileContent, _
“/>”) + 2 ””/>” is 2 characters long
xmlProtectionString = Mid(xmlFileContent, xmlStartProtectionCode, _
xmlEndProtectionCode – xmlStartProtectionCode)
xmlFileContent = Replace(xmlFileContent, xmlProtectionString, “”)End If
xmlFile = FreeFile
Open zipFilePath & “xl\workbook.xml” & xmlSheetFile For Output As xmlFile
Print #xmlFile, xmlFileContent
Close xmlFileOpen sourceFilePath & tempFileName & “.zip” For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1oApp.Namespace(sourceFilePath & tempFileName & “.zip”).CopyHere _
oApp.Namespace(zipFilePath).items
On Error Resume Next
Do Until oApp.Namespace(sourceFilePath & tempFileName & “.zip”).items.Count = _
oApp.Namespace(zipFilePath).items.Count
Application.Wait (Now + TimeValue(“0:00:01”))
Loop
On Error GoTo 0Set FSO = CreateObject(“scripting.filesystemobject”)
FSO.deletefolder sourceFilePath & tempFileNameName sourceFilePath & tempFileName & “.zip” As sourceFilePath & sourceFileName _
& “_” & Format(Now, “dd-mmm-yy h-mm-ss”) & “_” & “(Copy)” & “.” & sourceFileTypeMsgBox “Password workbook dan worksheet berhasil dihapus. Silahkan lihat salinan file tanpa password pada folder Anda.”, _
vbInformation + vbOKOnly, Title:=”Password Terhapus!”End Sub
Catatan : Kode VBA tersebut dapat digunakan pada versi Office 2010 keatas, misal versi 2013 dan versi 2019.
- Paste atau tempelkan kode diatas kedalam kotak module seperti pada contoh gambar berikut ini:
- Langkah ketujuh, menjalankan kode VBA dengan cara klik menu “Run” kemudian klik “Run Sub/UserFrom”. Atau bisa juga menggunakan tombol “F5” pada keyboard.
- Kemudian pada langkah selanjutnya pilih file yang terkunci lalu klik “OK”.
- Nah, setelah klik “OK” pada file yang terkunci, maka akan muncul pemberitahuan bahwa file Excel yang terkunci tersebut telah berhasil dibuka, dan lanjutkan dengan klik “OK” lagi. Lihat pada gambar berikut :
- Langkah sudah selesai, maka kalian dapat menutup “Microsoft Visual Basic for Applications”.
- Proses selanjutnya yaitu mencoba kode VBA tersebut apakah berhasil atau tidak. Dengan cara klik “File” pada lembar kerja Microsoft Excel, kemudian klik “Open”, lalu klik “This PC”, lalu klik “Documents”.
- Nah, pada folder penyimpanan file Excel yang terkunci akan muncul file baru dengan tambahan nama “tanggal” dan “(Copy)”. Silahkan kalian klik “Open” seperti pada contoh gambar berikut.
- Maka akan terbuka lembar kerja Ms Excel yang terkunci dengan password yang sudah terhapus.
- Kalian dapat mengeceknya melalui “Protect Workbook” seperti pada gambar dibawah ini. Jika tanda protect pada menu tersebut hilang maka file Excel sudah tidak lagi memiliki password.
- Dan jika password Excel masih ada, maka tampilan “Protect Workbook” akan aktif. Seperti terlihat pada gambar berikut :
2. Memunculkan Password File Excel
Untuk menampilkan password yang ada pada file Excel yang di Encrypt, kalian cukup menggunakan kode VBA seperti cara diatas. Namun, menggunakan kode syntax yang berbeda. Perhatikan langkah berikut ini :
- Pertama kalian klik “Developer” pada lembar kerja Ms Excel, kemudian klik “Visual Basic”. Maka akan muncul “Microsoft Visual Basic for Applications” seperti cara sebelumnya, lalu kemudian klik “Insert”, selanjutnya copy kode VBA dibawah ini pada kolom module baru.
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
- Langkah selanjutnya tinggal kalian jalankan Run dengan cara klik “Run”, kemudian klik “Run Sub/UserFrom”. Atau bisa juga menggunakan tombol “F5” pada keyboard. Lalu tunggulah hingga proses running kode selesai.
- Setelah running kode VBA selesai, selanjutnya kalian akan mendapatkan kode password yang tampil pada lembar kerja Excel tersebut. Lalu tutup “Microsoft Visual Basic” tersebut dan kemudian pergi ke menu “Review”, lalu klik “Unprotect Sheet”, setelah itu masukkan password.
- Setelah kalian masukkan password yang kalian dapatkan, lanjutkan dengan cara klik “OK”. Maka file Excel yang di Encrypt akan dapat dibuka dan diedit kembali.
Cara Membuka Password File Excel Dengan Software
Jika kalian merasa cara membuka password Excel tanpa software di atas terasa sangat ribet, mungkin kalian dapat mencoba membuka file Excel yang terkunci tersebut dengan menggunakan aplikasi tambahan.
Cara yang pertama kalian dapat menggunakan aplikasi berbasis web secara online. Salah satu situs web yang menyediakan layanan tersebut adalah LostMyPass. Situs ini merupakan situs yang digunakan untuk membuka file jenis apapun termasuk file Excel yang terkunci.
Cara yang kedua kalian dapat menggunakan aplikasi WinRAR atau 7-Zip. Aplikasi ini rupanya juga bisa kalian manfaatkan untuk membuka file Excel kalian yang terkunci. Berikut beberapa caranya :
1. Cara Membuka Password Excel Online
- Langkah pertama kalian buka situs “LostMyPass” menggunakan browser. Lalu kemudian klik “or click here” untuk mengunggah file Excel yang terkunci.
- Buka file yang terkunci dengan klik “Open”. Dan tunggulah sampai upload file selesai.
- Akan ada status “Success! The document is unlocked” pada situs tersebut. Ini menandakan bahwa file Excel tersebut sudah tidak terproteksi dengan password. Lanjutkan dengan mengklik “Download Unlocked File” yang ada pada situs.
- Silahkan tunggu sampai proses download file selesai. Lanjutkan dengan membuka file yang telah di download.
- Akan ada file Excel baru dengan nama dan isi yang sama pada satu folder, namun dengan file yang sudah unprotect.
- Buka file yang baru kalian download dan lihat hasilnya. Klik menu “Review” untuk melihat apakah file Excel tersebut masih terkunci atau tidak pada menu “Unprotect Sheet”.
2. Dengan Aplikasi “Winrar” Dan Aplikasi “7-Zip”
- Langkah pertama buka folder yang berisi file Excel yang terkunci lalu klik “View” pada menu bar Windows File Explorer, kemudian centang “File name extensions”. Seperti yang terlihat pada gambar berikut ini :
- Langkah kedua klik file Excel yang terkunci, kemudian ubah format extension Excelnya dari “.xlsx” menjadi “.rar” dan kemudian tekan “Enter”.
- Langkah ketiga, akan ada pemberitahuan yang muncul pada explore. Klik “Yes” untuk melanjutkan.
- Langkah keempat buka file Excel yang berubah menjadi extension “.rar” tersebut dengan menggunakan aplikasi “WinRAR”.
- Langkah kelima setelah membuka file WinRAr, lanjutkan dengan membuka folder “xl” seperti pada contoh gambar berikut.
- Langkah keenam pilih dan buka file bernama “worksheets”.
- Langkah ketujuh akan tampil banyak file berextensi “.xml”. Silahkan pilih terlebih dahulu sheet mana yang mengandung password.
- Langkah kedelapan klik kanan pada sheet yang berisi password, kemudian klik “Rename”.
- Langkah kesembilan ubahlah extension “.xml” tersebut menjadi extention “.txt”. Dan lihat pada gambar berikut:
- Langkah kesepuluh buka file yang berextention “.txt” tersebut dengan cara double klik atau klik dua kali. Lalu akan muncul tampilan Notepad yang berisi banyak kode Excel.
- Lanjutkan dengan menekan tombol “CTRL+F” pada keyboard untuk mencari kode “<sheet Protection” dan setelah itu klik “Find Next”.
- Langkah kesebelas seleksi semua kode mulai dari “”. Kemudian klik “Delete”, lalu simpan file dengan cara klik “File” dan “Save”.
- Langkah kedua belas ubah kembali extension seperti semula dengan cara klik kanan, lalu kemudian klik “Rename” dan ubah extension dari “.txt” menjadi extension “xml”.
- Langkah ketiga belas tutup jendela WinRAR tersebut lalu ubah extension dengan cara klik kanan, kemudian klik “Rename” lalu ubah dari “.rar” menjadi “.xlsx”. Seperti pada gambar dibawah ini :
- Langkah keempat belas akan muncul perintah untuk mengubah extension. Silahkan klik “Yes”!
- Nah, pada tahap ini file berubah kembali menjadi file Excel dengan extension “.xlsx”.
- Untuk melihat apakah cara diatas berhasil atau tidak, silahkan klik pada menu “File” kemudian kalian lihat status aktif protection yang ada pada “Protect Workbook”.
Itulah tadi beberapa cara membuka password Excel yang terkunci tanpa aplikasi dan yang menggunakan aplikasi. Semua cara diatas dapat kalian gunakan untuk membuka password Excel, tergantung dari selera kalian.
Sekian pembahasan kali ini, semoga tutorial diatas dapat membantu dan bermanfaat bagi yang sedang bingung dalam membuka file yang di Encrypt. Selamat mencoba!
Leave a Reply