modul3
16. 3. 2025
Sub LockSheet()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("List1") ' Uprav název listu podle potřeby
' 1) Odemkneme list, pokud byl chráněný
ws.Unprotect
' 2) Nastavíme všechny buňky jako zamčené
ws.Cells.Locked = True
' 3) Sloupec A odemkneme
ws.Range("A:A").Locked = False
' 4) Zamkneme list s parametry
' - UserInterfaceOnly:=True: makra mohou měnit zamčené buňky
' - Uživatel smí upravovat jen odemčené buňky
ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True
' 5) Povolíme vybírat jen odemčené buňky
ws.EnableSelection = xlUnlockedCells
End Sub