Discussion :

[jean30]

Bonsoir,
Le but est de déprotéger la feuille Param pour permettre d'y porter des modifications, puis de la re-protéger J'ai ce code mais il ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 Sub Worksheet_Activate()
    Sheets("Param").Unprotect Password:="Param"
End Sub

Sub Pwd 'activé sur bouton placé sur la feuille
    Range("B10:C15").Font.ColorIndex = 35
    Sheets("Param").Protect Password:="Param"
End Sub

Que me manque t-il svp ?
Je précise que l'ensemble du code Vba est lui-même protégé ("Amaryllis")
En vous remerciant

[Transitoire]

Bonjour, j'ai testé votre programme, chez moi ça marche!
Toutefois, a quoi sert de protéger une feuille alors que la protection s'enlève automatiquement à l'activation de celle-ci.
Je pense que vous avez une erreur de "stratégie", je pense qu'il faut revoir, ou alors vous expliquer mieux!
En général, on fait l'inverse, on protège a la déactivation et on demande le mot de passe à l'activation. A vous d'y réfléchir.
Cordialement

[Transitoire]

Re, pour gagner du temps, si ça vous convient, ci-dessous code a mettre dans le Module de la page "Param".
à l'ouverture de la page, ça demande le mot de passe pour enlever la protection et à la fermeture, ça remet automatiquement la protection.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Worksheet_Activate()
 x = InputBox("Feuille protégée, entrez le passCode!", "PASSECODE")
 If x = "Param" Then: Sheets("Param").Unprotect Password:="Param"
End Sub
 
Private Sub Worksheet_Deactivate()
Range("B10:C15").Font.ColorIndex = 35
Sheets("Param").Protect Password:="Param"
End Sub

[jean30]

Bonjour Transitoire
C'est exactement ce que je cherchais
Bonne journée