Ich möchte, dass die User beim Schliessen keine Speichern-Rückfrage erhalten, wenn sie die Datei schreibgeschützt geöffnet haben. Dazu habe ich folgenden Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.ReadOnly = True Then
ReadGlobalState = True
Else
ReadGlobalState = False
End If
If ReadGlobalState = True Then
'schreibgeschützt schliessen ohne speichern-Rückfrage
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
Das funktioniert im Prinzip auch gut. Nur, wenn man eine 2. Excel-Datei geöffnet, friert diese ein oder Excel stürzt ganz ab, wenn man die schreibgeschützte Datei geschlossen hat.
Hat jemand eine Idee, woran das liegen könnte?
Vielen Dank und Gruss
Ben