MS Excel

ahoj zkus tohle:

Option Explicit
Dim heslo As String

Sub NastavitHeslo()
heslo = "tvojeHeslo"
End Sub

Sub ZamknutZosit()
Call NastavitHeslo
Dim ws As Worksheet

' Zamknutie konkrétnych hárkov
Set ws = ThisWorkbook.Sheets("Hárok1")
ws.Unprotect Password:=heslo
ws.Cells.Locked = True
ws.Range("H5,H7,E13:E64,E76:G128,G13:G64,G76:G128,D132,D134,D136,D138").Locked = False
ws.Protect Password:=heslo, AllowUsingPivotTables:=True, AllowSorting:=True, AllowFiltering:=True, AllowFormattingCells:=True
ws.EnableSelection = xlUnlockedCells

Set ws = ThisWorkbook.Sheets("Hárok2")
ws.Unprotect Password:=heslo
ws.Cells.Locked = True
ws.Range("D2").Locked = False
ws.Protect Password:=heslo, AllowUsingPivotTables:=True, AllowSorting:=True, AllowFiltering:=True, AllowFormattingCells:=True
ws.EnableSelection = xlUnlockedCells

Set ws = ThisWorkbook.Sheets("Hárok5")
ws.Unprotect Password:=heslo
ws.Cells.Locked = True
ws.Range("E1,F1,E53:E56,H53:H56").Locked = False
ws.Protect Password:=heslo, AllowUsingPivotTables:=True, AllowSorting:=True, AllowFiltering:=True, AllowFormattingCells:=True
ws.EnableSelection = xlUnlockedCells

' Zamknutie celého zošita
ThisWorkbook.Protect Password:=heslo, Structure:=True, Windows:=False

MsgBox "Zošit a hárky boli úspešne zamknuté."
End Sub

Sub OdomknutZosit()
Call NastavitHeslo
Dim ws As Worksheet

' Odomknutie konkrétnych hárkov
Set ws = ThisWorkbook.Sheets("Hárok1")
ws.Unprotect Password:=heslo
ws.Range("H5,H7,E13:E64,E76:G128,G13:G64,G76:G128,D132,D134,D136,D138").Locked = True

Set ws = ThisWorkbook.Sheets("Hárok2")
ws.Unprotect Password:=heslo
ws.Range("D2").Locked = True

Set ws = ThisWorkbook.Sheets("Hárok5")
ws.Unprotect Password:=heslo
ws.Range("E1,F1,E53:E56,H53:H56").Locked = True

' Odomknutie celého zošita
ThisWorkbook.Unprotect Password:=heslo

MsgBox "Zošit a hárky boli úspešne odomknuté."
End Sub
citovat

ahoj,
vyzkoušej tohle (viz příloha). Udělal jsem tam pár změn.

Pokud by to stále nefungovalo musel bych vidět ten sešit.

*rozbal a naimportuj modul "oprava" do svého sešitu.citovat

Ahoj,
vlož modul "Zamok" z přílohy, a starý modul "Oprava" smaž.
Omlouvám se za tak podrobný popis nevím jaké máš znalosti VBA, proto raději to rozepisuji víc.

1.Upravil jsem makro, ale původně nebylo řečeno, že je tam víc listů (hárků). Teď ale by mělo zamykat všechny listy

2. Přidal jsem kontextové menu pro volání makra ZamknutBunky nebo odemknutBunky to znamená že při kliknutím pravým tlačítkem myši, se na spodku lišty ukáže rozevírací menu s názvem "Zámok Hárkov" pro správnou funkčnost je potřeba přidat příkaz do "ThisWorbook" ve VBA editoru , uložit a restartovat Excel.Private Sub Workbook_Open()
Call PridejKontextMenu
End Sub
3. Na to, aby se ti spouštěli jiné makra pro zápis do buněk, budeš muset v každém makru zavolat na začátku příkaz "Call OdomknutZosit" a na konec zase příkaz "Call ZamknutZosit".
Příklad je uvedený v modulu (poslední makro)

4. Přidal jsem InputBox pro zadávání hesla při odemykání momentálně je heslo nastavené na 1111 ,takže při manuálním odemykání buněk budeš vyzván k zadání hesla, při ostatních volaní maker, heslo žádat nebude, stejně nebude vyskakovat msgbox o zamknuti nebo odemknuti.citovat