Ahoj,
potřeboval bych poradit s jedním makrem.
Mám sešit, ve kterém zapisuji do buněk ve 2 levých sloupcích (ostatní jsou zamčené). Do těch 2 odemčených sloupců doplňuji hodnoty, se kterými se dále pracuje v zamčených sloupcích.
Potřeboval bych dosáhnout toho, aby po vyplnění buňky se tato buňka automaticky zamkla (bez jakékoliv spolupráce uživatele), aby ji nebylo možné přepsat.
Makro pro zamknutí buňky jsem dokupy dal, ale potřeboval bych ho dodělat, aby pracovalo dle popisu výše.
ActiveSheet.Unprotect Password:="********"
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect Password:="********", DrawingObjects:=True, Contents:=True, Scenarios:=True
Pomůže někdo?
Předem děkuji.
Excel - Makro na zamykání buněk Vyřešeno
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel - Makro na zamykání buněk
Ahoj,
použij toto. Nakopíruj VBA do listu kde chceš ty buňky zamykat.
použij toto. Nakopíruj VBA do listu kde chceš ty buňky zamykat.
Kód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="********"
Target.Locked = True
Target.FormulaHidden = False
ActiveSheet.Protect Password:="********", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Re: Excel - Makro na zamykání buněk
Díky! Funguje.
Bylo by obtížné přidat, aby se buňka zamkla jen za určité podmínky?
Pro sloupec A by to bylo např. lenb > 10, pro B lenb < 10
Bylo by obtížné přidat, aby se buňka zamkla jen za určité podmínky?
Pro sloupec A by to bylo např. lenb > 10, pro B lenb < 10
-
- Level 4.5
- Příspěvky: 1544
- Registrován: březen 11
- Bydliště: Drsná Vysočina :D
- Pohlaví:
- Stav:
Offline
Re: Excel - Makro na zamykání buněk
Nevím jestli jsem správně tu podmínku pochopil, uprav dle libosti.
Kód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
If Union(Columns("A"), Target).Address = Columns("A").Address Then
If Len(b) > 10 Then GoTo splneno
End If
If Union(Columns("B"), Target).Address = Columns("B").Address Then
If Len(b) < 10 Then GoTo splneno
End If
GoTo konec ' preskoc uzamykání
splneno:
ActiveSheet.Unprotect Password:="********"
Target.Locked = True
Target.FormulaHidden = False
ActiveSheet.Protect Password:="********", DrawingObjects:=True, Contents:=True, Scenarios:=True
konec:
End Sub
Re: Excel - Makro na zamykání buněk
Snažil jsem se to upravit, bohužel vždy fungovalo jen na jedné buňce a pak přestalo.
Nomohl by jsi to upravit tak, aby:
- pro sloupec A platilo:
- pokud zadám do buňky hodnotu kratší než 10 znaků, nestane se nic
- pokud zadám do buňky hodnotu delší než 10 znaků, buňka se zamkne
- pro sloupec B platilo:
- pokud zadám do buňky hodnotu delší než 10 znaků, nestane se nic
- pokud zadám do buňky hodnotu kratší než 10 znaků, buňka se zamkne
Děkuji za pomoc.
Nomohl by jsi to upravit tak, aby:
- pro sloupec A platilo:
- pokud zadám do buňky hodnotu kratší než 10 znaků, nestane se nic
- pokud zadám do buňky hodnotu delší než 10 znaků, buňka se zamkne
- pro sloupec B platilo:
- pokud zadám do buňky hodnotu delší než 10 znaků, nestane se nic
- pokud zadám do buňky hodnotu kratší než 10 znaků, buňka se zamkne
Děkuji za pomoc.
Re: Excel - Makro na zamykání buněk
To je ono, díky!
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 9
- 1186
-
od mmmartin
Zobrazit poslední příspěvek
29 srp 2023 16:47
-
- 16
- 6495
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 2
- 1905
-
od honzzicek
Zobrazit poslední příspěvek
01 črc 2023 08:57
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 11
- 3415
-
od teichmann.ondrej
Zobrazit poslední příspěvek
22 dub 2024 15:45
-
-
- 1
- 514
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 43 hostů