< návrat zpět

MS Excel


Téma: Vkládání dat z formuláře na zamknutém listu. rss

Zaslal/a 28.2.2024 16:20

Ahoj mohli by jste mi někdo poradit? Mám vytvořený formulář ve VBA (klasika) a potřeboval bych, aby tento formulář vkládal data i když je list zamčený. Vím, že to nějak šlo pamatuju se ze školy, ale nějak mi to vypadlo. Díky za radu. 8

Zaslat odpověď >

Strana:  1 2   další »
#056256
Stalker
Odemknout - vložit - zamknout.citovat
#056257
avatar

Stalker napsal/a:

Odemknout - vložit - zamknout.


Děkuji za radu, ale to právě není možné. Nechci aby se zaměstnanci dostali do možnosti upravovat tabulky.citovat
#056258
Stalker
Co? Vždyť píšeš, že používáš formulář?citovat
#056259
avatar

Stalker napsal/a:

Co? Vždyť píšeš, že používáš formulář?


Zřejmě se jevím jako idiot, ale došlo jen k nedorozumění. 2
Omlouvám se, zřejmě jsem se špatně vyjádřil. Zaměstnanci používají formulář, aby zadali určité data, ale tabulka do které se data zapisují má i více buněk, se vzorci atd na sebe navázané a vím, že pokud něco podělají tak to vpisují přímo do tabulky a tím mi ruší vzorce. Snad už to teď bude lépe srozumitelné.citovat
#056260
Stalker
Ale jo, chápu čeho chceš dosáhnout. Ale nechápu s čím je problém. Formuláři je jedno kolik buněk obsahuje tabulka. Jak si to "naprogramuješ" tak to budeš mít.
Výchozí stav: zamčený list
- Zobrazíš formulář > vyplníš data > (provedeš verifikaci?)
- Odemkneš list
- Zapíšeš data z formuláře do listu
- Zamkneš list
- Zavřeš formulář
List je zamknuty, nelze provádět úpravy, mazat vzorce.citovat
#056261
avatar

Stalker napsal/a:

Ale jo, chápu čeho chceš dosáhnout. Ale nechápu s čím je problém. Formuláři je jedno kolik buněk obsahuje tabulka. Jak si to "naprogramuješ" tak to budeš mít.
Výchozí stav: zamčený list
- Zobrazíš formulář > vyplníš data > (provedeš verifikaci?)
- Odemkneš list
- Zapíšeš data z formuláře do listu
- Zamkneš list
- Zavřeš formulář
List je zamknuty, nelze provádět úpravy, mazat vzorce.


Data zadává na každé směně 11 lidí, každý zadá to svoje. Mám na starosti celkem 4 směny tedy 44 lidí. Proto bych Rád aby se zadaly údaje z každého formuláře do jednoho listu. Který má hromady vzorců a proto si nemůžu dovolit jim to nechat odblokované. Ale tak asi jiná možnost není, protože je nepřijatelné, abych jim dával heslo, aby list odemkli. Ale nevadí nechám to plavat. Jen si matně pamatuji, ze školy, že existoval zápis ve VBA, který mi při otevření formuláře odemkl list vložil data a poté zase po stisknutí tlačítka pro uložení se list opět zamkl. Chtěl jsem si jen urychlit práci.
5
Teď to funguje tak, že oni mi to zadávají do obyčejného excelu napsané a já to přepisuji do finální tabulky za ně pomocí formuláře Chtěl jsem jen aby to psali oni rovnou do té hlavní tabulky, protože je toto celkem dost položek a údajů, tak jsem chtěl aby to dělali sami, ale s odemčeným listem si to na triko nevezmu. Ale i tak moc děkuji.citovat
#056262
Stalker
Chtěl jsem si jen urychlit práci.
Tak zapsat do kódu .Unprotect (HESLO) a .Protect (HESLO) snad nebude zas takový problém né 2citovat
#056263
avatar
A myslíš, že bych tě mohl poprosit aby jsi mi napsal ten kod celý a kam ho mám vložit? Jestli sem UserForm_Initialize() nebo kam? Díky a už ti dám pokoj. 2citovat
#056264
avatar
Už jsem si vzpomněl. Moc děkuji

ThisWorkbook.Worksheets("List1").Unprotect Password:="Heslo"
ThisWorkbook.Worksheets("List1").Protect Password:="Heslo"citovat
#056265
Začátečník
Další možností je použít
Worksheets("jmenoListu").Protect password:="heslo", UserInterfaceOnly:=True

List bude uzamčen pro uživatele, ale makra do něj mohou zapisovat bez nutnosti jej odmknout.
https://learn.microsoft.com/en-us/office/vba/api/excel.worksheet.protect

https://wall.cz/index.php?m=topic&id=55933&page=1#post-55936citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje