Hallo ihr alle
Ich bräuchte ein Makro, das SW-Dateien automatisch schreibgeschützt macht.
Ich verwende bereits das @.PL Makro von SolidWorks unten
http://www.lynkoa.com/forum/solidworks/macro-mettre-fichier-lecture-seule
aber ich bräuchte ein einfacheres Makro , das mich nicht zur Bestätigung auffordert (ich möchte es in das Dienstprogramm INTEGRATION integrieren können).
Vielen Dank im Voraus.
Hallo
Um die Validierungsanforderung zu entfernen, kommentieren Sie (Apostroph am Anfang der Zeile) die folgenden Zeilen (fett unterstrichen):
Bearbeiten: Bearbeiten Sie die fett gedruckten Zeilen wie bereits erwähnt:
Wenn GetAttr(PathName) und vbReadOnly dann
Wenn die Datei schreibgeschützt ist
ret = MsgBox("Diese Datei ist schreibgeschützt, möchten Sie darauf schreiben?" & vbNewLine_
& vbNewLine & "Denken Sie daran, Ihre Änderungen später zu speichern", vbJaNein, Titel)
'Nachricht, um zu fragen, ob wir beim Lesen und Schreiben darauf zugreifen möchten
Wenn ret = vbNo, dann sub beenden
"Wenn nicht, verlassen wir das Programm
SetAttr Pfadname, vbNormal
"Wenn ja, entfernen wir die schreibgeschützte Funktion in Windows
Part.FileReload
ret = Part.ReloadOrReplace(Falsch, Part.GetPathName, Wahr)
Part.FileReload
"Wir laden das Dokument in SolidWorks neu
Oder
'Andernfalls (= Datei lesen, schreiben)
ret = MsgBox("Diese Datei ist schreibgeschützt, möchten Sie sie schreibgeschützt machen?", vbJaNein, Titel)
'Nachricht, um zu fragen, ob Sie im schreibgeschützten Modus darauf zugreifen möchten
Wenn ret = vbNo, dann sub beenden
"Wenn nicht, verlassen wir das Programm
SetAttr PathName, vbReadOnly
"Wenn ja, setzen wir schreibgeschützt in Windows ein
Part.FileReload
ret = Part.ReloadOrReplace(Falsch, Part.GetPathName, Wahr)
Part.FileReload
"Wir laden das Dokument in SolidWorks neu
Ende, wenn
Ende Sub
Bearbeiten: Nachricht soll gelöscht werden, ich war auf etwas anderem
Betreff: Das Makro wird wie zuvor geändert und schreibt schreibgeschützte Dateien und schreibgeschützte Schreibvorgänge in Schreibdateien.
Wenn Sie nur den Schreibvorgang verwenden möchten, ändern Sie das Ende Ihres Makros mit diesem Makro:
Wenn GetAttr(PathName) und vbReadOnly dann
Wenn die Datei schreibgeschützt ist
'ret = MsgBox("Diese Datei ist schreibgeschützt, möchten Sie darauf schreiben?" & vbNewLine_
& vbNewLine & "Denken Sie daran, Ihre Änderungen später zu speichern", vbJaNein, Titel)
'Nachricht, um zu fragen, ob wir beim Lesen und Schreiben darauf zugreifen möchten
'Wenn ret = vbNo, dann sub beenden
"Wenn nicht, verlassen wir das Programm
SetAttr Pfadname, vbNormal
"Wenn ja, entfernen wir die schreibgeschützte Funktion in Windows
Part.FileReload
ret = Part.ReloadOrReplace(Falsch, Part.GetPathName, Wahr)
Part.FileReload
"Wir laden das Dokument in SolidWorks neu
Oder
Ende, wenn
Ende Sub