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.
Trending  Cara Rekam Layar Laptop Menggunakan OBS Studio


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.

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *