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
Wenn aber nun die Arbeitsmappe schreibgeschützt ist, erscheint automatisch das Dialogfeld SPEICHERN UNTER, in welchem man auf ABBRECHEN klicken kann und dann die Menübefehle usw wieder sichtbar sind.Kann man das ABBRECHEN bei SPEICHERN UNTER irgendwie ausblenden oder unterdrücken?
Bin für jeden Tip dankbar
Gruß Toni