Ich möchte per VBA Code eine Arbeitsmappe schließen ohne sie zu speichern.
Auch die Rückfrage, ob man diese Arbeitsmappe speichern soll, müsste verschwinden. Kann mir jemand helfen?
Gruß Alex
Sub Create_button_close()
ActiveChart.Deselect
ActiveSheet.Buttons.Add(10, 5, 5, 60).Select
Selection.OnAction = "Delete_sheet"
ActiveChart.Shapes("Button 1").Select
Selection.Characters.Text = "Close"
Selection.AutoScaleFont = False
With Selection.Characters(Start:=1, Length:=5).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Font.Bold = True
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 14.17
Selection.ShapeRange.Width = 141.73
ActiveChart.Deselect
End Sub