Do načítacího excelu přidat tlačítko s odkazem na makro.
Public Sub nacti()
Workbooks.Open "D:\TEMP\140429\X.xlsm", , , , "pokus"
Workbooks("X.xlsm").Close
End Sub
kdy první řádek řekne který soubor otevřít a s jakým heslem, druhý řádek ho pak zavře, což bohatě stačí na to aby ten načítací soubor aktualizoval data.
Tímto způsobem si ty dva řádky zkopíruješ několikrát pod sebe a jen změníš názvy souborů.
Při spuštění načítacího souboru až se bude ptát na aktualizaci, tak dáš neaktualizovat, aby nechtěl heslo, místo toho pak stiskneš ono nové kouzelné tlačítko jenž ti postupně otevře a zavře zdrojové soubory, čímž aktualizuje data.
Klidně by to šlo i smyčkou, tzn. v kódu jen tyto dva řádky. Soubor a případně i heslo bude proměnná, pak už jen přidat nějaké for a next. Seznam souborů pak můžeš mít na jiném listu - je to snazší pro správu.
No a co se oné diskutované bezpečnosti hesel týče, tak v editoru maker klikneš na Tools -> VBA project properties -> Protection
tam zaškrtneš lock for viewing a zadáš heslo, čímž zajistíš, že na hesla se nikdo nedostane.
M@
citovat
RSS nejnovější články