Proteksi Semua Sheet Secara Instan

VBA 37.jpg

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

zip.png Proteksi Semua Sheet Instan - OK.zip

 

Semoga bermanfaat,

Salam ALMaS.

 

 

HUBUNGI KAMI

Kantor berkreasi.net
Alamat :
 

Pens Sky Venture - Sukolilo Surabaya

Jl. Cilincing jakarta utara

Email              : Alamat email ini dilindungi dari robot spam. Anda memerlukan Javascript yang aktif untuk melihatnya.
Form Kontak  : Klik Disini
WA : 085 606 139 312  im3 (CS / Ali)

Pembayaran Via Transfer :

bni.jpg
Bank BNI Cab. Jember
No.rek. 019 598 5992
Atas nama Sdri IMAS KHASANAH

bri.jpg
Bank BRI Cab. Wonokromo
No.rek. 0976 01 004629 50 8
Atas nama IMAS KHASANAH

TIM PENGEMBANG

Dr. Nugroho Eko Putro, M.Pd.
Amien sawedi, S.Pd.
Aries Eko Wibowo, S.Pd. MM.
Fauzan, M.Kom.
Sahrudin, M.Pd.
Budi Prasetya, ST., MM.
Muhammad Risal Maros, M.Pd.
Didik P Wicaksono, M.Pd.
Wayan Mulyana, M.Pd.
Patrick A. Kembuan, S.Kom
Ali, M.Pd.