XL 2016 Protection de feuilles en VBA qui ne fonctionne pas

[halecs93]

Bonjour à toutes et à tous....

Le code VBA dans mon fichier servant à protéger les feuilles du classeur ne fonctionne pas.... j'ai cherché, tatonné... je ne trouve pas.

Quelqu'un aurait une idée ?

Grand merci

 

[sylvanu]

Bonjour Halecs,
Vos deux codes marchent correctement.
Cependant vous avez des cellules déverrouillées ... donc non protégées.
1- Lancer Protéger
2- Dans Janvier, essayez de modifier A9, vous ne pourrez pas elle est protégée.
3- Lancer Déprotéger
4- Dans Janvier, vous pouvez modifier A9.

Que cherchiez vous à faire ?

 

[halecs93]

Bonjour Halecs,
Vos deux codes marchent correctement.
Cependant vous avez des cellules déverrouillées ... donc non protégées.
1- Lancer Protéger
2- Dans Janvier, essayez de modifier A9, vous ne pourrez pas elle est protégée.
3- Lancer Déprotéger
4- Dans Janvier, vous pouvez modifier A9.

Que cherchiez vous à faire ?

Je laisse volontairement des cellules déverrouillées de façon d'y permettre la saisie de données.
En fait, une macro (bouton ajouter colonne) sur la feuilles des Données déverrouille l'ensemble des autres feuilles de façon à permettre à la macro de s'exécuter. Mais, le code reverrouillant les feuilles ne fonctionne pas

 

[sylvanu]

Je persiste

Vos deux codes marchent correctement.

Le revérouillage s'effectue correctement sur toutes les feuilles..

 

[halecs93]

Je persiste

Le revérouillage s'effectue correctement sur toutes les feuilles..

Lorsque je j'ajoute des colonnes (via le userform qui s'ouvre en cliquant sur le bouton destiné), les feuilles ne re revérouillent pas... je viens de refaire la manip.....

 

[sylvanu]

Lorsque je j'ajoute des colonnes (via le userform qui s'ouvre

Il fallait préciser ce petit détail dès le départ.
C'est normal pour moi, votre macro est :

Sub usf()
    UserForm1.Show
    DeProteger
End Sub

Il n'y a aucune raison qu'il se re protège.
Moi, j'aurais testé :

Sub usf()
    DeProteger
    UserForm1.Show
    Proteger
End Sub

 

[halecs93]

Il fallait préciser ce petit détail dès le départ.
C'est normal pour moi, votre macro est :

Sub usf()
    UserForm1.Show
    DeProteger
End Sub

Il n'y a aucune raison qu'il se re protège.
Moi, j'aurais testé :

Sub usf()
    DeProteger
    UserForm1.Show
    Proteger
End Sub

Oui... en effet.. mais... le feuilles devraient se déverrouiller uniquement après la validation (bouton ''ajouter'' de l'userform et se vérouiller à la fin de l'exécution de la macro. Et là... ça se déverrouille avant cette validation.

 

[sylvanu]

Vous allez distiller les infos au goutte à goutte ?
Alors supprimer simplement votre Déprotéger de :

Sub usf()
    UserForm1.Show
    DeProteger
End Sub

Car votre Userform protège en sortant et vous le déprotéger ensuite.

 

[halecs93]

Vous allez distiller les infos au goutte à goutte ?
Alors supprimer simplement votre Déprotéger de :

Sub usf()
    UserForm1.Show
    DeProteger
End Sub

Car votre Userform protège en sortant et vous le déprotéger ensuite.

Je réponds tardivement.... en effet... merci beaucoup