Masquer une feuille d'excel avec 1mot2passe
Fermé
shahrazed
-
16 août 2012 à 13:05
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 17 août 2012 à 08:43
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 17 août 2012 à 08:43
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
- Mot de passe administrateur - Guide
4 réponses
Mike-31
Messages postés
18310
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
29 mars 2024
5 073
Modifié par Mike-31 le 16/08/2012 à 13:41
Modifié par Mike-31 le 16/08/2012 à 13:41
Salut,
ce code rend la feuil2 invisible
Sub Cache()
Worksheets("Feuil2").visible = xlVeryHidden 'xlSheetHidden
End Sub
ce code demande un mot de passe pour afficher la feuille2 qui est toto
Sub visible()
Dim Mdp
retour:
Mdp = InputBox("Entrez le mot de passe", "Avertissement : l'accès aux Feuilles est sécurisé ")
' If Mdp = "" Then Exit Sub
If Mdp <> "toto" Then Exit Sub
Worksheets("TM00").visible = True
End Sub
https://www.cjoint.com/?BHqnPal8Hlj
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
ce code rend la feuil2 invisible
Sub Cache()
Worksheets("Feuil2").visible = xlVeryHidden 'xlSheetHidden
End Sub
ce code demande un mot de passe pour afficher la feuille2 qui est toto
Sub visible()
Dim Mdp
retour:
Mdp = InputBox("Entrez le mot de passe", "Avertissement : l'accès aux Feuilles est sécurisé ")
' If Mdp = "" Then Exit Sub
If Mdp <> "toto" Then Exit Sub
Worksheets("TM00").visible = True
End Sub
https://www.cjoint.com/?BHqnPal8Hlj
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
16 août 2012 à 13:29
Excuse mon intervention, je n'avais pas rafraichit...
En espérant que tout va bene pour toi.
Bonne journée!