Gruppe
Datei
Problem
Die aktive Arbeitsmappe soll über die eine Schaltfläche ohne VBA-Code und ohne Schaltfläche gespeichert werden.
StandardModule: Modul1
Sub SaveOnlySheets()
Dim iWks As Integer
Dim sFile As String
iWks = ActiveSheet.Index
sFile = Application.GetOpenFilename("Excel-Dateien (*.xls), *.xls")
If sFile = "" Then Exit Sub
Worksheets.Copy
Worksheets(iWks).Buttons.Delete
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sFile
Application.DisplayAlerts = True
ThisWorkbook.Close savechanges:=False
End Sub