Kamis, 16 April 2015

Cara Membuka File Excel yang Diprotect



Cara 1 :


1. Klik kanan sheet pilih view code
2. Klik Insert pilih Module
3. Copy dan paste code berikut ini

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

4. Klik Tools pilih Macros
5. Pilih RUN

Cara 2 :

Gunakan Google Doc

Layanan online dari Google ini bisa membuat protect dari Excel itu menjadi hilang.
2. Login dengan akun Gmail Anda.
3. Upload file Excel yang terproteksi tersebut ke dalam Google Doc





4. Tunggu filenya sampai selesai diupload, setelah itu klik kanan file tersebut pilih Open With » Google Sheets
5. Akan terbuka tab baru dan silakan anda simpan file tersebut dengan cara
  • Klik menu File.
  • Pilih Download As
  • Microsoft Excel (.xlsx)

Tidak ada komentar:

Posting Komentar