XL 2016 Protection de feuilles en VBA qui ne fonctionne pas

sylvanu à dit:

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 ?

Cliquez pour agrandir...

sylvanu à dit:

Vos deux codes marchent correctement.

Cliquez pour agrandir...

sylvanu à dit:

Je persiste

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

Cliquez pour agrandir...

halecs93 à dit:

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

Cliquez pour agrandir...

Sub usf()
    UserForm1.Show
    DeProteger
End Sub

Sub usf()
    DeProteger
    UserForm1.Show
    Proteger
End Sub

sylvanu à dit:

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

VB:

Sub usf()
    UserForm1.Show
    DeProteger
End Sub

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

Code:

Sub usf()
    DeProteger
    UserForm1.Show
    Proteger
End Sub

Cliquez pour agrandir...

sylvanu à dit:

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

VB:

Sub usf()
    UserForm1.Show
    DeProteger
End Sub

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

Cliquez pour agrandir...