Home | Sitemap | Excel Tips and Tricks | Technology | Cerita Unik


Welcome to My Blog

Banyak pengguna excel menggunakan salah satu software spreadsheet canggih microsoft ini hanya sebagai alat bantu hitung. Padahal sebenarnya banyak sekali fitur-fitur excel yang sangat bermanfaat apabila kita mengetahuinya. Melalui Blog ini saya ingin berbagi beberapa fitur hebat lain excel pada anda. Selamat Mencoba!

Minggu, 10 Juni 2012

Membuka Proteksi Worksheet Excel Dengan Macro

Beberapa waktu yang lalu, ada seseorang teman yang terlihat cukup stress karena lupa password proteksi file excel nya sendiri sehingga dia tidak bisa menyelesaikan laporan yg sudah dead line.

Saya coba berikan solusi untuk membantunya membuka proteksi file excelnya dengan sedikit bantuan macro,

caranya adalah sebagai berikut:

ketikkan script berikut pada visual basic editor pada file excel yg akan dibuka proteksinya.

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

Selanjutnya, buka worksheet yg akan dibuka proteksinya lalu jalankan macro pada menu tools -> Macro

kemudian tekan alt+F11 untuk kembali bekerja pada worksheet anda yang telah terbuka proteksinya.


Salam.

4 komentar:

  1. udah di coba sih,,,tp percuma link rumusnya ikut ilang....harusnya link smua rumusnya jangan berubah donk....

    BalasHapus
    Balasan
    1. Dear friend,


      anda bisa coba trik pada posting dibawah ini:

      http://alfi-sahri-aja.blogspot.com/2012/12/membuka-proteksi-workbook-excel-tanpa.html

      Thanks atas masukannya.

      Hapus
  2. bisa buka password wifi gan, klu donasi boleh2 saja klu berhasil

    BalasHapus
  3. bisa buka password wifi gan??? klu mslah donasi yaa boleh2 saja klu berhasil

    BalasHapus

Baca Juga