masquer une feuille et demasquer par un mot de passeRésolu

Question

Bonjours à tous

J'ai un classeur excel ou je voudrai masquer une feuille et pouvoir la démasquer par un  mot de passe pour que je sois le seul à la visionner et modifier
j'ai essayer avec un bouton, sa fonctionne bien mais le problème ,
 on a toujours accès pour l'afficherr par format/feuille afficher, donc mon bouton avec ma macro ne sert à rien 
si quelqu'un pouvait m'aider 

merci

lemoret · Accepted Answer

cache ta fenètre avec la propriété Visible = xlSheetVeryHidden et tu n'auras plus le problème

mortalino · Answer

Salut, essai quelque chose de ce genre là : Sub WordPass() Dim WP As String WP = InputBox("Saisir le mt de passe") If WP <> "ton mot de passe" Then ' met ici ton mot de passe MsgBox "Mot de passe eronné": Exit Sub Else ' pense à remplacer le nom de la feuille : If Sheets("Feuil2").Visible = True Then Sheets("Feuil2").Visible = False Else Sheets("Feuil2").Visible = True End If End If End Sub ~ [code.aspx?ID=39466 Mortalino] ~ @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

fildupa · Answer

Oui, mais quant la feuille est masquée
pour la réafficher soit que tu cliques sur le bouton avec le mot de passe (pour sa ok)
mais le problème c'est que tu n'est obligé de passé par le bouton car si tu vas dans formats feuille afficher, elle réaparait sans mot de passe :-( et là c'est ennuyant car la formule ne sert plus à rien, il faudrait la meme chose mais que "format /feuille afficher soit inaccesible"

affaire à suivre et qui n'est pas tou simple

fildupa · Answer

merci
c'est que je voulais ,je n'ai plus cas interdire d'ouvrir microsoftbasic et figer mon bouton pour que personne regarde dedans

patgravure35 · Answer

bonjour a tous et toutes

jus un petit renseignement mortalino

comment ne pas voir le mot de passe que tu tape
car il apparait dans la boite de dial

merci de ton aide a bientot

Masquer une feuille et demasquer par un mot de passe

5 réponses

Votre réponse

Discussions similaires