Protect password

J

jeromegmc

XLDnaute Occasionnel

• 16 Juin 2005

• #2

Salut,

Voici le code

Code:

ActiveSheet.Protect mon_password, DrawingObjects:=True, Contents:=True, _
Scenarios:=True

A+

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 16 Juin 2005

• #3

Bonjour le forum
Bonjour Hortense, bonjour jeromegmc

Ton code, Hortense est fonctionnel et requière un mot de passe pour déprotéger la feuille - Ce code a bien été placé dans un module
comme par exemple :

Sub Protect ()
ActiveSheet.Protect password:='xxx'
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

H

Hortense

Guest

• 16 Juin 2005

• #4

Il est intégré au début de diverses macro. Mais que je clique sur déprotéger la feuille, j'ai pas d'invite pour taper le mot de passe?!

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 16 Juin 2005

• #5

Re le forum
Re bonjour Hrotense, re bonjour jeromegmc

En résumé, ton code agit bien sur ta feuille qui est donc protégée à l'appel du code OKi ? (Menu / Outils / Protection / Il est bien noter Öter protection de la feuille !! - Par contre, lorsque tu cliques sur Oter Protection, tu n'as pas de boîte de dialogue qui s'affiche Oki ?
Aussi bIzarre qu'étrange !!!! Essai de mettre ton fichier en PJ pour y regarder de plus près.
Ou essais le code seul sur un nouveau classeur pour voir ???

 

Vote positif 0 Vote négatif

H

Hortense

Guest

• 16 Juin 2005

• #6

Je peux pas envoyer mon fichier, c'est trop lourd. J'ai tout tout relu attentivement, j'ai surement des problèmes d'écriture car j'ai effectivement fait un essai à vide et ça marche impeccablement bien!
Je te tiens au courant....

 

Vote positif 0 Vote négatif