Membuka Protec Sheet yang dipassword - Belajar VBA Excel

          

           Kadang kita memprotec sebuah sheet dengan password namun kita lupa password yang kita gunakan sehingga kita tidak lagi bias membukanya  namun kode ini akan membantu anda membuka kembali tanpa menggunakan password

          Pastekan kode ini pada sebuah modul kemudian jalan modul  pada property vba klik run kemudian pilih f5  tunggu sesaat sheet protect sudah terbuka

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

Demikian semoga bermanfaat!!

Menjalankan perintah macro pada sheet yang di perotec - excel macro pemula

Untuk menjalankan perintah macro pada sheet yang diprotec langkah yang harus dilakukan adalah membuka protect sheet sebelum perintah dilaksanakan dan memprotec kembali setelah perintah selesai  dilaksanakan

Menjalankan perintah macro pada sheet yang di perotec

Membuat deklarasi dengan Dim
Dim Password

Password = "120"

Sheets("Sheet1").Protect Password, True, True, True

‘buka protec

Sheets("Sheet1").Unprotect Password

'…contoh perintah…………………….

Range("a1").Value = "tes protec"

'……………………….

Protect kembali

Password = "120"

Sheets("Sheet1").Protect Password, True, True, True

Kode lengkapnya :

Sub test ()

Dim Password

Password = "120"

Sheets("Sheet1").Protect Password, True, True, True

Sheets("Sheet1").Unprotect Password

Range("a1").Value = "tes protec"

Password = "120"

Sheets("Sheet1").Protect Password, True, True, True

End sub

sekian semoga bermanfat !!!

Memprotec semua cell yang mengandung formula - belajar VBA Excel

Untuk mengamankan rumus rumus atau formula kita perlu mengunci cell cell yang mengandung formula

Memprotec semua cell yang mengandung formula kode nya :

Sub lock_Cells_WithFormulas()

With ActiveSheet

.Unprotect

.Cells.Locked = False

.Cells.SpecialCells(xlCellTypeFormulas).Locked = True

.Protect AllowDeletingRows:=True

End With

End Sub