XL 2016 Les feuilles refusent de s’afficher après le mot de passe

[La Vouivre]

Bonsoir les amis

Je cherche à faire une macro qui me demande un mot de passe à l’ouverture du fichier tout en masquant toutes les feuilles sauf la feuille 1, après le mot de passe mis je voudrais afficher toutes les feuilles

Je cherche partout mais rien à faire je n’arrive pas à afficher les feuilles après le mot de passe, il me manque un truc pour que ça fonctionne, mais je sèche

Je vous mets le fichier pour vous montrez ce que j’ai déjà trouvé

Pouvez vous m’aider

Par avance merci

 

[Jacky67]

Bonsoir les amis

Je cherche à faire une macro qui me demande un mot de passe à l’ouverture du fichier tout en masquant toutes les feuilles sauf la feuille 1, après le mot de passe mis je voudrais afficher toutes les feuilles

Je cherche partout mais rien à faire je n’arrive pas à afficher les feuilles après le mot de passe, il me manque un truc pour que ça fonctionne, mais je sèche

Je vous mets le fichier pour vous montrez ce que j’ai déjà trouvé

Pouvez vous m’aider

Par avance merci

Bonjour,
Essaye comme dans la PJ

 

[ChTi160]

Bonjour La vouivre
Bonjour le Fil (Jacky67)
Bonjour le Forum
voilà ce que j'ai mis lol

Private Sub Workbook_Open()
'Déclaration des variables
Dim nom As Variant
Dim Ws As Worksheet
''''''''''''''''''''''''''''''''''''''
'Masquer toutes autres feuilles
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name <> "Feuil1" Then
Ws.Visible = xlVeryHidden 'On masque les feuilles autres que "Feuil1"
End If
Next
'demande de MDP apres la date , pas de mot de passe avant la date
If Date > "01/03/2008" Then  ' A remplacer par ta Date
    nom = InputBox("Entez le mot de passe / Uw naam")
  If nom = "la vouivre" Then
   For Each Ws In Worksheets
          Ws.Visible = True 'On affiche les Feuilles masquées
   Next
  Else
    ThisWorkbook.Close SaveChanges:=True
  End If
End If
End Sub

Bonne Journée
Amicalement
Jean marie

 

[cp4]

Bonjour La Vouivre, Jacky67,ChTi160,

@La Vouivre : un peu de sérieux, tu demandes de l'aide VBA et tu mets un mot de passe au projet VBA.
Qui pourrait corriger ton code sans y avoir accès.

Bonne journée!

 

[ChTi160]

Re
Le Mot de pass est indique "la vouivre"

 

[cp4]

Re
Le Mot de pass est indique "la vouivre"

Soit que tu es devin ou trop fort en la matière

edit: non, je parlais du mot de pass du projet vba (dans l’éditeur de code). On ne peut pas accèder à son code.

 

[La Vouivre]

Bonsoir les amis,

Merci à tous de vous été intéresser à mon projet et pour votre précieuse aide, c’est pile-poile ce que je cherchais. Je n’en étais pas loin, mais je bloquais.

Maintenant un peu d’humour dans ce monde de brutes

Mon amis CP4 le MDP est dans les petites lignes en feuill1 , il faut toujours lire ces sacrées petites lignes surtout dans les contrats genre assurance , c’est là qu’on t’explique pourquoi tu ne seras pas remboursé ,

Aller sans rancune mon amis CP4

Je vous souhaite à tous de très bonnes fêtes de fin d’année