VBA - Speichern einer Datei
12.03.2020 14:30:40
Marcel
habe in Excel VBA folgedes Problem. Habe ein Formular welches entweder als Vorlage oder als Excel-Datei mit Macro gespeichert werden soll. Dazu habe ich unten folgenden Code geschrieben. Problem ist folgendes, dass wenn eine Änderung vorgenommen wird und mittels Schließen-Button (X-Button oben rechts) die Datei geschlossen wird, dann erscheint die Abfrage ob die Datei gespeichert werden soll. Wird dies mit ja bestätigt wird die Datei zwar gespeichert aber der Dialog erscheint wieder. Dies kann man solange machen bis man keine Lust mehr hat. Das Dialogfeld verschwindet nicht. Zwar Kann ich auf nicht speichern klicken aber dann wird die Datei nicht gespeichert.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Dim varWorkbookName As String
'Abfrage auf admin ändern
Application.EnableEvents = False
Call verstecken
If SaveAsUI = True Then
varWorkbookName = Application.GetSaveAsFilename( _
fileFilter:="Excel Macro Enabled Workbook (*.xlsm), *.xlsm, Excel Macro Enabled _
Template (*.xltm), *.xltm, PDF, *.pdf")
Cancel = True
If varWorkbookName "Falsch" Then
If Application.Version > 11 Then
If Right(varWorkbookName, 4) = "xlsm" Then
vartyp = xlOpenXMLWorkbookMacroEnabled
Else
vartyp = xlOpenXMLTemplateMacroEnabled '52,53
End If
ActiveWorkbook.SaveAs Filename:=varWorkbookName, FileFormat:=vartyp
Else
Debug.Print ("No valid application version")
End If
End If
Else
Cancel = True
ActiveWorkbook.Save
End If
Call anzeigen
Application.EnableEvents = True
Exit Sub
ErrorHandler:
Call validFunctions.ErrorHandler(Err)
EndOfSub:
'Sub will end
End Sub
Gruß Marcel.