Kali ini admin akan berbagi kode Bagaimana memproteksi semua sheet secara instan dan cepat. Kode ini akan sangat berguna apabila kita memiliki program atau kumpulan sheet yang buanyak pada lembar kerja di excel kita.
Nah misalkan kita memiliki program kemudian kita tidak ingin rumus atau fungsi yang ada di dalamnya kena hapus maka kita memerlukan fungsi untuk proteksi supaya rumus atau fungsi tersebut tetap aman atau tidak terhapus.
Berikut kode vba untuk memproteksi semua cheat secara instan dan cepat
.
Sub ProteksiSemuaSheetInstan() Dim ws As Worksheet Dim ps As String ps = InputBox("Enter a Password.", vbOKCancel) For Each ws In ActiveWorkbook.Worksheets ws.Protect Password:=ps Next ws End Sub
Download File Contoh
Proteksi Semua Sheet Instan - OK.zip
Semoga bermanfaat,
Salam ALMaS.
Kantor berkreasi.net
Alamat :
Pens Sky Venture - Sukolilo Surabaya
Karangrejo Tmur 17 Surabaya
Email : Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya. Form Kontak : Klik Disini
WA : 085 331 270 386 im3 (CS / Ali)
Bank BNI
No.rek. 0865254338
Atas nama BERKREASI MULTITECH. CV
Bank BRI Cab. Wonokromo
No.rek. 0976 01 004629 50 8
Atas nama IMAS KHASANAH
Dr. Nugroho Eko Putro, M.Pd.
Iqbal F. Rakhmat, SE., MM., M.Kom
Budi Prasetya, ST., MM.
Amien sawedi, S.Pd.
Muhammad Risal Maros, M.Pd.
Didik P Wicaksono, M.Pd.
Wayan Mulyana, M.Pd.
Ali, M.Pd.