Oter la protection d'une feuille avec VBA

[frangil]

Bonjour le Forum,

J'ai plusieurs feuilles qui sont protégées dans un document Excel et que j'aimerais pouvoir ouvrir certaines feuilles avec une macro qui ouvre une fenêtre en demandant la saisie du mot de passe (exemple de mot de passe: abc123) et qui ouvre une autre fenêtre du style :"Saisie incorrecte" tant que la saisie n'est pas correcte.

Alors, si quelqu'un a une petite idée ...

Belle journée à ceux et celles qui me liront et meilleures messages.

France

 

[DL_13]

Re : Oter la protection d'une feuille avec VBA

Bonjour,

Un essai dans le fichier joint si j'ai bien compris

Activation d'une feuille, tant que le mot de passe n'est pas correct retour sur la feuil1 (à modifier éventuellement)

Bonne journée

 

[frangil]

Re : Oter la protection d'une feuille avec VBA

Bonjour,

J'ai fait un essai qui ne correspond pas tout-à-fait à ce que j'espérais !

En effet, j'aimerais sur des feuilles bien définies, donc pas toutes les feuilles de mon document, que j'ai nommées par exemple, comme CrA, CrB, VdF, ... pouvoir les ouvrir avec un mot de passe, toujours le même et rester sur la feuille en question, tant que le mot de passe :"abc123" correct n'a pas été saisi !

En tous cas, c'est vraiment sympa de m'avoir répondu et à bientôt, j'espère !

Meilleurs messages.

France

 

[DL_13]

Re : Oter la protection d'une feuille avec VBA

Re,

il faut modifier dans le Workbook_SheetActivate le nom des feuilles où il doit y avoir le MdP
Nouvel essai avec les feuilles 1, 4, 6 désactivés. Pour avoir accès aux feuilles 2, 3, 5 Mot de passe obligatoire

Bonne journée

 

[DoubleZero]

Re : Oter la protection d'une feuille avec VBA

Bonjour, frangil, DL_13 , le Forum,

Une autre suggestion en pièce jointe.

A bientôt

 

[frangil]

Re : Oter la protection d'une feuille avec VBA

Oups ! J'ai un message d'erreur ! Erreur de compilation, variable non définie !

Ou se trouve le bug !

Sub PasLesAutresFeuilles()
Do
Mdp = InputBox("Veuillez saisir le mot de passe", "MdP")
Loop While Mdp = ""
If Mdp <> "abc123" Then MsgBox "Mot de passe incorrect !": Feuil1.Activate: Exit Sub
End Sub

 

[job75]

Re : Oter la protection d'une feuille avec VBA

Bonjour à tous,

Oups ! J'ai un message d'erreur ! Erreur de compilation, variable non définie !

Ou se trouve le bug !

C'est pourtant clair, et en plus Mdp est mis en surbrillance !

Déclarez donc la (seule) variable par Dim Mdp As String

A+

 

[DL_13]

Re : Oter la protection d'une feuille avec VBA

Bonjour frangil, 00, Job75

Bonjour à tous,

C'est pourtant clair, et en plus Mdp est mis en surbrillance !

Déclarez donc la (seule) variable par Dim Mdp As String

A+

Merci Job et pourtant... avec Option Explicit et Dim Mdp As String en tête de module... difficile de le rater

Bonne journée

 

[frangil]

Re : Oter la protection d'une feuille avec VBA

Qui cherche trouve ... et c'est le cas, youpie !

Alors merci et belle journée !

Frangil

 

[DoubleZero]

Re : Oter la protection d'une feuille avec VBA

Bonjour, frangil, DL_13 , job75 , le Forum,

Qui cherche trouve ... et c'est le cas...

"trouve" quoi ? L'erreur ou bien une autre solution ?

A bientôt