
Např. takto lze uzamknout "List1" pod heslem "kleslo" pro dvě oblasti. Určitě je možné toto parametrizovat a definovat někde na listu.
Sub ProtectSheet()
Dim MySheet As Worksheet
Set MySheet = Worksheets("List1")
MySheet.Protection.AllowEditRanges.Add Title:="prvniOblast", Range:=Range("F2:D4"), Password:="kleslo"
MySheet.Protection.AllowEditRanges.Add Title:="druhaOblast", Range:=Range("B2:H4"), Password:="kleslo"
MySheet.Protect Password:="kleslo"
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Subcitovat