Datei vor beenden schreibschützen

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not SchliessenErlaubt Then Cancel = True
If Not SchliessenErlaubt Then
MsgBox "Bitte benutze den Programm beenden Button!!"
End If
End Sub

Private Sub CommandButton4_Click()
If ActiveWorkbook.ReadOnly Then
Call schliessen_x
ActiveWorkbook.Saved = False
Application.DisplayAlerts = False
Application.Quit
Else
Call schliessen_x
ActiveWorkbook.Saved = False
Application.DisplayAlerts = True
Application.Quit
End If
End Sub

Option Private Module
Public SchliessenErlaubt As Boolean
Sub schliessen_x()
SchliessenErlaubt = True
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub

With ActiveWorkbook
Application.DisplayAlerts = False
If .ReadOnly = False Then
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
End If
Application.DisplayAlerts = True
End With