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!

Hinweis: Nur ein Mitglied dieses Blogs kann Kommentare posten.

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