VBA Codebeispiel: Prüfen ob ein Inventordokument schreibgeschützt und modifzierbar ist

Public Sub schreibgeschuetzt()
Dim Dok As Document
Set Dok = ThisApplication.ActiveDocument
'Fullfielname leer dann noch nicht gespeichert
If Dok.FullFileName <> "" Then
  'Datei schreibgeschützt?
    If GetAttr(Dok.FullFileName) And vbReadOnly Then
        MsgBox ("Schreibgeschützt: Ja")
    Else
        MsgBox ("Schreibgeschützt: Nein")
    End If
End If
    'IsModifiable = Property that returns whether this document can be currently modified.
    'One of the reasons a document may be non-modifiable is if any other document belonging
    'to the file containing this document is currently being edited.
If Dok.IsModifiable = True Then
        MsgBox ("Modfizierbar: Ja")
Else
        MsgBox ("Modfizierbar: Nein")
End If

End Sub

siehe auch Kursserie VBA Programmieren für Konstrukteure