Breaking News

02 Mei 2023

Cara Membuka Cell Excel yang diprotect Password tanpa Software


السلام عليكم و رحمة الله و بركاته
بسم الله و الحمد لله
اللهم صل على سيدنا محمد و على أله
 Ùˆ صحبه أجمعين

Salam Sahabat Hanapi Bani.

Kadang demi keamanan data yang telah dibuat, biasanya yang dilakukan oleh user adalah dengan memberi password pada file yang dibuatnya. Dengan demikian maka tidak semua orang bisa membuka file tersebut dan digunakan seenak hatinya sendiri. Data-data yang diprotect tersebut biasanya berupa data-data penting yang tidak semestinya diubah oleh orang yang tidak berkepentingan didalamnya. Pada data yang dibuat di Ms Excelpun dapat diprotect atau diamankan dengan diberi sandi atau password untuk dapat mengedit atau merubahnya. Biasanya yang sering diberi password adalah sel (cell) yang terdapat rumus tertentu yang tidak boleh dirubah sembarangan. Ketika anda akan mengubah data di cell yang diprotect, akan muncul jendela agar memasukkan password

Password tersebut ketika baru saja dibuat, akan aman-aman saja alias akan masih tetap teringat dikepala. Namun bila file tersebut sudah lama tidak dibuka karena terdapat file-file baru, maka bisa jadi password atau sandi yang dulu dibuat menjadi terlupakan. Akibatnya anda sendiri tidak bisa edit file yang telah anda buat sendiri. Untuk mengatasi hal tersebut, anda dapat menggunakan cara dibawah ini.

  1. Buka file excel yang cellnya diprotect.
  2. Tekan tombol Alt+F11, maka akan muncul jendela Microsoft Visual Basic For Application.
  3. Klik insert kemudian pilih Modul

    Module
  4. Copy code dibawah ini dan paste di jendela modul yang muncul.
    Sub PasswordBreaker()
    'Author unknown but submitted by brettdj of www.experts-exchange.com
    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)
    ActiveWorkbook.Sheets(1).Select
    Range("a1").FormulaR1C1 = 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
  5. Jika sudah klik save (atau simpan)

    code
  6. Masih di jendela Microsoft Visual Basic, klik menu Tools kemudian pilih Macros

    Macros
  7. Setelah itu muncul jendela macros dan klik run

    run
  8. Muncul popup dan klik OK
  9. Selamat….. cell yang dikunci sudah dapat dibuka kembali.

    Demikian informasi yang dapat kami sampaikan tentang "Cara membuka cell excel yang diprotect password tanpa software ", semoga bermanfa'at.  
     
    Terimakasih atas kunjungannya, mohon doa' agar kami sekeluarga diberikan kesehatan dan blog ini terus berkembang serta berguna bagi semua orang.
    Memberi manfa'at baik di dunia maupun di akhirat.

    Untuk mendapatkan pemberitahuan langsung mengenai artikel terbaru di facebook dari website ini silakan klik suka pada halaman kami  HANAPI BANI 

    atau gabung Group kami;

    Youtube ;(Klik DISINI)
    Komunitas WA ;(Klik DISINI)
    WA 1 ; (Klik DISINI)
    WA 2 ; (Klik DISINI)
    WA 3 ; (Klik DISINI)
    WA 4 ; (Klik DISINI)

    WA 5 ; (Klik DISINI)
    WA 6 ; (Klik DISINI)
    WA 7 ; (Klik DISINI)
    WA 8 ; (Klik DISINI)
    WA 9 ; (Klik DISINI)
    WA 10 ; (Klik DISINI)
    WA 11 ; (Klik DISINI)
    WA 12 ; (Klik DISINI)
    WA 13 ; (Klik DISINI)
    WA 14 ; (Klik DISINI)
    WA 15 ; (Klik DISINI)
    Telegram ; (Klik DISINI)
    Bip ; (Klik DISINI)
    Halaman FB 
    (Klik DISINI)

    Ùˆ ØµÙ„Ù‰  Ø§Ù„له Ø¹Ù„Ù‰ سيدنا محمد Ùˆ على أله
     Ùˆ صحبه أجمعين
    ثم السلام عليكم و رحمة الله و بركاته

    Protected by Copyscape  

0 Comments

Tidak ada komentar:

Translate

Artikel Terbaru

Khutbah Jumat: Mari Tata Niat agar Ibadah Menjadi Nikmat

السلام عليكم Ùˆ رحمة الله Ùˆ بركاته بسم الله Ùˆ الحمد لله اللهم صل Ùˆ سلم على سيدنا محمد Ùˆ على أله  Ùˆ صحبه أجمعين Salam Sahabat  Hanapi...

Powered by BeGeEm - Designed Template By HANAPI