Breaking News
Loading...
Rabu, 07 Agustus 2013

Cara membuka data MS Excel Yang Diberi Password

Mungkin demi sebuah data yang penting, maka anda mengunci file yang telah anda buat. Dengan demikian maka tidak semua orang bisa membuka file tersebut dan digunakan sesuka hatinya.


Pada data yang dibuat di Ms Excel pun dapat diprotect dengan memberikan password untuk dapat mengedit atau merubahnya. Kalau dalam waktu yang dekat pasti anda akan mengingat password dari data tersebut. Tapi bagaimana jika sudah terlalu lama? Mungkin anda akan lupa dengan passwordnya.


Berikut adalah Cara membuka data MS Excel Yang Diberi Password:


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


4. Salin kode dibawah ini dan tempel 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 A ctiveSheet.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


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


7. Setelah itu muncul jendela macros dan klik run


8. Muncul popup dan klik OK

0 komentar:

Posting Komentar

Dilarang Link Aktif!

Makna di balik setiap huruf Jawa

Hai teman2 lintas gaul,,berjumpa lagi nih dengan igo,,pada kesempatan minggu ini igo akan memberikan artikel dari temen saya yang suka seka...

Copyright © 2014 LINTASGAUL.ONLINE All Right Reserved