Schliessen/Speichern-VBA-Frage
15.11.2006 15:12:58
Fabio
nachdem mein Beitrag bereits im Archiv ist, mache ich den hier nochmals auf. Das Script, das ich hier erhalten habe, funktioniert "fast perfekt"
Hier ist das Script :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Jan_Maerz_07").Select
If ActiveWorkbook.ReadOnly Then
Application.DisplayAlerts = False
ActiveWorkbook.Close
End If
frage = MsgBox("Speichern", vbYesNo)
If frage = 7 Then
ActiveWorkbook.Close savechanges = no
Else
ActiveWorkbook.Close savechanges = yes
End If
End Sub
Folgende Probleme habe ich aber dabei - und da suche ich einfach noch Rat :
1. Wenn ich die Datei mit Schreibschutz öffne, kommt eine Anfrage "wollen Sie speichern" - diese Abfrage will ich aber nicht, Excel soll einfach beim schliessen schliessen und "gut ist"..
2. Wenn ich die Datei ohne Schreibschutz öffne, kommt beim Schliessen die Abfrage "wollen Sie speichern" (dann klicke ich auf JA) - dann kommt die Abfrage ein "zweitesmal" (warum auch immer)
Weiß jemand Rat ? (Und ausserdem nochmals Danke für das erste Script!)
Fabio