Masquer/Afficher onglet par VBA avec mot de passe
Résolu
caillasse147
Messages postés
71
Statut
Membre
-
caillasse147 Messages postés 71 Statut Membre -
caillasse147 Messages postés 71 Statut Membre -
Bonjour à tous,
Merci d'avance de prendre un peu de temps pour m'aider à solutionner mon problème.
En fait j'ai une macro de disponible et ça fonctionne parfaitement jusque la ça va, or j'ai mis un bouton en place, et grâce à ce dernier j'aimerais qu'en appuyant dessus je puisse afficher/masquer mes onglets et cela en écrivant le bon mot de passe j'ai déjà le début de ma macro ci-dessous mais je ne trouve pas comment faire pour que ça fonctionne :
Sub macro()
Password = InputBox("Mot de passe ?", "Verif utilisateur")
If Password = "cybo2016!" Then
If Password <> "cybo2016!" Then
MsgBox "Merci de renseigner le bon mot de passe!!"
End If
End Sub
Merci
Merci d'avance de prendre un peu de temps pour m'aider à solutionner mon problème.
En fait j'ai une macro de disponible et ça fonctionne parfaitement jusque la ça va, or j'ai mis un bouton en place, et grâce à ce dernier j'aimerais qu'en appuyant dessus je puisse afficher/masquer mes onglets et cela en écrivant le bon mot de passe j'ai déjà le début de ma macro ci-dessous mais je ne trouve pas comment faire pour que ça fonctionne :
Sub macro()
Password = InputBox("Mot de passe ?", "Verif utilisateur")
If Password = "cybo2016!" Then
If Password <> "cybo2016!" Then
MsgBox "Merci de renseigner le bon mot de passe!!"
End If
End Sub
Merci
3 réponses
-
Bonjour,
- réponse de "GREG" :
Coucou, j'ai trouvé 2 astuces sympa pour demander un password à l'ouverture d'une feuille.
1ere possibilité : je cache ma feuille
à écrire dans le module feuille
'-----------------------------------------------------
Private Sub Worksheet_Activate()
AFFICHER_TDB_ASSO
End Sub
à écrire dans le module classique
'------------------------------------------------------
Sub AFFICHER_TDB_ASSO()
Dim REP As String
REP = InputBox("PASSWORD", "OUVERTURE FEUILLE RECAP ASSO")
If REP = "YOURPASSWORD" Then
Worksheets("TDB_ASSO").Visible = True
Columns("A:XFD").EntireColumn.Hidden = False
ActiveSheet.Cells(1, 1).Select
End If
'------------------------------------------------------
End Sub
Sub MASQUER_TDB_ASSO()
Columns("A:XFD").EntireColumn.Hidden = True
Worksheets("TDB_ASSO").Visible = False
End Sub
2e possibilité : je ne le fais qu'en on active la feuille (mais en mon sens, ça doit devenir très vite difficile si on bosse régulièrement avec plusieurs feuilles dont celle ci ...)
à écrire dans le module feuille
'-----------------------------------------------------
Private Sub Worksheet_Activate()
Dim REP As String
Columns("A:XFD").EntireColumn.Hidden = True
REP = InputBox("PASSWORD", "OUVERTURE FEUILLE RECAP ASSO")
If REP = "YOURPASSWORD" Then
Columns("A:XFD").EntireColumn.Hidden = False
ActiveSheet.Cells(1, 1).Select
End If
End Sub
BIEN SUR CES CODES SONT A ADAPTER A TA FEUILLE ;)
A+ ;)
