Speichern von Arbeitsmappe
23.03.2007 08:39:39
Arbeitsmappe
ich bin Neuling bei der Programmierung und habe den Speichern befehl mit folgendem Makro auf eine Schaltfläche gelegt, was das Speichern und gleichzeitige Schließen der Arbeitsmappe ermöglicht.
Sub Workbookclosesave()
Dim i As Integer
i = MsgBox("Alle Änderungen werden in der bestehenden Datei gespeichert und das Programm _
beendet" & vbLf & _
"Wollen Sie fortfahren?", _
vbYesNo + vbQuestion, "Programm speichern und beenden")
If i = 6 Then
Sheets("Stammdaten").Range("F5").Value = "OK" 'nur dann ist beenden möglich
MenüBefehlein 'Modul3
Bearbeitungsleisteein 'Modul4
MenüExtrasan 'Modul5
ActiveWorkbook.Close SaveChanges:=True
End If
End Sub
Kann man das ABBRECHEN bei SPEICHERN UNTER irgendwie ausblenden oder unterdrücken?
Bin für jeden Tip dankbar
Gruß Toni
Anzeige