Mot de passe pour l'accès à une feuille

Bonjour le forum!

Je souhaite mettre un mot de passe pour l'accès la feuil2 via la feuil1:

Sur la feuil 1 j'ai une macro qui me donne l'ouverture de la

feuil2 et je souhaite y mettre un mot de passe pour pouvoir y accéder, si le mot de passe est incorrect : rien ne se passe!

Merci à vous

Bonjour,

Le mieux serait de voir ton code ou le fichier mais tu peux essayer ceci :

Sub Message()
'Macro par Dan le 19/04/08
    Dim Message As String
    Dim Mavaleur
    Dim i As Byte
    i = 1
    For i = 1 To 2
    Message = "Entrer votre mot de passe"
    Mavaleur = InputBox(Message)
    Select Case Mavaleur
    Case Is = "toto"
    With Sheets("feuil2")
        .Visible = True
        .Activate
    End With
    Exit Sub
    Case Else
    MsgBox "mot de passe erroné"
    End Select
    Next i
End Sub

Macro à placer dans un module où le mot de passe est "toto". Tu peux tenter 2 fois d'encoder le mot de passe.

Change "feuil2" par le nom de ta feuille.

Sache tout de même que faire sauter un mot de passe est assez facile.

Amicalement

Dan

Bonjour

En piochant et en travaillant un peu, pour un novice commr moi, j'avais réussi à trouver.

Nad-Dan me pardonnera de mettre aussi ma réponse.

https://www.excel-pratique.com/~files/doc/SAdxUClasseur2.xls

Cordialement

super, mais cela serait bien de ne pas voir le mot de passe que je tape...

merci

Bonjour

Il suffit de protéger le VBA project pour interdire son affichage.

https://www.excel-pratique.com/~files/doc/ProtectionVBA.xls

Cordialement

Non pas dans le VBA, mais dans la fenêtre où je tape le mot de passe...

https://www.excel-pratique.com/~files/doc/sans_titre1.jpg

merci

Bonsoir

Pas à dire, un jour, il faudra que je m'y mettre..

https://www.excel-pratique.com/~files/doc/MDPInvisible.xls

Cordialement