přečetl jsem si to tak 3x a nejsem si 100% jistý z čeho se vychází a co má být výsledek, případně jaké mezikroky v práci se souborem jsou nežádoucí. původní soubor s makry má být zachován a z něj se má vygenerovat co nejjednodušeji soubor bez maker.
otevřu .xlsm, ve kterém je makro, které provede uložení do nového souboru .xlsx (bez maker)
Sub Uloz()
Application.ScreenUpdating = False
folder = "L:\"
file = "Test_bez_maker" & ".xlsx"
ActiveWorkbook.SaveAs Filename:=folder & file, FileFormat:=xlOpenXMLWorkbook, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.ScreenUpdating = True
MsgBox ("Hotovo.")
End Sub
Nevýhodou je ruční potvrzení uživatelem, že to opravdu chce bez maker. Nepátral jsem, jestli to dialogové okno lze potlačit, aby se to provedlo automaticky.