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
Bonjour,
j'aimerai s'avoir comment je peu protéger ma feuille masquer avec un mot de passe c ta dire c je clique sur afficher une boite de dialogue s'affiche pour mettre le mot de passe merci


<config>Windows 7 / Safari 537.1</config>

4 réponses

Mike-31 Messages postés 18345 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 8 novembre 2024 5 104
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.
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
16 août 2012 à 13:29
Salut Mike,

Excuse mon intervention, je n'avais pas rafraichit...

En espérant que tout va bene pour toi.

Bonne journée!
0