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 4 janvier 2024 - 18 août 2009 à 15:19
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 18 août 2009 à 15:19
A voir également:
- Conditionner affichage onglet / mot de passe
- Piratage facebook changer mot de passe - Guide
- Voir mot de passe wifi android - Guide
- Mot de passe administrateur - Guide
- Mettre un mot de passe sur un dossier - Guide
- Outlook mot de passe oublié - Guide
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
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")