Arbeitsmappe OHNE Makro speichern-Rückfrage deakt.
Tutanch0
ich habe eine Excel Datei als Formular angelegt. Dieses Formular hat einen Makro. Die Datei soll dann unter einem anderen Namen und OHNE Makros abgespeichert werden. Beide Dateien sollen dann automatisch geschlossen werden.
Bei dem Abspeichern kommt aber jedesmal die Rückfrage " Klicken Sie auf JA, um die Arbeitsmappe ohne Makros zu speichern".
Wie kann ich diese Rückfrage vermeiden?
Anbei mein Code, der soweit funktioniert:
Private Sub CommandButton1_Click()
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy
Const s = "F:\__Info_IDM\Neue_Vorschläge"
Dim bm
bm = InputBox("Bitte Dateinamen mit Namen ergänzen:", "Speichern unter: F:\__Info_IDM\ _
Neue_Vorschläge", Format(Now, "yyyy-mm-dd") & "-")
ActiveWorkbook.SaveAs s & "\" & bm & ".xlsx"
ActiveWorkbook.Close False
Workbooks("IDM_Formular.xlsm").Close False
End Sub
Vielen Dank im voraus für Eure Unterstützung
Gruß Gunter
