Zdravím,
opět potřebuji poradit s Excelem, prosím.
Pracuji s Excelem, kde používám Query na vypsání dat z jiného sešitu. Sešit, kam se mají data napsat, je uzamčený pro úpravy a tím pádem klasické Refresh All nefunguje. Na netu jsem našel VBA kód, díky kterému jsem přiřadil makro k ikoně - sešit se odemkne, provedou se úpravy (Refresh) a sešit se zase uzamkne
V příloze je zjednodušený soubor - v sešitu Input zadáte hodnotu (město), v sešitu Output se pak přes query tyto hodnoty vypisují.
Moje otázka ale zní - jak zabránit uživateli, aby si zobrazil okno s VBA, kde najde heslo? V přiložném souboru je to "abc". To už můžu rovnou nechat celý sešit odemknutý. Což ale nechci, protože jsou tam jiná data a vzorce, které nechci ukazovat. Uživatel by měl mít možnost sešit pouze obnovit (Refresh).
Předem díky.
Excel - zamknutí/odemknutí sešitu pomocí VBA Vyřešeno
- metropolisCZ
- Level 2.5
- Příspěvky: 305
- Registrován: srpen 12
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Excel - zamknutí/odemknutí sešitu pomocí VBA
- Přílohy
-
- VBA_Unprotect_sheet.xlsm
- (30.63 KiB) Staženo 81 x
Naposledy upravil(a) metropolisCZ dne 23 lis 2020 16:58, celkem upraveno 1 x.
ASUS TUF GAMING B550M-PLUS WIFI II | AMD Ryzen 5 5600 | Endorfy Fera 5 ARGB | SAPPHIRE PULSE Radeon RX 6700 XT | Kingston FURY 32GB KIT DDR4 3200MHz CL16 Beast RGB | Samsung 980 PRO 1TB + Samsung 970 EVO PLUS 2TB | Fractal Design Pop Mini Air RGB Black | GIGABYTE UD750GM | 24" ASUS TUF Gaming VG249Q | W11
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23629
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: Excel - zamknutí/odemknutí sešitu pomocí VBA
Myslím že nijak.
Osobně používám speciální funkci pro výpočet hesla. Samozřejmě to taky není dokonalé, ale obyčejný bfu šanci nemá.
Osobně používám speciální funkci pro výpočet hesla. Samozřejmě to taky není dokonalé, ale obyčejný bfu šanci nemá.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
- metropolisCZ
- Level 2.5
- Příspěvky: 305
- Registrován: srpen 12
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Re: Excel - zamknutí/odemknutí sešitu pomocí VBA
A můžu se zeptat jakou funkci?
ASUS TUF GAMING B550M-PLUS WIFI II | AMD Ryzen 5 5600 | Endorfy Fera 5 ARGB | SAPPHIRE PULSE Radeon RX 6700 XT | Kingston FURY 32GB KIT DDR4 3200MHz CL16 Beast RGB | Samsung 980 PRO 1TB + Samsung 970 EVO PLUS 2TB | Fractal Design Pop Mini Air RGB Black | GIGABYTE UD750GM | 24" ASUS TUF Gaming VG249Q | W11
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23629
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: Excel - zamknutí/odemknutí sešitu pomocí VBA
překódováním tabulky ascii.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
- metropolisCZ
- Level 2.5
- Příspěvky: 305
- Registrován: srpen 12
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Re: Excel - zamknutí/odemknutí sešitu pomocí VBA
OK, zeptal jsem se špatně, protože tohle je pro mě stejně španělská vesnice.
ASUS TUF GAMING B550M-PLUS WIFI II | AMD Ryzen 5 5600 | Endorfy Fera 5 ARGB | SAPPHIRE PULSE Radeon RX 6700 XT | Kingston FURY 32GB KIT DDR4 3200MHz CL16 Beast RGB | Samsung 980 PRO 1TB + Samsung 970 EVO PLUS 2TB | Fractal Design Pop Mini Air RGB Black | GIGABYTE UD750GM | 24" ASUS TUF Gaming VG249Q | W11
- ITCrowd
- Tvůrce článků
-
Guru Level 13.5
- Příspěvky: 23629
- Registrován: březen 10
- Pohlaví:
- Stav:
Offline
Re: Excel - zamknutí/odemknutí sešitu pomocí VBA
Tak to zjednoduším...
Vytvoř si pole proměnných, z nichž některé budou obsahovat správné kódy písmen hesla.
Pomocí for...next vybereš z tohoto pole jednotlivá písmena.
Uprostřed cyklu použiješ chr() - což převede ascii kód (číslo) na písmeno hesla
A písmena se dávají dohromady třeba pass=pass&chr()
Až cyklus doběhne, máš heslo.
Toto je nejjednodušší varianta.
Dodatečně přidáno po 2 minutách 4 vteřinách:
takže třeba chr(65)&chr(72)&chr(79)&chr(74) vrátí AHOJ.
Vytvoř si pole proměnných, z nichž některé budou obsahovat správné kódy písmen hesla.
Pomocí for...next vybereš z tohoto pole jednotlivá písmena.
Uprostřed cyklu použiješ chr() - což převede ascii kód (číslo) na písmeno hesla
A písmena se dávají dohromady třeba pass=pass&chr()
Až cyklus doběhne, máš heslo.
Toto je nejjednodušší varianta.
Dodatečně přidáno po 2 minutách 4 vteřinách:
takže třeba chr(65)&chr(72)&chr(79)&chr(74) vrátí AHOJ.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router
Re: Excel - zamknutí/odemknutí sešitu pomocí VBA
Můžeš zaheslovat i VBEditor, pro zobrazení kódu bude požadováno heslo.
Ovšem i to se dá celkem jednoduše prolomit.
Pod záložkou Tools....
Ovšem i to se dá celkem jednoduše prolomit.
Pod záložkou Tools....
- metropolisCZ
- Level 2.5
- Příspěvky: 305
- Registrován: srpen 12
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Re: Excel - zamknutí/odemknutí sešitu pomocí VBA
Grimm píše:Můžeš zaheslovat i VBEditor, pro zobrazení kódu bude požadováno heslo.
Ovšem i to se dá celkem jednoduše prolomit.
Pod záložkou Tools....
Tohle by bylo super a jednoduché řešení, ale nefunguje mi to. I když nastavím Lock a heslo, pak zamknu sešit, uložím, stejně se přes Developer dostanu na kód modulu a vidím zadané heslo.
ASUS TUF GAMING B550M-PLUS WIFI II | AMD Ryzen 5 5600 | Endorfy Fera 5 ARGB | SAPPHIRE PULSE Radeon RX 6700 XT | Kingston FURY 32GB KIT DDR4 3200MHz CL16 Beast RGB | Samsung 980 PRO 1TB + Samsung 970 EVO PLUS 2TB | Fractal Design Pop Mini Air RGB Black | GIGABYTE UD750GM | 24" ASUS TUF Gaming VG249Q | W11
Re: Excel - zamknutí/odemknutí sešitu pomocí VBA
Soubor ještě zavři, po jeho znovuotevření by to mělo fungovat. Teď sem to zkoušel.
- metropolisCZ
- Level 2.5
- Příspěvky: 305
- Registrován: srpen 12
- Bydliště: Praha
- Pohlaví:
- Stav:
Offline
Re: Excel - zamknutí/odemknutí sešitu pomocí VBA Vyřešeno
Grimm píše:Soubor ještě zavři, po jeho znovuotevření by to mělo fungovat. Teď sem to zkoušel.
Moje chyba, už je to OK. Díky moc za řešení, přesně tohle jsem hledal. Vlákno zamykám.
ASUS TUF GAMING B550M-PLUS WIFI II | AMD Ryzen 5 5600 | Endorfy Fera 5 ARGB | SAPPHIRE PULSE Radeon RX 6700 XT | Kingston FURY 32GB KIT DDR4 3200MHz CL16 Beast RGB | Samsung 980 PRO 1TB + Samsung 970 EVO PLUS 2TB | Fractal Design Pop Mini Air RGB Black | GIGABYTE UD750GM | 24" ASUS TUF Gaming VG249Q | W11
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 25
- 3472
-
od luko02420
Zobrazit poslední příspěvek
09 kvě 2024 10:12
-
-
Teamviewer - jak ovládat gps (pc) pomocí vzdálené podpory
od Antonín » 27 bře 2024 14:35 » v Vše ostatní (sw) - 3
- 2667
-
od Antonín
Zobrazit poslední příspěvek
15 dub 2024 13:06
-
-
-
Windows 11 nelze zrušit přihlášení pomocí hesla PIN)
od nulka » 17 srp 2023 11:08 » v Windows 11, 10, 8... - 9
- 4052
-
od nulka
Zobrazit poslední příspěvek
17 srp 2023 16:02
-
-
- 16
- 8447
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 2
- 2871
-
od honzzicek
Zobrazit poslední příspěvek
01 črc 2023 08:57
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 2 hosti