Conditionner affichage onglet / mot de passe
Fermé
pticoni
-
18 août 2009 à 13:30
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 18 août 2009 à 15:19
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 18 août 2009 à 15:19
A voir également:
- Conditionner affichage onglet / mot de passe
- 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
- Piratage facebook changer mot de passe - Guide
- Supprimer mot de passe windows 10 - Guide
- Dans le texte, un seul mot a réellement été écrit en lettres capitales (majuscules). quel est ce mot ? ✓ - Forum Word
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
18 août 2009 à 15:19
18 août 2009 à 15:19
Salut,
Je pense qu'il faut dans un premier temps masquer toutes tes feuilles puis faire quelque chose dans ce genre là :
Cette procédure fonctionne si le mot de passe est le nom de l'onglet.
Dim mdp As String
Dim Ws As Integer
mdp = InputBox("Veuillez saisir votre mot de passe", "Bonjour")
For Ws = 2 To Sheets.Count
If Sheets(Ws).Name = mdp Then
Sheets(mdp).Visible = True
Sheets(mdp).Activate
ActiveSheet.Unprotect
Exit Sub
End If
Next
MsgBox ("Mauvais mot de passe")
Je pense qu'il faut dans un premier temps masquer toutes tes feuilles puis faire quelque chose dans ce genre là :
Cette procédure fonctionne si le mot de passe est le nom de l'onglet.
Dim mdp As String
Dim Ws As Integer
mdp = InputBox("Veuillez saisir votre mot de passe", "Bonjour")
For Ws = 2 To Sheets.Count
If Sheets(Ws).Name = mdp Then
Sheets(mdp).Visible = True
Sheets(mdp).Activate
ActiveSheet.Unprotect
Exit Sub
End If
Next
MsgBox ("Mauvais mot de passe")