Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
Application.EnableEvents = False
Cancel = True
If SaveAsUI Then
Application.Dialogs(xlDialogSaveAs).Show (Format(Date, "MMMM")), _
xlOpenXMLWorkbookMacroEnabled
Else
ThisWorkbook.Save
End If
Application.EnableEvents = True
End Sub
'Erstellt unter Excel 2010
Sub SaveAs_Monat()
Dim strName As String, varFilterIndex
'Filterindex des Speicherformats entsprechend Dateiformat der aktiven Datei ggf. anpassen
Select Case ActiveWorkbook.FileFormat
Case 51 'Exceldatei ohne Makros
varFilterIndex = 1 'xlsx
Case 52 'Datei mit Makros
varFilterIndex = 2 'xlsm
Case 56 'xls-Excel 8-Datei
varFilterIndex = 4
Case -4143 'Arbeitsblatt normal -xls-Datei
varFilterIndex = 4
Case Else
varFilterIndex = 1
End Select
strName = Format(Date, "MMMM") 'Format ggf. anpassen für andere
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = strName
.FilterIndex = 1 '1 = Standardeinstellung (xlsx) 2 = mit Makros (xlsm)
.Show
.Execute
End With
End Sub