masquer une feuille d'excel avec 1mot2passe Fermé

Question

Bonjour, j'aimerai s'avoir comment je peu protéger ma feuille masquer avec un mot de passe c ta dire c je clique sur afficher une boite de dialogue s'affiche pour mettre le mot de passe merci Windows 7 / Safari 537.1

Mike-31 · Answer

Salut, 

ce code rend la feuil2 invisible 
Sub Cache() 

    Worksheets("Feuil2").visible = xlVeryHidden   'xlSheetHidden 
End Sub 

ce code demande un mot de passe pour afficher la feuille2 qui est toto 

Sub visible() 
Dim Mdp 
retour: 
    Mdp = InputBox("Entrez le mot de passe", "Avertissement : l'accès aux Feuilles est sécurisé ") 
   ' If Mdp = "" Then Exit Sub 
    If Mdp <> "toto" Then Exit Sub 
Worksheets("TM00").visible = True 
End Sub 

 https://www.cjoint.com/?BHqnPal8Hlj  

A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

pijaku · Answer

Salut,

Un exemple vaut parfois mieux qu'un discours.

Si tu as des soucis pour l'adapter n'hésite pas...

Mike-31 · Answer

Salut Pijaku,

Tout va bien, il fait beau et des envies de m'installer définitivement sur la cote méditerranéenne.
Tu n'as pas à t'excuser le forum est lieu d'échange et puis nos réponses se sont croisées 13:26 et 13:27

Cordialement

Raymond PENTIER · Answer

Bonjour shahrazed 

... et n'oublie pas d'écrire ton mot de passe quelque part ; car lorsque tu nous enverras un message pour dire que tu as oublié ton mot de passe, nous ne pourrons pas te dépanner ! 
 --
C'est bien, la retraite ! Surtout aux Antilles ... :-) 
&#9787; Raymond &#9794;

Masquer une feuille d'excel avec 1mot2passe

4 réponses

Discussions similaires