leider bin ich im Archiv nicht schlau genug geworden.
Ich möchte, dass die Datei in der der Code steht, nicht gespeichert werden kann ohne dass sie danach geschlossen wird.
In "DieseArbeitsmappe" habe ich folgenden Code geschrieben:
- - -
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim antwort As Integer
antwort = MsgBox("Achtung: Wenn Sie diese Arbeitsmappe speichern wird sie anschließend geschlossen." & Chr(13) _
& "Möchten Sie die Arbeitsmappe wirklich speichern und schließen?", vbYesNo, "ACHTUNG:")
If antwort = 6 Then
ThisWorkbook.Save
If Workbooks.Count = 1 Then Application.Quit
If Workbooks.Count > 1 Then ThisWorkbook.Close
Else
Cancel = True
End If
End Sub
Dabei gibt es aber 2 Probleme:
1. ThisWorkbook.Save innerhalb von BeforeSave führt zu einer Schleife
2. Laufzeitfehler '1004'. Auf '[:]' konnte nicht zugegriffen werden ...
Anscheinend ist das Problem das Schliessen der Datei in der ja der Code steht
Wer weiss Rat?
Dank & Gruß, Michael