MS Excel

Iba nejaký modul či konkrétne makro alebo všetky triedy a moduly ?
Mazacie makro bude v inom súbore alebo v tom z ktorého sa má mazať ?
Ide teda aj o zmenu XLSM -> XLSX ?
Ten súbor bude počas toho otvorený a používaný ?

Niektoré prípady možné asi nebudú. Napr. si myslím, že nebude možné makrom zmazať samé seba. To bude treba vymyslieť. A možno komplikovane napr. cez novú inštanciu Excelu ...citovat

Iba nejaký modul či konkrétne makro alebo všetky triedy a moduly ? ***Jde o smazání řekněme všech maker, tříd a modulů v daném listu resp. znemožnění dalšího používaní automatizovaného VBA řešení (něco jako free trial verze na 30 dní)***
Mazacie makro bude v inom súbore alebo v tom z ktorého sa má mazať ? ***V tom, ze kterého se má mazat***
Ide teda aj o zmenu XLSM -> XLSX ? ***Nutně ne, jde primárně o smazání maker (znemožnění dalšího používaní automatizovaného VBA řešení), přípona může klidně zůstat stejná***
Ten súbor bude počas toho otvorený a používaný ? ***Úplně nerozumím, jak to myslíte. Ten soubor bude až do daného data používán (dejme tomu několikrát týdně)***

______________________________

A co ten datum?
Bude vázaný na buňku, fixně nastavený v makru, z userformu, nebo jakým způsobem se dopracuje k tomu datumu?

***fixně nastavený v makru prosím***
citovat

Pouze za předpokladu, že uživatel bude mít povolený přístup k objektovému modelu. Což si myslím není defautlní volba.citovat

A to prosím udělám jak? Zkoušel jsem to testovat s dnešním datem (VBA upraveno na dnešní datum včera). Když dnes spustím soubor, vyskočí mi hláška

Run-time error '1004'

Programový přístup k projektu jazyka Visual Basic není důveryhodný.

+ tlačítka s možnosti: END / DEBUG / HELPcitovat

Tak ono teoreticky to je možné zmeniť nedobrovoľne, odoslaním patričnej sekvencie kláves. Lenže treba to ošéfovať pre rôzne verzie Office, ale hlavne použiť čo najmenej klávesových skratiek, lebo sú závislé na jazykovej mutácii. Tu je príklad EN vs SK/CZ. Do horného menu sa dostane raz cez Alt+S, inokedy cez Alt+F.
Sub Doverovat_VBA()
Dim LF As String
Select Case Application.International(XlApplicationInternational.xlCountryCode)
Case 1: LF = "f" 'EN
Case 421, 420: LF = "s" 'SK/CZ
Case Else:
End Select
If LF <> "" Then CreateObject("WScript.Shell").SendKeys "%(" & LF & "){UP 2}{ENTER 2}{PGDN}{TAB 2}{ENTER}{PGUP}{DOWN 6}{TAB 3}{ }{ENTER}{TAB}{ENTER}", True
End Sub
Okrem toho SendKeys (je jedno či Shell alebo Application) trpí vo VBA NumLock bugom. To by sa muselo ešte ošetriť, aby neostal prepnutý NL. Žiadna iná metóda (ani cez Register) sa mi nepodarila rozbehať. Iba toto.

EDIT:
Jáj, a nenapísal som ešte Imh0tep-ovi: Ako príklad, ako si vynútiť zapnutie makier, Vám môže poslúžiť tento príklad, čo som sem dal pár dní naspäť.
Takže najskôr vynútiť zapnutie makier, makro skontroluje a zapne dôveru vo VBA, potom kontrola dátumu, zmazanie modulov, zobrazenie listov. Bum hotovo. Len kopec omáčky ešte, kontroly a tak. No prečítajte si, čo sme so Stalker-om písali v tom vlákne o (ne)zabezpečení Excelu.citovat