Tri avec protection

[marcelio]

Bonjour à tous,

J'utilise cette formule dans VBA pour un tri automatique

Private Sub Worksheet_Change(ByVal Target As Range)
Range("R3:r65536").Sort Key1:=Range("R3"), Order1:=xlAscending, Header:=xlNo
Range("T3:t65536").Sort Key1:=Range("T3"), Order1:=xlAscending, Header:=xlNo
End Sub

Comme ce fichier est partagé avec mes collègues de travail,
J'ai opter pour l'option protection avec mot de passe.

Mais voila ce qui me dit quand je tape un nom
Erreur d'exécution "1004"
La méthode Sort de la classe Range a échoué :

Auriez vous une solution à me proposer
Merci d'avance

Par contre je ne voudrais pas que mon mot de passe soit dans le VBA

Marcelio

 

[Hulk]

Re : Tri avec protection

Hello,

À mon avis, tu dois effectivement déverrouiller ta feuille, puis la verrouiller à nouveau, ce qui inclut que oui tu dois mettre ton passe dans ton code, mais tu peux protéger ton projet VBA !

Bonne journée.

 

[marcelio]

Re : Tri avec protection

Bonjour Hulk,

Si pas d'autre solution donc je vais mettre mon mot de passe dans VBA et proteger mon projet VBA.
ou peut etre autre solution de tri automatique avec protection.

A+

Merci