Cara Unprotect Semua Sheet dengan Satu Kali Klik di Excel

Berikut cara unprotect semua sheet dengan satu kali klik:
masukan kode ini ke module anda, kemudian jalankan....

Sub UnProtecAll()
Dim wSheet As Worksheet
Dim sPwd As String
  
    sPwd = InputBox("", "")
    On Error GoTo errHndl
    For Each wSheet In ThisWorkbook.Worksheets
        wSheet.Unprotect sPwd
    Next
  
    MsgBox "All sheets unprotected."
Exit Sub
errHndl:
    MsgBox """" & sPwd & """ is incorrect"
End Sub

selamat mencoba semoga berhasil.