Datei doppelt öffnen lese und schreib modus

Sub wechsle_modus()
Dim Antwort As Integer
Antwort = MsgBox("Wollen Sie vor der Änderung in den Lesemodus speichern ?", vbQuestion +  _
vbYesNoCancel)
'abbrechen=2   - J a=6  -  Nein=7
If Antwort = 2 Then Exit 

Sub 'Abbuch nicht wechseln
If Antwort = 6 Then
If ActiveWorkbook.ReadOnly = False Then
ThisWorkbook.Save 'speichern vor dem Wechseln
Workbooks.Open ThisWorkbook.FullName, , True
'wechseln
End If
End If
If Antwort = 7 Then
'wechseln ohne speichern
Workbooks.Open ThisWorkbook.FullName, , True
End If
End Sub



Vielen dank voraus an alle gruß Chris