Cara Protect Semua Sheet Dengan Satu Kali Klik Di Excel

Berikut cara protect semua sheet:
masukan kode ini ke module anda, dan jalankan....

Sub ProtectAll()
    
    Dim wSheet          As Worksheet
    Dim Pwd             As String
    
    Pwd = InputBox("Enter your password to protect all worksheets", "secret")
    For Each wSheet In Worksheets
        wSheet.Protect Password:=Pwd
    Next wSheet
    
End Sub

selamat mencoba, semoga berhasil.