Discussion :

[JulienCEA]

Dans excel, on peut protéger un classeur avec un mot de passe. Il y a une propriété password dans l'objet workbook qui, je suppose, contient le mot de passe. Par contre, on peut protéger indépendament les feuilles avec ou sans mdp, mais je ne trouve pas de propriété password dans un objet worksheet. Je voudrais savoir comment, dans le code, on peut savoir si la feuille active est protégé avec un mot de passe ?

[Megaxel]

Regarde l'aide à

Code :

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

Worksheets(1).Protect

(ou Unprotect...)

[JulienCEA]

Merci mais je ne trouve pas de propriétés "password" en rapport avec la méthode protect. Ce que je voudrais faire par exemple, c'est déprotéger toutes les feuilles qui ne sont pas protégées par mdp dans un classeur ( ça génère une erreur si la feuille est protégée par mdp).

[jmfmarques]

Une petite suggestion en attendant le retour de Megaxel :
Lancer l'enregistreur de macros ==>> protéger la feuille avec un mot de passe ==>> fermer l'enregistreur puis lire la macro écrite et voir s'il ne convient pas de changer un true en false pour faire l'inverse

[Megaxel]

1°)Comment est-ce que tu stockes tes mots de passe?
2°) Si tu fais un Unprotect sur une feuille non protégée, tu n'as pas d'erreur, alors qu'est-ce qui t'empêche de faire des Unprotect sans te soucier du fait qu'il y ait un mot de passe?
3°) Si tu veux vraiment connaître les feuilles qui sont protégées, tu peux essayer de modifier une cellule, et tu gères l'erreur soulevée.

(Ch'uis là!)

[bidou]

parce que lire la propriété Feuille.ProtectContents ca ne suffit pas ?

[Megaxel]

Et tu ne pouvais pas le dire plus tôt!!!

C'est nickel, ça, je ne connaissais pas cette prop' !
Merci!

(Y'a pas, ils sont forts, ces Lyonnais...)

[Elstak]

Hmhm je sens comme un leger air de moquerie

(Y'a pas, ils sont forts, ces Lyonnais...)

sinon c'est pas mal j'avais jamais vu non plus et ca peut toujours servir

[SfJ5Rpw8]

tiens sinon pour dé-protéger la feuille et renvoyer un message d'erreur si tu ne connai pas le mot de passe...:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function LibereFeuille(sh As Worksheet)
  Dim bMemo As Boolean
  On Error GoTo ErreurMotDePasse
   bMemo = Application.DisplayAlerts
   Application.DisplayAlerts = False
   sh.Unprotect ""
   Application.DisplayAlerts = bMemo
 LibereFeuille = True
 Exit Function
ErreurMotDePasse:
Application.DisplayAlerts = bMemo
LibereFeuille = False
End Function
 
Sub MonTest()
 If LibereFeuille(ActiveSheet) Then
     MsgBox "Liberation OK"
     Else
     MsgBox "Mot de passe inconnu"
End If
 
End Sub

[JulienCEA]

Bon, pas très satisfaisant tout ça. J'avais pensé à le gestion d'erreur et il me semble bien que c'est en effet la seule solution, même si je la trouve pas très élégante. Enfin, l'essentiel c'est que ça marche !

[zazaraignée]

Hmhm je sens comme un leger air de moquerie

Faut pas s'en faire. Y'a de vieux potes qui se taquinent souvent, ici.

[Megaxel]

Heyy hooo!
Julien!!!
Tu n'as pas lu la réponse de Bidou !!!
Oublie les *****eries que j'ai pu dire, et prend sa solution!

(Sinon, pas la moindre moquerie dans ce que j'ai dit: je suis Lyonnais de naissance!!!)

[bidou]

(Sinon, pas la moindre moquerie dans ce que j'ai dit: je suis Lyonnais de naissance!!!)

Il reste encore des autochtones vivants

[Megaxel]

Mouais...
Et dans quelques semaines, je me ferai traiter de "Parisien" par mes nouveaux voisins montpellierains...
Triste sort...

[JulienCEA]

Je suis pas sur de m'être bien fait comprendre. Dans mon workbook, toutes mes feuilles sont protégées. Il y en a qui sont protégées avec un mdp et d'autres qui sont protégées sans mdp. La propriété protectcontents renvoie true si la cellule est protégé dans tous les cas. Moi je veux pouvoir distinguer une protection avec mdp d'une protection sans mdp.

[jmfmarques]

Hum !
Il me semble que les indications de Bidou sont suffisantes, pourtant !
Tester si True ou si False.

[Megaxel]

+1
Votez Bidou !

[JulienCEA]

Désolé d'insister mais je persiste à dire que les indications de bidou ne répondent pas à ma question. Je la reformule encore une fois :
Deux worksheet A et B. La feuille A est protégée avec un mot de passe, la feuille B est protégée sans mot de passe. La propriété ProtectContents est True pour les deux feuilles A et B. Quelle propriété permet de dire que la feuille A est protégée avec un mot de passe et la feuille B est protégée sans mot de passe.

[Megaxel]

Ok, d'accord, j'avais mal compris...
Je crois bien qu'une feuille "protégée sans mot de passe" est en fait une feuille "protégée avec un mot de passe qui est "" ".
Du coup, je dirais bien que la solution avec la gestion de l'erreur est la seule façon de s'en sortir. Mais bon, si Bidou a encore un atoût dans sa manche...

[jmfmarques]

OK !
relis ce que j'ai dit plus haut en ce qui concerne l'enregistreur de macro.
Fais tes deux essais (un avec mot de passe et un sans)=... et vois la différence... puis sers-t-en en connaissance de cause. J'y parviens avec mon très vieux VBA et ne doute pas une seconde que ton outil moderne te propose au moins autant...
PS pour Joël : a quoi te réfères-tu ????? (disparououou)