Speichern einschränken auf Dateitypen
16.12.2021 11:23:47
Ticli
Ich möchte eine Excel Vorlage an Mitarbeitern geben, so dass diese bei "speichern unter" der Vorlage nur 2 möglichkeiten auswählen können. Entweder als PDF oder als wieder als Excel Vorlage.
Habe diesen Code hier gefunden, jedoch geht das irgendwie nicht. Ausserdehm will ich es nicht als Makro ausführen lassen, sondern als feste Funktion als VBA
Wäre sehr Dankbar um hilfe!
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'lässt nur speichern als .xlsm zu
Dim varFileName As Variant
If SaveAsUI = True Then
varFileName = Application.GetSaveAsFilename( _
fileFilter:= _
"Excel Macro Enabled Workbook (*.xlsm),*.xlsm," & _
"PDF Files (*.pdf), *.pdf", _
InitialFileName:="Entwicklungsantrag - [Titel] " & Date & ".xlsm")
If varFileName False Then
Select Case LCase(Right(varFileName, 4))
Case ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=varFileName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Case Else
ActiveWorkbook.SaveAs Filename:=varFileName, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Select
End If
Cancel = True
End If
End Sub
