Langsung ke konten utama

CARA MEMBUKA PROTECT SHEET PADA EXCEL TANPA MEMASUKKAN PASSWORD




Terkadang kita mendapat suatu pekerjaan yang mengharuskan kita menggunakan aplikasi oleh/dari pihak tertentu, tapi dalam pengerjaan seringkali mendapat kendala. Misalnya, ditengah-tengah memasukkan data, ternyata ada yang error (namanya juga buatan manusia, seringkali tidak sempurna kan ya), tapi ternyata eh ternyata Ms. Excel tersebut tida bisa diedit. Seperti yang terjadi pada di bawah ini:
 

MENGAPA????? WHY????? OUTOKKEEEEEE??????
Kalian ingin membuka dengan password, tapi apa yang terjadi, ternyata kalian lupa atau bahkan tidak tahu passwordnya apa. And then, kalian menjadi malas untuk melanjutkan pekerjaan itu lagi.
Tenang-tenang wahai saudaraku, disinilah saya hadir untuk menjawab pertanyaan dan doa kalian selama ini.
Berikut adalah hal-hal yang harus dilakukan:
      1. NIAT (ini penting banget)
       2. Membuka sheet yang diprotect
       3. Lalu klik kanan pada sheet yang masih diprotect dan pilih view code

    4.   Lalu akan muncul tampilan seperti ini,

 
        5. Nah disinilah kalian harus memasukkan script dibawah ini pada tampilan nomor 4 tersebut
Sub InternalPasswords()

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

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)

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 ActiveWorkbook.ProtectStructure = False Then

If ActiveWorkbook.ProtectWindows = False Then

If ActiveSheet.ProtectContents = False Then

Exit Sub

End If

End If

End If

Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next

End Sub

      6. Setelah kalian memasukkan script tersebut, klik tools pada menu bar dan pilih macros

 
       7. lalu akan muncul tampilan seperti dibawah ini, maka klik Run

 
      8. tunggu sampai proses running selesai
9.      9. jika sudah, maka tutuplah dengan melakukan hal dibawah ini,

         10. InsyaAllah, Sheet sudah unprotect, maka dari itu kita ucapkan Alhamdulillah..
Begitulah, semoga bermanfaat.
Tinggalkan komentar anda !! (sedikit memaksa)


Komentar

Posting Komentar

Postingan populer dari blog ini

KONEKSI ANTAR MATERI 3.1 "Setelah saya mempelajari modul ini, ternyata sebuah keputusan meskipun sudah melalui beberapa pengujian dan dianggap benar, tetaplah ada konsekuensinya." “MENGAJARKAN ANAK BERHITUNG ITU BAIK, NAMUN MENGAJARKAN MEREKA APA YANG BERHARGA/UTAMA ADALAH YANG TERBAIK” (Teaching kids to count is fine but teaching them what counts is best). Bob Talbert   1.       Dari kutipan diatas, apa kaitannya dengan proses pembelajaran yang sedang anda pelajari saat ini? Menurut saya, kaitan kutipan diatas dengan proses pembelajaran yang sedang saya pelajari yaitu mengenai permasalahan dilema etika, antara mengedepankan materi atau nilai dari sebuah materi atau melalui pendidikan karakter. 2.        Bagaimana nilai-nilai atau prinsip-prinsip yang kita anut dalam suatu pengambilan keputusan dapat memberikan dampak pada lingkungan kita? Nilai-nilai dalam suatu pengambilan keputusan yang saya yakini yaitu pengambilan keputusan har...
Posting Komentar
Baca selengkapnya

Konsep dalam Mengambil Keputusan Menurut Saya

  Catatan ini adalah bentuk suatu kebingungan yang harusnya tidak membingungkan. Secara sederhana kalau tidak mau ikut ya tidak ikut, kalau mau ya ikut. Mungkin terkesan mudah, tapi untuk memutuskan hal tersebut terkadang harus melalui tanya-tanya orang lain dulu, menimbang kelebihan dan kekurangannya, atau pertimbangan-pertimbangan lain.  18 Februari 2023 adalah hari pengukuhan pendidikan profesi guru yang saya telah saya selesaikan pada tahun 2022. Memang dulu waktu awal perkuliahan pendidikan profesi ini, momen itu adalah saat yang dinanti-nantikan. Bahkan dulu sebelum lolos pretestnya sudah percaya diri membuat kebaya untuk wisuda profesi nanti. Lah ternyata saat hari h, malah tidak bisa mengikutinya.  Mengapa demikian? ya karena saya sudah memilih, sudah menentukan, sudah mengambil keputusan. Apa konsekuensinya? Apa hasil akhirnya? Keputusan adalah  suatu reaksi terhadap beberapa solusi alternatif yang dilakukan secara sadar dengan cara menganalisa kemungkinan-...
4 komentar
Baca selengkapnya

WAWASAN KEBANGSAAN

Catatan ini dibuat tahun 2018 sebelum tes skd cpns. And finally, 2019 resmi jadi cpns. Dan sekarang malah sudah bersertifikat profesi guru. One of my wishlist satu persatu terkabul. Alhamdulillah 1.         Secara Etimologis: Pancasila-Sansakerta-Kitab Budha Tripiaka 2.         Secara Terminologis: 18 Agustus 1945 PPKI mengesahkan UUD 45 yang didalamnya ada pancasila 3.         PANCASILA KONSTITUSI RIS (29-12-49 S.D 17-8-50) = KONSTITUSI UUDS (17-8-50 S.D 5-7-59) KALANGAN MASYARAKAT Ketuhanan YME Ketuhanan YME Peri Kemanusiaan Peri Kemanusiaan Kebangsaan Kebangsaan Kerakyatan Kedaulatan Rakyat Keadilan Sosial Keadilan Sosial 1.         Kronologi lahirnya pancasila a.        Jepang menyerang Pearl Harbor (8 ...
Posting Komentar
Baca selengkapnya