Bonjour,
mes connaissances en VBA sont trés limitées, je m'adresse à vous.
J'ai 6 feuilles dans un classeur Excel j'aurais voulu savoir si il etait possible de les protégees d'un coup avec un mot de passe par le biais d'une macro.
J'ai trouvé cet exemple mais ce n'est valable que pour la feuille selectionné
ActiveSheet.protect Password:="****", DrawingObjects:=False, Contents:=True, Scenarios:=False
End Sub
Regardes en bas de la page, si tu trouves de quoi t'aider.
(cf Discussions similaires).
PS: je te conseille cordialement de lire la charte du forum pour optimiser la résolution des questions que tu poseras ici.
Le probleme est en résolu en fait si je comprend la ligne (For i = 1 To Sheets.Count...) compte les feuilles et incremante d'une feuille jusqu'à ce que toute les feuilles est été protégées
For i = 1 To Sheets.Count
Sheets(i).protect Password:="****", DrawingObjects:=False, Contents:=True, Scenarios:=False
Next
si je veux enlever la protection, est ce que la commande UNPROTECT PASSWORD remplacerait PROTECT PASSWORD ?
J'ai créer un bouton pour deproteger les feuilles avec cette macro qui appelle unprotect. tout est OK.
Macro récupéré sur un forum j'aoue que j'aurais bien été incapable de trouver ça seul
Sub deprotection_click()
'
' deprotection
' Macro enregistrée le 03/10/2010 par Pompiers
'
Dim mot_de_passe As String
Dim texte As String
mot_de_passe = InputBox("Veuillez entrer le mot de passe", "Déprotection feuilles")
Seul petit soucis, c'est que lors de l'entrée du mot de passe celui-ci apparait en toute lettre au lieu d'avoir des étoiles comme lorsque je tape le mot de passe à de l'ouverture du fichier proteger.
Ma question est :
Est il possible d'avoir des étoiles à la place des lettres ?
Seul petit soucis, c'est que lors de l'entrée du mot de passe celui-ci apparait en toute lettre au lieu d'avoir des étoiles comme lorsque je tape le mot de passe à de l'ouverture du fichier proteger.
Ma question est :
Est il possible d'avoir des étoiles à la place des lettres ?