protéger une feuille

[petchy]

Bonsoir le forum
dans un USF j'ai mis se code sur un bouton pour protéger cette feuille,mais ça ne fonctionne pas,je ne comprends pas,auriez vous une idée
[/code]
Private Sub CommandButton13_Click() 'quitter
Sheets('COLLIGNON').Protect 'protège la feuille
aaa.Hide
End Sub

merci

 

[STephane]

bonjour

sélectionner la feuille au préalable avec la méthode activate ?
rajouter le paramètre password à vide ?

 

[Eric C]

Bonsoir le nouveau forum
Bonsoir Petchy

Ton code est correct dans sa synthaxe donc ?????
Tu peux même le paufiner en y plaçant un password de cette façon

Sheets('COLLIGNON').Protect [color=#0000FF]Password:='123'[/color]

Testé XL 2000 (97 c'est itou)

@ + Eric C

 

[Eric C]

Re le forum
Re Bonsoir Petchy, bonsoir STéphane

Je remet le code car pas trop clair avec la couleur :
Sheets('COLLIGNON').Protect Password:='123'

STéphane, j'ai testé depuis une autre feuille que celle définie par le code du BTN (COLLIGNON) et cela fonctionne.

@ + Eric C

 

[petchy]

Re

merci à vous 2 pour vos réponses,mais mettre un Password ce n'est pas se que je recherche,car l'utilisateur n'aura pas accés au menu pour déprotéger,mais il faut que j'enleve la protection pour que l'utilisateur puisse envoyé des infos à l'aide d'un USF.Voila le bleme

 

[Eric C]

Re le forum
Re bonsoir Petchy, re bonsoir STephane

Le password était un bonus. Sinon je te disais et te dis de nouveau que ton code fonctionne impec.
Assez ambigües tes explications ou c'est moi qui suis fatigué après une dure journée :side:
A demain
@ + Eric C

 

[petchy]

bonsoir Eric

en fait ma feuille est protégée à l'activation,la pas de probleme,quand fois que je click sur un bouton qui se trouve sur cette feuille je fais apparaitre un USF et j'enleve la protection,je fait la saisie et je ferme l'USF avec le code ci-dessus,mais je n'ait plus la protection de la feuille,et la je ne comprends pas pourquoi ?.
:silly: :silly: :silly: :silly: :silly: :silly:

 

[Eric C]

Bonjour le forum
Bonjour Petchy

Je viens de prendre connaissance de ton soucis. J'ai reproduis ton USF et y ai placé un BTN (CommandButton12) pour suivre ton exemple.
J'y ai associé un code pour la déprotection de ta feuille (je pense que c'est ce que tu veux dire par l'appel de ton USF via un BTN de feuille et tout se passe bien :
Appel depuis BTN de feuille du USF aaa
Déprotection de la feuille COLLIGNON via le BTN12
Travaille dans la feuille
Protection de la feuille COLLIGNON via le BTN13 qui est appelé par le BTN de feuille

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
aaa.Hide
End Sub

Je ne vois rien d'autre qui cloche.
@ + Eric C

 

[petchy]

bonjour Eric C et le forum

merci à toi pour ta réponse ,maintenant ça fonctionne,je ne sait pas pourquoi,mais bon

merci encore