Excel Office

Cara Membuka Password Excel

Pinterest LinkedIn Tumblr

Untuk memproteksi file yang sifatnya cukup rahasia atau memang tidak untuk umum, wajar jika pengguna kemudian memasang password sebagai standar keamanan dengan mengkombinasikan kode-kode tertentu.

Sekarang ini banyak aplikasi yang support dan memberikan fasilitas berupa password, bahkan sekelas software pengolah data seperti Microsoft Office hampir memberikan semua produk layanannya dengan kunci pengaman.

Dengan diberikannya kunci ini, dokumen atau database yang sifatnya sangat rahasia tidak akan terbongkar secara umum dan diketahui banyak orang.

Kemudian untuk memperkuat proteksi, password yang dipasang juga harus kompleks, biasanya orang-orang banyak yang menggunakan kombinasi huruf kapital dengan nomor sandi.

Tapi ada juga orang yang memasang password dengan tingkat kerumitan tinggi, sampai-sampai mereka sendiri lupa apa saja kombinasi yang sudah dimasukkan kedalam password tersebut. Dan ujung-ujungnya setelah melakukan beberapa kali percobaan, tetap saja masih gagal.

Kalau sudah seperti ini, bagaimana solusi mengatasinya?

Tenang saja, kamu gak perlu panik dulu, karena disini kita akan sediakan cara membuka password Excel tanpa menggunakan aplikasi bantuan dan sebisa mungkin masih aman.

Cara Membuka Password Excel

Ada beberapa metode yang bisa digunakan untuk membuka password Excel, dari mulai menjalankan program bernama Microsoft Visual Basic, membuka lewat layanan website khusus sampai mengunggahnya ke Google Drive.

Bagi yang penasaran cara membuka password Excel, langsung saja simak penjelasan dibawah :

1. Cara Membuka Password Excel Menggunakan Kode

Pertama kita mulai dengan membuka password secara paksa atau istilahnya membobol sistem agar proteksi password berhasil diakses tanpa memasukkan sandi. Untuk melakukannya, langsung saja ikuti cara dibawah :

  1. Buka Office Excel.
  2. Tekan tombol shortcut ALT + F11.
  3. Tunggu sampai muncul jendela Microsoft Visual Basic for Application.Tekan Tombol ALT + F11 Untuk Membuka MVB
  4. Kemudian kamu bisa tekan tombol Insert ➜ Module.Tekan Insert dan Buat Module
  5. Nantinya akan muncul jendela blank seperti dibawah ini, silahkan kamu copy kode berikut :

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

    1. Selanjutnya kamu bisa tekan menu Run kemudian pilih Run Sub/UserFrom.Tekan Tab Run dan Pilih Run Sub UserFrom
  1. Akan muncul jendela explorer, dan silahkan kamu cari file excel yang ingin dihapus passwordnya.
  2. Kemudian tekan OK, jika berhasil nanti akan muncul notifikasi keberhasilan menghapus sandi password. Dan file excel tersebut akan jadi duplikat dimana file satunya ada keterangan tambahan tanggal dan “copy”.
Bingung karena file Excel ter-protect dan tidak bisa diedit ? Ikuti cara mudah unprotect Excel dan dijamin berhasil.

2. Cara Membuka Password Excel Melalui Website

Bagi yang merasa kesulitan dengan metode pertama diatas, kamu bisa menggunakan cara selanjutnya ini cukup dengan masuk ke website khusus yang memang dirancang untuk membantu pengguna dalam membuka password yang lupa.

Kamu tinggal masukkan file kemudian tunggu beberapa saat sampai benar-benar sistem berhasil membukanya.

  1. Silahkan buka website lostmypass.com.Buka Webstei LostMyPass
  2. Pertama kali kamu disuruh untuk menekan tombol “I’am not robot” untuk sekedar konfirmasi.
  3. Jika sudah kamu bisa drag file excel yang terkunci atau tekan tombol “or click here” untuk memasukkan file secara manual.
  4. Tunggu sampai sistem memunculkan berita Sukses!, lalu kamu bisa download file tersebut.

3. Cara Membuka Password Excel Dengan Mengunggah Google Drive

Terakhir cara membuka password Excel yang lupa yaitu bisa dengan mengunggah file tersebut ke Google Drive. Pastikan kamu sudah memiliki akun Google Drive, jika belum syaratnya harus punya akun Gmail terlebih dahulu.

  1. Tekan tombol +Baru di pojok kiri atas.Buka GDrive Lalu Tekan Tombol Baru
  2. Kemudian kamu bisa pilih Upload File.Tekan Tombol Upload File
  3. Pilih file Excel yang terpasang password, lalu tekan tombol Open.Pilih Salah Satu File Excel Yang Akan Dibuka
  4. Jika sudah terunggah, klik kanan file Excel tersebut lalu pilih tekan Buka Dengan -> Google Spreadsheet.Klik Kanan File Excel Yang Diunggah Lalu Buka Dengan SpreadSheet
  5. Secara otomatis proteksi di file Excel tersebut hilang dan kamu bisa melihat isi data di dalamnya.
  6. Unduh kembali file Excel tersebut, dengan cara tekan tombol File kemudian Download As ➜ Microsoft Excel.Save File Tersebut Lewat Menu File, Download Excel
  7. Selamat mencoba.
Bingung cara mengurutkan data berdasarkan tanggal di Excel ? Ikuti cara mengurutkan tanggal di Excel.

Akhir Kata

Jadi sekarang kamu gak perlu khawatir lagi baik itu lupa password atau memang ingin membuka file Excel yang diproteksi dengan sandi.

Cukup gunakan metode yang sudah kita sediakan diatas, dan pilih salah satu cara mana yang dinilai paling simpel dan mudah. Semoga bermanfaat.

Tentang Penulis

Suka hal yang bertopik teknologi.

Tulis Komentar