Mot de Passe Automatique

[samixite]

Bonjour tout le monde,

J'ai un classeur comportant 3 feuilles.
J'aimerais créer une macro qui masque les feuilles 2 et 3 puis protège le classeur en utilisant un mot de passe que j'aurais défini càd que l'utilisateur n'aurait pas à spécifier le mot de passe.

Mes connaissances en VBA ne vont pas assez loin ...Merci pour votre aide

 

[Dull]

Re : Mot de Passe Automatique

Salut samixite, le Forum,

que veut tu dire par là?

J'aimerais créer une macro qui masque les feuilles 2 et 3 puis protège le classeur en utilisant un mot de passe que j'aurais défini càd que l'utilisateur n'aurait pas à spécifier le mot de passe.

comment veut tu que l'utilisateur accède à ton fichier sans mot de passe tout en étant protégé?

je te conseil le fichier de Thierry qui pourrais eventuellement te dépanner

Bonne journée

 

[CBernardT]

Re : Mot de Passe Automatique

Bonjour Samixite, Dull et le forum,

Un essai à modifier avec ton mot de passe :

Sub MasquerFeuillesProtectClasseur()
Application.ScreenUpdating = False
Feuilles du classeur masquées
Sheets(Array("Feuil2", "Feuil3")).Visible = False
' Protection du classeur
ActiveWorkbook.Protect Password:="***", Structure:=True, Windows:=True
Application.ScreenUpdating = True
End Sub

Cordialement

Bernard

 

[JeanMarie]

Re : Mot de Passe Automatique

Bonjour

Pour mettre les pieds en commençant par des petits pas, il exite un enregistreur de macro.
Clique sur le menu Outils/Macros/Nouvelle macro..., après avoir donné un nom à cette macro, clique sur OK, puis enchaine les différentes actions :
- Sélectionne tes deux feuilles
- masque ces feuilles
- Sélectionne la feuille
- Clique sur le menu Outils/Protection/Protéger la feuille ...
- Indique ton mot de passe
- Clique sur le premier bouton de la barre d'outils "macros"

Ce qui pourrait donner ceci

Sub Macro2()
Sheets(Array("Feuil2", "Feuil3")).Select
Sheets("Feuil3").Activate
ActiveWindow.SelectedSheets.Visible = False
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

@+Jean-Marie

 

[samixite]

Re : Mot de Passe Automatique

Epoustouflant de rapidité ce forum !!!
Tout d'abord merci à tous

Pour répondre à Dull :

Je voudrais que la personne qui consulte le classeur après protection ne puisse pas voir les feuilles 2 et 3, et je veux que la personne qui active la protection n'ait pas à taper le mot de passe à chaque fois


JeanMarie,

J'ai fait ce que tu m'indiques mais ça ne résoud pas mon problème de mot de passe "prédeterminé"

Je vais tester la macro de CBernardT et vous tiens au courant

Encore merci

 

[JeanMarie]

Re : Mot de Passe Automatique

Re...

C'est normal, j'ai mis une protection par mot de passe sur la feuille, et non sur l'ouverture du classeur, ce n'est pas la même chose.

@+Jean-Marie