Masquer une feuille d'excel avec 1mot2passe

shahrazed -  
pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   -
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

<config>Windows 7 / Safari 537.1</config>

4 réponses

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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.
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Salut Mike,

      Excuse mon intervention, je n'avais pas rafraichit...

      En espérant que tout va bene pour toi.

      Bonne journée!
      0