Discussion :

[babybell]

Bonjour

Quelqu'un pourrait-il m'indiquer le moyen de protéger, en VBA, une feuille excel en faisant en sorte qu'elle ne soit visible que lorsqu'on rentre un password. Je sais comment protéger une feuille avec password, je sais comment masquer une feuille, mais je ne sais comment rendre une feuille visible après avoir entré un password

Merci à celui ou à ceux qui pourraient me dépatouiller de ce problème

[pottiez]

Salut,
pour cela il faut aller dans le menu outils, puis protection et enfin protéger la feuille.

[babybell]

merci de me répondre, mais cela ne répond pas à ma question.
Le fait de simplement la protéger ne fait pas qu'elle soit masquée. Ce que je voudrais, c'est que par macro cette feuille soit masquée et en cliquant sur un bouton, celle-ci ne soit visible qu'après avoir tapé un password. Me suis-je bien fait comprendre ?

[pottiez]

Oups, j'ai pas lu ton message en entier, j'ai été trompé par le titre désolé

[fring]

Bonjour,

Tu peux essayer ceci :

• dans le module de la feuille où se situe le bouton
  

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  1
  2
  3
  4
  5
  6
  7
  8
  9
  10
  11
  12
  13
  14
  15
  16
  17
  18
  19
  20
  21
  22
  23
  Private Sub CommandButton1_Click()
  Dim Mdp As String
   
  'si la feuille est déjà visible on quitte la procédure
  If Sheets("Feuil3").Visible = True Then Exit Sub
   
  recom:
  'boîte de dialigue
  Mdp = InputBox("Veuillez introduire votre mot de passe", "Password")
   
  'si vide ou si clic sur annuler on quitte la procédure
  If Mdp = "" Then Exit Sub
   
  'si c'est le bon mot de passe ("toto") on exécute
  If Mdp = "toto" Then
      Sheets("Feuil3").Visible = True
  Else
      'si ce n'est pas le bon mot de passe on recommence
      MsgBox "Mot de passe non valide !", vbCritical, "Password"
      GoTo recom
  End If
   
  End Sub

• dans le module ThisWorkbook
  

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  1
  2
  3
  4
  Private Sub Workbook_BeforeClose(Cancel As Boolean)
  'rend la feuille complètement invisible à la fermeture du classeur
  Sheets("Feuil3").Visible = xlVeryHidden
  End Sub

PS : Ne pas oublier de protéger, via un mot de passe, le "Projet VBA"
.

[babybell]

Merci du coup de main, cela me va très bien, surtout la manière de rendre la feuille complètement invisible, comme cela je n'ai même pas besoin de protéger le classeur

[Ezéchiel Kénan]

Très propre