Membongkar Proteksi Sheet dengan VBA Macros

Copy Coding dibawah pada Vba --> pada This Workbook


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

lalu play

kemudian anda chek pada sheet di excel maka proteksi sudah terbuka .....

Excel Lanjutan

• Membuat Combo box dengan Data Validation
• Memproteksi Sheet

memproteksi sheet

Mengunci cells di dalam Excel berguna untuk mengamankan data yang terdapat dalam cells tersebut agar tidak bisa diubah orang lain. Tahapannya adalah sebagai berikut:

1. Menghilangkan locked semua cells (kalau ini tidak dilakukan, semua cells nanti akan terkunci) > select all sheet (ctrl+a) > klik kanan > format cells > protection > contreng locked dihilangkan
2. Mengunci cell. Pilih cells yang akan dikunci > klik kanan > format cells > protection > pastikan tab locked tercontreng > ok
3. Memasukkan passwor. Masuk ke tab review > protect sheet > pastikan select locked cells tidak tercontreng > masukkan password > ok

APLIKASI

• Aplikasi Seleksi Karyawan dengan Macro Excel
• Contoh Aplikasi excel yang diproteksi sheet
• Aplikasi Nilai 
•  Contoh Exel dengan Formula