Příspěvky uživatele

Tak snad již mám řešení, které už snad funguje.

...
ActiveSheet.Unprotect Password:="123"

...
ActiveSheet.Protect Password:="123", AllowFormattingCells:=True, AllowFiltering:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlLockedCells
Application.EnableEvents = True
End Sub

Pohyb mi umožňuje NoRestriction, ale to mi zase zablokuje zámek v poslední buňce.

ActiveSheet.Protect Password:="123", AllowFormattingCells:=True, AllowFiltering:=True, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
Application.EnableEvents = True
End Sub

Do A2:T501 se budou nahrávat data, se kterými bude dále pracovat konkrétní pracovník.
ostatní pracovníci budou pracovat v oranžové části U:AE, ale měli by mít možnost vidět data v A:T.
Zámek jsem již zkusil, ale když A:T označím jako odemčeno, tak pak je celá oblast přístupná pro editaci všem, což nemá být.
Není to náhodou v "Next cell", že přeskočí na nejbližší "volnou" buňku a vynechává právě ty uzamčené?

Jirko, moc děkuji za řešení.

Už snad jen poslední věc. Tím, že je list uzamčen, není možné se šipkami posouvat vpravo a vlevo po celém sešitě. Uživatel má možnost se posouvat jen ve zpřístupněných žlutých polích. To, že je část A-T uzamčena se hodí, ale potřebuji, aby se uživatel měl možnost po řádku posouvat i na začátek souboru, např. do A1, atd...

Předpokládám, že je to jen nějaká drobnost, ale nevím, kde.

Dobrý den,

obracím se na Vás s dotazem, jak upravit VBA kód, kde mám nadefinovaný zámek buňky v sloupci AE.

Dotaz je takový, že pokud se vybere hodnota (jméno) v sloupci U, pak se daná buňka s vyplněným jménem musí uzamknout a nesmí být přístupná pro další editaci. Např. v je vyplněno jméno v U5, tak již nesmí být možnost vybrat jiné jméno v U5).

Našel jsem si toto řešení, které funguje,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set xRg = Intersect(Range("U2:U10"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="MilaF"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="MilaF", AllowFiltering:=True
End Sub

ale zamyká mi pak celý sešit a nefunguje mi pak vkládání data do buněk AE, na které je již napsané jiné makro.
Potřeboval bych to ideálně udělat tak, aby se mi ohledně zámku buněk v U nezamykal sešit, ale jen právě ta konkrétní buňka U a nešla dále editovat.
Moc děkuji za pomoc.

SMEKÁM A MOC DĚKUJI ZA POMOC.

Dobrý den,

moc děkuji za vysvětlení.
Mohu ještě poprosit o další "špeky"?

V buňce B7 mám vzorec, ke kterému bych potřeboval doladit další podobné vzorce v B10 a v B11.

Dále si nevím rady, když potřebuji jednoduše doplnit text z B7 do buňky A10, tak mi funkce =CONCAT("Celkem Oaa za ";B7) text data kopíruje jako datum číslo.

Dobrý den,

moc děkuji za řešení. Funguje jak má (pouze alternativa =COUNTA(NOVÉ_xlsm[číslo]) nefunguje.

Mám ještě asi primitivní dotaz, jelikož mi uniká, jak excel pozná, že se jedná o list "2020", když je ve vzorci NOVÉ_xlsm?

Dobrý den,

můžete mi, prosím, poradit?
V tabulce mám určitá data potřeboval bych znát počet záznamů (řádků, bez záhlaví), pokud platí:
jestliže je záznam v listu 2020 v sloupci V a zároveň je prázdná buňka v sloupci AG, tak aby se řádek započítal.
manuálně si to dokážu vyfiltrovat a zjistit, že výsledek má být 105, ale potřeboval bych na to přijít vzorcem.
=KDYŽ(A(('2020'!V:V)<>"";('2020'!AG:AG)="");COUNTIF('2020'!AG:AG;""))
Někde mám však chybu...., viz příloha

Už to mám.
Stačilo jen na chvíli vymazat celý zdrojový kód, upravit si tabulku pro filtrování a pak celý VBA kód znovu nahrát + ještě doplnit do závěru AllowFiltering:=True.

ActiveSheet.Protect AllowFiltering:=True
Application.EnableEvents = True
End Sub

Jirko, moc děkuji. Ještě jeden malý detail, ale podstatný. V záhlaví by měl fungovat filtr a nejde tam vložit, dokud neodemknu list. Jakmile nastavím možnost filtru a začnu opět psát data, tak se první řádek pro filtr zamkne a nejde filtr používat

. Vím, že to jde obejít možností zamknout list a naklikat povolit automatický filtr, ale to bych tam musel dát heslo. Tabulka s filtrem musí být přístupna uživatelům bez hesla.
Event. bych potřeboval zamknout při vkládání dat oblast A2:T501.

Dobrý den,
Prosím opět o pomoc.

1) Nyní bych potřeboval zadávat data do polí $U$2:$AD$501 s tím, že data ve sloupcích U:Z jsou povinná a jsou závislá na žlutých buňkách v listu číselníky.
Zdrojový kód VBA jsem upravil pro výše uvedenou oblast, ale z nějakého důvodu mi přestal kontrolovat, zda data z číselníku jsou žlutá (pravdivá pro odemčení zámku). Nyní je zámek závislý na tom, že buňky U:Z jsou vyplněné.

2) Dále bych potřeboval rozšířit vliv zámku i na sloupec AA, kam se bude zadávat nějaká hodnota (buňka nesmí zůstat prázdná; pokud zůstane, AE buňku musí zůstat zamčená).

3) Je možné to celé nastavit tak, aby se zamykaly pouze buňky v AE a ne celý list?

Děkuji za ochotu i pomoc.

Jirko, klobouk dolů. Moc, moc, moc děkuji.
Funguje, jak má.
Jste machr a super!

V pohodě, budu rád za nápad, případně i za řešení.
Děkuji.

Problém je v tom, že se buňky musí odemykat na základě žlutých buněk z listu číselníky. Na listu OHL19 jsou v polích A:F pro uživatele k dispozici všechny hodnoty, avšak zámek musí reagovat pouze na ty, které uživatel vybere a které jsou žluté z listu číselníky.

A dále, když už tam je datum ve sloupci L napsané, tak zůstane zapsané, i když se ve stejném řádku nějaká hodnota ze sloupců A:F vymaže. Pokud by k tomu došlo (např. omylem), tak se datum z buňky L musí vymazat a L buňka znovu uzamknout, dokud nejsou splněny podmínky k otevření zámku.
Děkuji za ochotu a pomoc.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje