Protection différenciée utilisateur/vb

[alexalex]

Bonjour a tous.
J'ai un petit problemme, en effet j'ai une feuille dont certaines cellules sont protégées pour éviter que l'utilisateur ne fasse des bétises Mais le probleme est que lorsque j'essai de modifier ces cellules par une macro (clear contents par exemple) cela me génére un bug !!!

Comment donc protéger des cellules pour l'utilisateur mais les laisser accessible au macros ???

Merci

 

[Marc_du_78]

Bonsoir alexalex, le Forum,

Si tu modifies ces cellules par macro tu déprotège ta feuille et la reprotège en fin de macro. Voici 3 exemples

Private Sub CommandButton13_Click() 'quitter
Sheets('COLLIGNON').Protect Password:='123'
aaa.Hide
End Sub

Private Sub CommandButton12_Click()
Sheets('COLLIGNON').Unprotect 'déprotège la feuille
aaa.Hide
End Sub

Private Sub CommandButton13_Click()
Sheets('COLLIGNON').Protect 'protège la feuille sans mot de passe
aaa.Hide
End Sub

Bonne soirée

 

[alexalex]

Merci beaucoup, ca fonctionne trés bien. Je ne m'attendais pas a une réponse si rapide.

Ceci dit, si quelqu'un avait une solution pour simplement gérer les droits entre utilisateur et programme cela m'interesserais bien.

Merci bien

 

[myDearFriend!]

Bonsoir alexalex, Marc_du_78,

Normalement, pour empêcher les actions utilisateurs tout en autorisant les modifications par les macros, tu devrais pouvoir protéger ta feuille ainsi :

Sheets('Feuil1').Protect Password:='mdp', UserInterfaceOnly:=True

Cordialement,