Zugriffsrechte für Zellbibliothek

Wir sind auf der Suche nach einer Möglichkeit, Zellbibliotheken mit Zugirffsrechten zu versehen, so dass nur gewisse Benutzer Zellen in der Bibliothek verändern können.
Es sollen aber alle Benutzer die Möglichkeit haben, Zellen aus der Bibliothek platzieren zu können, ohne ein Kennwort eingeben zu müssen!

Mit den Möglichkeiten über Datei --> Zugriffsschutz hab ich schon Versuche gemacht. Ich konnte die Bibliothek so mit einem Kennwort schützen.
Leider muss das Kennwort dann aber auch beim Anhängen der Zellbibliothek eingegeben werden...

Was muss ich hier beachten bzw. lässt sich das überhaupt so einstellen?

Parents
  • Hallo pgess,

    Sie können über die Tastatureingabe "model lock" das Modell sperren .

    Da Zellbibliothek in der Regle viele Modelle beinhaltet, bietet sich die Möglichkeit über VBA alle Modelle der Datei zu speren oder entsperren.

    Sub alle_modelle()
    'Befehl wird in allen Modelltypen der Datei ausgeführt
    
    Dim oMods As ModelReferences
    Dim oMod As ModelReference
    Dim oMod_merken As ModelReference
    
    Set oMod_merken = ActiveModelReference
    Set oMods = ActiveDesignFile.Models
    
    For Each oMod In oMods
        oMod.Activate  'WICHTIG ein Modell muss aktiv sein
        
        'Modell sperren
        CadInputQueue.SendKeyin "model lock"
        'Modell entsperren
        CadInputQueue.SendKeyin "model unlock"
    Next
    
    oMod_merken.Activate  'wieder das Modell einstellen, das vorher aktiv war
    
    End Sub

    Viele Grüße,

    Fahrudin Muminovic

Reply
  • Hallo pgess,

    Sie können über die Tastatureingabe "model lock" das Modell sperren .

    Da Zellbibliothek in der Regle viele Modelle beinhaltet, bietet sich die Möglichkeit über VBA alle Modelle der Datei zu speren oder entsperren.

    Sub alle_modelle()
    'Befehl wird in allen Modelltypen der Datei ausgeführt
    
    Dim oMods As ModelReferences
    Dim oMod As ModelReference
    Dim oMod_merken As ModelReference
    
    Set oMod_merken = ActiveModelReference
    Set oMods = ActiveDesignFile.Models
    
    For Each oMod In oMods
        oMod.Activate  'WICHTIG ein Modell muss aktiv sein
        
        'Modell sperren
        CadInputQueue.SendKeyin "model lock"
        'Modell entsperren
        CadInputQueue.SendKeyin "model unlock"
    Next
    
    oMod_merken.Activate  'wieder das Modell einstellen, das vorher aktiv war
    
    End Sub

    Viele Grüße,

    Fahrudin Muminovic

Children
No Data