---

Hallo zusammen,

wie kann ich ein Makro anpassen, wenn es von Usern im Schreibzugriff ist.
Kann ich den schreibzugriff über eine Zeile entfernen oder musss ich die Leute bitten SolidWorks zu schließen?

Vielen Dank,

Gruß Pete

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Pete,

wenn ich in der Firma noch was an nem VBA Makro mache, muss ich auch rumrennen und die Kollegen bitten das Solidworks neu zu starten.
Ich kennen noch keinen anderen Weg.

LG Kevin

------------------
HOMEPAGE | SWXTools.de - SWXHelper für SOLIDWORKS
KONTAKT | support@swxtools.de
FACEBOOK | facebook.com/SWXHelper
TWITTER | twitter.com/SWXTools

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Kann man diesen Zugriff nicht noch irgendwie entfernen?

einen Schreibschutz kann ich ja an einer Datei auch über ein Makro setzen oder entfernen.

kann man hier nicht den Zugriff entziehen?

Gruß Pete

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Pete,

ich kenne leider auch keinen anderen weg wie Kevin.

Aber du kannst das Makro kopieren, deine Änderung machen und am nächsten Tag in der Früh das Makro austauschen...in der Hoffung keiner hat das Makro bis dahin verwendet...

Ab und zu geht auch das speichern nicht, aber das überschreiben der originalen Datei mit der geänderten Kopie im Explorer.

Gruß Christoph

------------------
Wer einen Fehler findet darf ihn behalten,
wer zwei findet kann beide behalten,
ab fünf Fehler gibs Rabatt :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wenn man die Rechte hat kann man auch die Dateisperre der User aufheben .... verstehe sowieso nicht, warum die Makros gesperrt werden wenn sie mal von SolidWorks genutzt worden sind  .

Grundsätzlich aber immer auf einer Kopie die Anderungen testen ist schon mal eine gute Idee  .

------------------
Gruß Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stefan,

Die Makros sind schon mal geladen und somit geht der nächste Zugriff schneller.
Ich hatte mir versuchweise Makro alsMakro Starter geschrieben, um genau dieses Problem zu umgehen. In dieserm Makro wird jedes andere Makro geladen, gestartet und wieder entladen -> Keiner hat schreibrechte auf das eigentliche Makro.
Aber dieses Makro hatte so oft zu problemen und Abstürzen geführt das ich das projekt relativ schnell überworfen habe.

Funktion:

Code:

---

value = instance.RunMacro2(FilePathName, ModuleName, ProcedureName, Options, Error)

---

Option: swRunMacroUnloadAfterRun = 1

Die funktion ansich verwende ich öfters z.b Beim Drucken wird hier der Printman angesteuert. Allerdings ohne anschließendem entlanden des Makros.

Die Versuche waren mir SWX 2016...vieleicht ist es inzwischen stabiler.

Defekte Makros kommen seit der 2020 Version bei mir auch nicht mehr vor...

Gruß Christoph

------------------
Wer einen Fehler findet darf ihn behalten,
wer zwei findet kann beide behalten,
ab fünf Fehler gibs Rabatt :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
ich habe unsere Makros mit ins PDM genommen.
Bedeutet, dass die User mit einer eigenen lokalen Version arbeiten und ich die Rechte an meiner lokalen Version holen kann.
Erst wenn ich das geänderte Makro in den Tresor einchecke, können die User ihr Makro aktualisieren.
Außerdem kann ich die Makros im Tresor Versionieren, ohne den Dateinamen ändern zu müssen.
So könnte man nach Bedarf auch mal eine ältere Variante des Makros aufrufen.

Grüße, Andi 

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Stichwort "unload"
den code von hier einbauen, dann werden die Makros nach der Arbeit entladen und du kannst sie ändern und speichern.

Andere Kollegen arbeiten mit login-Scripten, die die Makros immer auf den lokalen Rechner kopieren um sie von da zu starten. Die werden dann automatisch beim nächsten login aktualisiert.

Zum Kopieren und editieren - dabei kommt es mir immer mal wieder zu abstürzen, weil SolidWorks die Makro Module intern anscheinend trotzdem gleich identifiziert oder so.

Gruß, Christian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe es mit SolidWorks-Makros nie probiert, aber mit unserem Excel-Addon mach' ich es so:
Auf dem File-Server setze ich es mit Schreibschutz und wenn ich es bearbeiten möchte, hebe ich es auf.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Perfekt,

läuft ohne Probleme :-)

Danke!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Christoph Weise:
...
Die Makros sind schon mal geladen und somit geht der nächste Zugriff schneller.
...

---

Das mit der Geschwindigkeit ist mir schon klar, aber warum muss die Datei gesperrt werden? Reicht da nicht auch ein RO-Zugriff? Oder sperrt der auch schon die Datei?

------------------
Gruß Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Pete85:
Perfekt,

läuft ohne Probleme :-)
...

---

Für welche der genannten Versionen hast Du Dich denn entschieden?

------------------
Gruß Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich hab mich für das entschieden.

Code:

---

Option Explicit
Dim swApp As Object
Dim boolstatus As Boolean
Dim filename As String
Dim runMacroError As Long

Sub Unload_me()
    Set swApp = Application.SldWorks
    'swApp.SendMsgToUser "gleich schließe ich ..."
    filename = swApp.GetCurrentMacroPathName
    boolstatus = swApp.RunMacro2(filename, "unload_makro_1", "ciao", swRunMacroUnloadAfterRun, runMacroError)

End Sub

Sub ciao()

    Rem swApp.SendMsgToUser "bin dann mal weg ..."
End Sub

---

Gruß Pete

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich hab mich für das entschieden.

Code:

---

Option Explicit
Dim swApp As Object
Dim boolstatus As Boolean
Dim filename As String
Dim runMacroError As Long

Sub Unload_me()
    Set swApp = Application.SldWorks
    'swApp.SendMsgToUser "gleich schließe ich ..."
    filename = swApp.GetCurrentMacroPathName
    boolstatus = swApp.RunMacro2(filename, "unload_makro_1", "ciao", swRunMacroUnloadAfterRun, runMacroError)

End Sub

Sub ciao()

    Rem swApp.SendMsgToUser "bin dann mal weg ..."
End Sub

---

Gruß Pete

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP