Verrouiller un calque

[dr.loveless]

Salut, c'est encore moi, je voudrais verrouiller un calque en VBA, et j'y arrive pas avec la fonction LOCK. Egalement est-il possible de le proteger avec un mot de passe de tel sorte qu'on ne puisse plus modifier les objets sur le calque concerné. Je sais j'en demande beaucoup..... mais merci à vous

[didier]

Hello le Doc,

voilà une partie de la réponse,

car je n'ai pas encore réfléchi à l'histoire

du Pot de Masse ou Mot de Passe

 

Sub Lock_Calque()

 

Dim ObjCalque As AcadLayer

Set ObjCalque = ThisDrawing.Layers.Add("Test")

 

ObjCalque.Lock = True

End Sub

 

Amicalement