With a password or not?
These apply a password.
Sub SHEETPROTECT()
ActiveSheet.Protect Password:="justme"
End Sub
Sub SHEETUNPROTECT()
ActiveSheet.Unprotect Password:="justme"
End Sub
Note: if youe users are snoopy, you should lock your VBA Project for viewing.
And be aware that worksheet and workbook protection is easily cracked so
protecting a sheet only prevents accidents.
Gord Dibben Excel MVP