Se connecter avec
S'enregistrer | Connectez-vous

Protection automatique

Dernière réponse : dans Programmation

Bonjour,

Je ne comprends pas pourquoi la macro suivante ne marche pas, elle devrait en théorie vérouiller une cellule dès qu'elle est saisie.
Sachant qu'au préalable j'ai dévérrouillé toutes les cellules puis protéger la feuille avec le mot de passe "toto".
  1. Private Sub Worksheet_Change(ByVal Target As Range)
    

  2. 'Suppression de la protection de la feuille
    

  3. ActiveSheet.Unprotect Password:="toto"
    

  4. 'Verrouillage de la cellule qui vient d'être modifiée
    

  5. ' (identifiée par la variable objet de type Range intitulée "Target")
    

  6. Target.Locked = True
    

  7. 'Remise en place de la protection de la feuille
    

  8. ActiveSheet.Protect Password:="toto"
    

  9. End Sub


Merci pour votre aide.

Autres pages sur : protection automatique

Lassé par la pub ? Créez un compte

Hello,

Ajoute le nom du langage utilisé dans le titre.
Les connaisseurs de ce langage viendront plus facilement t'aider ;) .

Sinon, je ne peux pas beaucoup t'aider .. je ne connais pas trop les macros.(même pas du tout :jap:  )

Qu'est ce qui ne marche pas exactement une erreur ou pas d'execution (ce qui serait logique).
Si t'as feuille est protégée tu ne dois pas pouvoir modifier le contenu, donc l'évenement change ne risque pas de se produire.

Enfin peut etre que tu dois mettre activesheet devant le target
  1. Activesheet.target.locked = true

Bonjour,

J'ai essayé de mettre ta ligne de code mais ça me génére une erreur, de plus je ne pense pas qu'elle soit nécéssaire car le code est directement dans la feuille en question en Private... .

En fait le problème c'est qu'il n'y a aucune éxécution.

Merci.

C'est bien ce que je pensais, cet onglet est vérouillé donc tu ne dois pas pouvoir modifier de cellule dessus (suivant ton paramétrage) donc tant que tu ne met pas à jour qqch dans l'onglet pas d'évênement Change générer.
Lassé par la pub ? Créez un compte

Créer un nouveau sujet