Dobrý den,
děkuji za pomoc, vyřešila jsem to nakonec následovně:
při otevření souboru se spustí Input Box, který vyzve k zadání hesla. Podle zadaného hesla se pak kód dělí na několik částí, z nichž každá dle hesla odemkne určitou oblast buněk (která je proměnná, definována příznakem v příslušném sloupci).
Nakonec ale soubor bude řešet trochu jinak: Při každé změně buňky bude uživatel upozorněn, že změnil buňku.
Ošetřila jsem to kódem
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oblast1 As Range
Range("B18:O19").Select
Set Oblast = Selection
If Union(Oblast1, Target).Address = Oblast1.Address Then
MsgBox "..."
End If
Oblast1 si definuju trošku jinak jako proměnnou, ale uvedla jsem zkráceně.
Vše funguje, ale problém je v tom, že pokud uživatel buňku změní neúmyslně a nepamatuje si tudíž, jako hodnotu přepsal, nemůže se pomocí zpět vrát zpět. Lze to nějak ošetřit ???
Děkuji za pomoccitovat
děkuji za pomoc, vyřešila jsem to nakonec následovně:
při otevření souboru se spustí Input Box, který vyzve k zadání hesla. Podle zadaného hesla se pak kód dělí na několik částí, z nichž každá dle hesla odemkne určitou oblast buněk (která je proměnná, definována příznakem v příslušném sloupci).
Nakonec ale soubor bude řešet trochu jinak: Při každé změně buňky bude uživatel upozorněn, že změnil buňku.
Ošetřila jsem to kódem
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Oblast1 As Range
Range("B18:O19").Select
Set Oblast = Selection
If Union(Oblast1, Target).Address = Oblast1.Address Then
MsgBox "..."
End If
Oblast1 si definuju trošku jinak jako proměnnou, ale uvedla jsem zkráceně.
Vše funguje, ale problém je v tom, že pokud uživatel buňku změní neúmyslně a nepamatuje si tudíž, jako hodnotu přepsal, nemůže se pomocí zpět vrát zpět. Lze to nějak ošetřit ???
Děkuji za pomoccitovat
RSS nejnovější články