wenn ich meine Datei über folgendes macro schließe so wird mir bei einer neuen Datei wird beim drücken auf das Kreuz nicht mehr nach speichern gefragt.
Waran liegt den das????
Public Sub zu_ohne()
Dim Aktuell_Datei As String
Aktuell_Datei = ActiveWorkbook.name
Application.DisplayFullScreen = False
Application.DisplayAlerts = False
Application.CommandBars("Toolbar List").enabled = True
Application.CommandBars("worksheet menu bar").enabled = True
Application.CommandBars.Item("Standard").Visible = True
Application.CommandBars("Formatting").enabled = True
Application.CommandBars("Drawing").enabled = True
Application.DisplayFormulaBar = True
Application.CommandBars("Standard").enabled = True
Application.CommandBars("Formatting").enabled = True
Application.CommandBars("Chart").enabled = True
Application.CommandBars("External Data").enabled = True
Application.CommandBars("Forms").enabled = True
Application.CommandBars("Picture").enabled = True
Application.CommandBars("PivotTable").enabled = True
Application.CommandBars("Control Toolbox").enabled = True
Application.CommandBars("Reviewing").enabled = True
Application.CommandBars("visual Basic").enabled = True
Application.CommandBars("Web").enabled = True
Application.CommandBars("WordArt").enabled = True
Application.CommandBars("Drawing").enabled = True
Application.CommandBars("Full Screen").enabled = True
On Error Resume Next
ThisWorkbook.Names.Add "OK", RefersTo:=Range("A1"), Visible:=False
Workbooks(Aktuell_Datei).Close False
Application.DisplayAlerts = True
On Error GoTo 0
ThisWorkbook.Close
End Sub
Gruß Jörg