• Skip to main content
  • Skip to primary sidebar
  • Aplikasi
  • HP
  • Internet
  • Komputer
  • Sosmed

Rick Warren News

Jaman Now Harus Update Tekno!

Ad example
You are here: Home / MS Office / Cara Membuka Password Excel

Cara Membuka Password Excel

February 10, 2022 by Indah Idaho

Cara Membuka Password Excel

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
    • 1. Membuka Excel Yang Pakai Password
    • 2. Memunculkan Password File Excel
  • Cara Membuka Password File Excel Dengan Software
    • 1. Cara Membuka Password Excel Online
    • 2. Dengan Aplikasi “Winrar” Dan Aplikasi “7-Zip”

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:

Membuka Excel Yang Pakai Password

  • 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”.

Customize Ribbon

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

klik Visual Basic

  • Setelah tampilan “Microsoft Visual Basic for Applications” muncul. Lalu langkah selanjutnya klik “Insert”, kemudian klik “Module”.

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.

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 String

Set 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 If

sourceFilePath = 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, newFileName

If 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 0

zipFilePath = sourceFilePath & tempFileName & “\”
MkDir zipFilePath

Set oApp = CreateObject(“Shell.Application”)
oApp.Namespace(zipFilePath).CopyHere oApp.Namespace(newFileName).items

xmlSheetFile = 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 xmlFile

xmlStartProtectionCode = 0
xmlStartProtectionCode = InStr(1, xmlFileContent, “<sheetProtection”) If xmlStartProtectionCode > 0 Then

xmlEndProtectionCode = 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 xmlFile

xmlSheetFile = Dir

Loop

xmlFile = FreeFile
Open zipFilePath & “xl\workbook.xml” For Input As xmlFile
xmlFileContent = Input(LOF(xmlFile), xmlFile)
Close xmlFile

xmlStartProtectionCode = 0
xmlStartProtectionCode = InStr(1, xmlFileContent, “<workbookProtection”) If xmlStartProtectionCode > 0 Then

xmlEndProtectionCode = 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 Then

xmlEndProtectionCode = 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 xmlFile

Open sourceFilePath & tempFileName & “.zip” For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1

oApp.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 0

Set FSO = CreateObject(“scripting.filesystemobject”)
FSO.deletefolder sourceFilePath & tempFileName

Name sourceFilePath & tempFileName & “.zip” As sourceFilePath & sourceFileName _
& “_” & Format(Now, “dd-mmm-yy h-mm-ss”) & “_” & “(Copy)” & “.” & sourceFileType

MsgBox “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:

tempelkan kode

  • Langkah ketujuh, menjalankan kode VBA dengan cara klik menu “Run” kemudian klik “Run Sub/UserFrom”. Atau bisa juga menggunakan tombol “F5” pada keyboard.menjalankan kode VBA
  • Kemudian pada langkah selanjutnya pilih file yang terkunci lalu klik “OK”.

pilih file yang terkunci

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

Excel terkunci berhasil dibuka

  • Langkah sudah selesai, maka kalian dapat menutup “Microsoft Visual Basic for Applications”.

Visual Basic for Application

  • 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”.

klik This PC

  • 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.

penyimpanan file Excel

  • Maka akan terbuka lembar kerja Ms Excel yang terkunci dengan password yang sudah terhapus.

terbuka lembar kerja

  • 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.

Protect Workbook

  • Dan jika password Excel masih ada, maka tampilan “Protect Workbook” akan aktif. Seperti terlihat pada gambar berikut :

password Excel masih ada

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

proses running kode

  • 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.

Unprotect Sheet

  • 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.

Membuka Password Excel Online

  • Buka file yang terkunci dengan klik “Open”. Dan tunggulah sampai upload file selesai.

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.

Download Unlocked File

  • Silahkan tunggu sampai proses download file selesai. Lanjutkan dengan membuka file yang telah di download.

membuka file

  • Akan ada file Excel baru dengan nama dan isi yang sama pada satu folder, namun dengan file yang sudah unprotect.

file Excel baru

  • 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”.

Klik menu Review

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 :

Dengan Aplikasi Winrar

  • Langkah kedua klik file Excel yang terkunci, kemudian ubah format extension Excelnya dari “.xlsx” menjadi “.rar” dan kemudian tekan “Enter”.

kemudian tekan Enter

  • Langkah ketiga, akan ada pemberitahuan yang muncul pada explore. Klik “Yes” untuk melanjutkan.

akan ada pemberitahuan

  • Langkah keempat buka file Excel yang berubah menjadi extension “.rar” tersebut dengan menggunakan aplikasi “WinRAR”.

aplikasi WinRAR

  • Langkah kelima setelah membuka file WinRAr, lanjutkan dengan membuka folder “xl” seperti pada contoh gambar berikut.

membuka folder xl

  • Langkah keenam pilih dan buka file bernama “worksheets”.

bernama worksheets

  • Langkah ketujuh akan tampil banyak file berextensi “.xml”. Silahkan pilih terlebih dahulu sheet mana yang mengandung password.

file berextention xml

  • Langkah kedelapan klik kanan pada sheet yang berisi password, kemudian klik “Rename”.

klik kanan pada sheet

  • Langkah kesembilan ubahlah extension “.xml” tersebut menjadi extention “.txt”. Dan lihat pada gambar berikut:

extention txt

  • 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”.

sheetProtection

  • Langkah kesebelas seleksi semua kode mulai dari “”. Kemudian klik “Delete”, lalu simpan file dengan cara klik “File” dan “Save”.

seleksi semua kode

  • Langkah kedua belas ubah kembali extension seperti semula dengan cara klik kanan, lalu kemudian klik “Rename” dan ubah extension dari “.txt” menjadi extension “xml”.

dan ubah extention

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

tutup jendela WinRAR

  • Langkah keempat belas akan muncul perintah untuk mengubah extension. Silahkan klik “Yes”!

mengubah extention

  • Nah, pada tahap ini file berubah kembali menjadi file Excel dengan extension “.xlsx”.

file berubah kembali menjadi file Excel

  • Untuk melihat apakah cara diatas berhasil atau tidak, silahkan klik pada menu “File” kemudian kalian lihat status aktif protection yang ada pada “Protect Workbook”.

status aktif protection

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!

Filed Under: MS Office

Reader Interactions

Leave a Reply Cancel reply

Your email address will not be published. Required fields are marked *

Primary Sidebar

E-mail Newsletter

TERBARU

Cara Freeze Excel

Cara Freeze Excel

Aplikasi Edit Suara

cara Download Aplikasi di Laptop

Cara Download Aplikasi di Laptop

Cara Membuat Link WA

Cara Membuat Link WA

Cara Membuka Password Excel

Cara Membuka Password Excel

Copyright © 2021 o4onyc.org