Masquer/Afficher onglet par VBA avec mot de passe
Résolu/Fermé
caillasse147
Messages postés
71
Date d'inscription
lundi 26 décembre 2016
Statut
Membre
Dernière intervention
28 juin 2017
-
28 déc. 2016 à 14:38
caillasse147 Messages postés 71 Date d'inscription lundi 26 décembre 2016 Statut Membre Dernière intervention 28 juin 2017 - 28 déc. 2016 à 15:15
caillasse147 Messages postés 71 Date d'inscription lundi 26 décembre 2016 Statut Membre Dernière intervention 28 juin 2017 - 28 déc. 2016 à 15:15
A voir également:
- Masquer une feuille excel avec mot de passe
- Piratage facebook changer mot de passe - Guide
- Mot de passe administrateur freebox ✓ - Forum Freebox
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Voir mot de passe wifi android - Guide
- Mettre un mot de passe sur un dossier - Guide
3 réponses
NaXiLeAn
Messages postés
112
Date d'inscription
mercredi 27 juillet 2016
Statut
Membre
Dernière intervention
2 juin 2020
1
28 déc. 2016 à 14:51
28 déc. 2016 à 14:51
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+ ;)
- 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+ ;)
