VBA code voor "alleen lezen"

[Lelolialle]

Bij het sluiten van document wil ik controleren of het bestand "alleen lezen" is.
Als dat zo is => bestand gewoon sluiten.
Als dat niet zo is => Bepaalde code uitvoeren; (Deze is reeds in orde)

Alvast bedankt,
Ivan

 

[AD1957]

zo ?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.ReadOnly Then
    MsgBox "File is Read-only"
Else
    MsgBox "File is not read-only"

   'jouw code
End If
End Sub