protection feuille avant affichage

[nisuc]

bonjour
je souhaiterai protégé un feuille avant que cette dernière ne s'affiche à l'écran;
en clair mon scénario idéal :
-format , feuille , affichage
-choix de la feuille
-demande de mot de passe
-affichage de la feuille si ok

merci de votre aide,
philippe

 

[kjin]

Re : protection feuille avant affichage

Bonjour nisuc, le forum,
Si tu veux empêcher l'affichage d'une feuille, c'est la structure du classeur que tu dois protéger. Donc manuellement, masque la feuille puis protège le classeur (structure) par mot de passe; également possible en VBA.
A+
kjin

 

[JNP]

Re : protection feuille avant affichage

Bonjour Nisuc, Kjin 🙂,
Si tu fait une recherche sur le forum avec "Protection" par exemple, tu trouveras de la protection simple à la formule "Coffre fort" avec triple protection.
Si tu cherches juste un léger blocage, il te faut :
une procédure de masquage de la feuille dans la procédure de fermeture du fichier (Attention, il faut au moins une feuille visible dans le classeur) :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Visible = xlSheetVeryHidden
End Sub

une procédure de démasquage de la feuille après saisie du mot de passe

Private Sub Workbook_Open()
Dim MdP As String
MdP = InputBox("Mot de passe SVP", "Fichier protégé")
If MdP = "Mot de passe" Then
    Sheets("Feuil1").Visible = xlSheetVisible
    Sheets("Feuil1").Protect ("2ème mot de passe")
End If
End Sub

A te lire 😎

 

[nisuc]

Re : protection feuille avant affichage

merci JNP et Kjin
JNP j'ai essayé ton code, résultat pour être masqué ma feuille est très bien masquée, je n'arrive plus à la ré-affiché ; elle n'apparait plus dans liste de choix dans format, feuille, affichage. par contre elle existe toujours puisque qu'elle apparait sous VBA....
j'ai effacé le code dans VBA mais aucun résultat..
une idée ?

 

[nisuc]

Re : protection feuille avant affichage

ouf j'ai retrouvé mes petits...
je corrige