Cara Mudah Bongkar Password di Excel

Cara Mudah Bongkar Password di Excel

Apa anda pernah rasakan tak dapat membuka file excel lantaran terkunci dengan protect sandi? trik buka sandi excel penting anda pahami supaya bisa membuka di saat lagi diperlukan satu saat. Pada artikel ini akan diulas lengkap cara mudah bongkar paswword di excel

Microsoft Excel adalah salah satunya software yang ditingkatkan oleh perusahaan Microsof yang kerap dipakai buat menggarap helai kerja berbentuk angka. Kebanyakan memakainya untuk hitung dan mendata data keuangan dari sebuah perusahaan.

File pada excel juga bisa disandi biar tidak semuanya orang bisa lakukan perombakan data. Bila sebuah file dalam aplikasi Excel telah dikasihkan sandi atau Protek Sheet, jadi siapa saja tak dapat mengganti file excel itu terkecuali yang mengenali apa sandi dari file excel itu.

Spesifikasi sandi pada file excel amatlah berguna, tapi apa anda pernah pikir di saat satu saat anda sendiri lupa apa sandi excel anda? Meski sebenarnya file excel itu paling penting dan anda mesti melakukan perombakan atau merevisi file excel itu.

Tak usah cemas, masih tetap ada trik buat buka protect sandi file excel yang terkunci dengan simpel. Juga anda tak butuh memakai kontribusi software yang lain.

Anda juga hanya perlu dengan aplikasi Excel supaya bisa buka file excel yang terkunci itu. 

Cara Membongkar Password Excel Tanpa Software

trik membuka sandi file excel yang dilindungi ini akan memakai contoh pada Microsoft Excel 2007. Bila Anda memakai versi lain di atasnya ataupun di bawahnya, Anda cukup sesuaikan lantaran pada prinsipnya tak kan jauh beda.

Buat buka sandi file excel yang terkunci ada dua trik yang bisa Anda coba. Anda tak usah memakai software apa saja supaya bisa buka protect file excel yang anda butuhkan.

Buat yang pertama ialah anda bisa buka file excel dengan cara langsung tanpa ada perlu sandi. Dan dan buat trik yang ke-2 , anda dapat mengenali dan tampilkan sandi yang dipakai di file excel.

1. Trik Membuka Password Excel

Salah satu tanda file excel memakai sandi atau dilindungi ialah di saat anda lakukan double click pada helai kerja, maka tampil sebuah peringatan seperti gambar berikut di bawah ini.

Cara Mudah Bongkar Password di Excel


Jikalau Anda tak mengenali apa sandi yang dipakai dalam file excel itu, ikuti trik buka password Excel berikut di bawah ini:

  • Open file excel yang diprotek atau memakai password.
  • Pencet tombol Alt + F11 pada keiboard untuk munculkan VB di aplikasi excel.
  • Click di dalam menu Insert lalu pilih Module.

    Cara Mudah Bongkar Password di Excel

  • Akan tampil forem module, Anda harus copy paste code di bawah ini ke form module.

    Public Sub Remove_Password()
            
            ' Mr. Ell Berbagi Tutorial 27-Dec-2019 (Version 1.1)
            ' Reveals hashed passwords NOT original passwords
            Const DBLSPACE As String = vbNewLine & vbNewLine
            Const AUTHORS As String = DBLSPACE & vbNewLine & _
                    "Mr Ell Berbagi Tutorial " & _
                    "www.mr-ell.com "
            Const HEADER As String = "Mr. Ell Berbagi Tutorial "
            Const VERSION As String = DBLSPACE & "Version 1.2 2021-Mei-23"
            Const REPBACK As String = DBLSPACE & "Support Us " & _
                    "on Youtube Channel and Website"
            Const ALLCLEAR As String = DBLSPACE & "Sekarang password dah ilang " & _
                    "silahkan cek pada lembar kerjamu, dan jangan lupa:" & _
                    DBLSPACE & "SEGERA DI SIMPAN!" & DBLSPACE & "OJO LALI" & _
                    DBLSPACE & "COPY!!!" & _
                    DBLSPACE & "Ingat, passwordnya, " & _
                    "Mungkin satu saat kamu. Akan membutuhkannya lagi " & _
                    "OK." & DBLSPACE & "Semoga bermanfaat " & _
                    "and kepp calm."
            Const MSGNOPWORDS1 As String = "Kelihatannya gak ada password " & _
                    "di lembar kerja ini bro." & AUTHORS & VERSION
            Const MSGNOPWORDS2 As String = "Sek sabar, di cek meneh! " & _
                    "intip dulu password yang nyelip." & DBLSPACE & _
                    "klik OK untuk proses selanjutnya." & AUTHORS & VERSION
            Const MSGTAKETIME As String = "Setelah kamu klik OK ! " & _
                    "SABAR OJO KESUSU." & DBLSPACE & "Mungkin butuh beberapa saat " & _
                    "untuk proses breakernya, tergantung pada, " & _
                    "kerunyeman dan kerumitan password, serta spek komputermu.." & DBLSPACE & _
                    "Sabar dan tunggu bro! Jangan lupa KOPI! " & AUTHORS & VERSION
            Const MSGPWORDFOUND1 As String = "YOSH Password dah kebongkar " & _
                    "Struktur dan password di set lagi." & DBLSPACE & _
                    "nih passwordnya : " & DBLSPACE & "$$" & DBLSPACE & _
                    "ALHAMDULILLAH " & _
                    "Sekarang cek saja di lembar kerjamu." & DBLSPACE & _
                    "Bismillah bisa di klik sheetnya." & AUTHORS & VERSION
            Const MSGPWORDFOUND2 As String = "YOSH Password dah kebongkar " & _
                    "Struktur dan password di set lagi." & DBLSPACE & "nih passwordnya : " & _
                    DBLSPACE & "$$" & DBLSPACE & "Saatnya bilang : " & _
                    "ALHAMDULILLAH " & _
                    "Sekarang cek saja di lembar kerjamu." & DBLSPACE & "Ucapkan : " & _
                    "Bismillah, Insya Allah bisa di klik sheetnya." & AUTHORS & VERSION
            Const MSGONLYONE As String = "Only structure / windows " & _
                     "protected with the password that was just found." & _
                     ALLCLEAR & AUTHORS & VERSION & REPBACK
            Dim w1 As Worksheet, w2 As Worksheet
            Dim i As Integer, j As Integer, k As Integer, l As Integer
            Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
            Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
            Dim PWord1 As String
            Dim ShTag As Boolean, WinTag As Boolean
            
            Application.ScreenUpdating = False
            With ActiveWorkbook
                WinTag = .ProtectStructure Or .ProtectWindows
            End With
            ShTag = False
            For Each w1 In Worksheets
                    ShTag = ShTag Or w1.ProtectContents
            Next w1
            If Not ShTag And Not WinTag Then
                MsgBox MSGNOPWORDS1, vbInformation, HEADER
                Exit Sub
            End If
            MsgBox MSGTAKETIME, vbInformation, HEADER
            If Not WinTag Then
                MsgBox MSGNOPWORDS2, vbInformation, HEADER
            Else
              On Error Resume Next
              Do      'dummy do loop
                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
                With ActiveWorkbook
                  .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 .ProtectStructure = False And _
                  .ProtectWindows = False Then
                      PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
                        Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
                        Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
                      MsgBox Application.Substitute(MSGPWORDFOUND1, _
                            "$$", PWord1), vbInformation, HEADER
                      Exit Do  'Bypass all for...nexts
                  End If
                End With
                Next: Next: Next: Next: Next: Next
                Next: Next: Next: Next: Next: Next
              Loop Until True
              On Error GoTo 0
            End If
            If WinTag And Not ShTag Then
              MsgBox MSGONLYONE, vbInformation, HEADER
              Exit Sub
            End If
            On Error Resume Next
            For Each w1 In Worksheets
              'Attempt clearance with PWord1
              w1.Unprotect PWord1
            Next w1
            On Error GoTo 0
            ShTag = False
            For Each w1 In Worksheets
              'Checks for all clear ShTag triggered to 1 if not.
              ShTag = ShTag Or w1.ProtectContents
            Next w1
            If ShTag Then
                For Each w1 In Worksheets
                  With w1
                    If .ProtectContents Then
                      On Error Resume Next
                      Do      'Dummy do loop
                        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
                        .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 Not .ProtectContents Then
                          PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
                            Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
                            Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
                          MsgBox Application.Substitute(MSGPWORDFOUND2, _
                                "$$", PWord1), vbInformation, HEADER
                          'leverage finding Pword by trying on other sheets
                          For Each w2 In Worksheets
                            w2.Unprotect PWord1
                          Next w2
                          Exit Do  'Bypass all for...nexts
                        End If
                        Next: Next: Next: Next: Next: Next
                        Next: Next: Next: Next: Next: Next
                      Loop Until True
                      On Error GoTo 0
                    End If
                  End With
                Next w1
            End If
            MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
        End Sub


  • Tentukan Sheet yang ingin dibuka. Contoh pilih Sheet 1 dan click simbol Run Macro atau memencet tombol F5.

Cukup tunggu sampai proses buka excel usai. Saat yang dibutuhkan untuk proses, bergantung pada ukuran file excel anda . Maka, kian kecil ukuran dan sedikit data yang ada, jadi kian cepat proses yang dibutuhkan.

Kadangkala bila file excel begitu besar, umumnya software excel akan alami not responding. Tapi anda tak usah risau, meskipun demikian file excel akan terus terbuka protectnya.

2. Munculkan Sandi Excel
trik yang ke-2 ini ialah untuk tampilkan apa sandi yang dipakai pada file excel yang dilindungi. Seusai anda telah mengetahui apa sandi yang difungsikan di file excel, Anda bisa Unprotect Sheet pada file excel seperti umumnya.

Buat trik munculkan sandi file excel tak selisih jauh dengan pertama buat buka file excel yang terkunci. Tapi, anda harus memakai code berikut di bawah ini buat dimasukkan pada form modul.

Bila anda telah masukkan code di atas ke form modul, nantikan sampai proses tuntas. Seusai anda telah sukses mendapat sandi excel itu, tutup Microsoft Visual Basic.

Lalu buat membuka, di saat di halaman Excel putuskan pilihan menu Kajian lalu click pilihan Unprotect Sandi. Dan paling akhir, masukan sandi excel yang sesuai sandi yang telah anda peroleh.

Nach, itu dua trik yang bisa anda coba ke file excel buat buka sandi excel yang terkunci. Anda bisa membuka dengan cara langsung ataupun mengenali apa sandinya lebih dulu. Putuskan sama dengan keinginan anda.