Hallo Zusammen,
ich habe mir schon aus Schnipseln hier im Forum die Funktion zusammengebaut um die Speichermöglichkeit auf .xlsm einzuschränken. Damit gehen keine Makrofunktionen mehr verloren.
Nun kommt die Herausforderung zusätzlich .pdf zuzulassen für die Veröffentlichung. Da ich den Code nicht ganz verstehe habe ich es mit vielen Versuchen nicht geschafft.
Bitte helft:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'lässt nur speichern als .xlsm zu
If SaveAsUI = True Then
varWorkbookName = Application.GetSaveAsFilename(fileFilter:="Excel Macro Enabled Workbook (*.xlsm), *.xlsm", _
InitialFileName:="Entwicklungsantrag - [Titel] " & Date & ".xlsm")
If varFilename False Then ActiveWorkbook.SaveAs varFilename
Cancel = True

Gruß,
Andreas