Die Inventor FAQ wird unterstützt von:

Inventor FAQ Logo

21.03.2017

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

Keine Kommentare:

Kommentar veröffentlichen

War der Beitrag hilfreich oder hast du eine Ergänzung dazu?
Ist noch eine Frage offen?
Ich freue mich auf deine Rückmeldung!

Related Posts Plugin for WordPress, Blogger...
Inventor FAQ Newsletter. Emailadresse: