bleme de securité par mot de passe

[chico]

bonjour a tous,

dans mon classeur j'ai une feuille qui s'appelle 'personnel' qui est protegé par un mot de passe

dans ma feuille 'Accueil' j'ai un bouton qui ouvre la feuille ' personnel' mais avant il ouvre une useform pour inserer le mot de passe,
jusque la tout va bien.

mais si l'utilisateur s'y connais un peu, il y ira dans les options pour activer ' onglets de classeur' et y acceder par les onglets a cette feuille ' personnel '.

Donc ce que j'ai fait, c'est:

une variable ' permission' du type boolean
cette variable est ' true ' que si le mot de passe est correcte,

donc dans la feuille 'personnel' j'ai mis:
Private Sub Worksheet_Activate()
If permission = False Then Sheets('Accueil').Select

le probleme c'est que:
si l'utilisateur passe par les onglets de classeur, tant qu'il reste appuyé sur l'onglet 'Personnel ' il peut voir les informations qu'il y a sur cette feuille.

peut-on remedier a cette petite erreur?

merci d'avance pour vos idées
Amicalement
-Chico-

 

[PascalXLD]

Bonjour

Il suffit de cacher ta feuille lors de la fermeture du classeur e, xlveryhidden

Private Sub Workbook_BeforeClose(Cancel As Boolean)
sheets('personnel').visible=xlveryhidden
End Sub

Bon courage

 

[chico]

merci Pacale76

je vais essayer

🙂

 

[PascalXLD]

Juste une petite précision

I'm a MAN 😉

Pascal et non Pascale 🙂 🙂 🙂 🙂

 

[chico]

oups oui j'ai juste mis un e en plus, excuse moi,


sorry man

thank's

 

[chico]

pascal76,

ca marche le : sheets('personnel').visible=xlveryhidden

mais quand j'utilise le

sheets('personnel').select

ca marche plus

what's the problem?

 

[PascalXLD]

Bonjour

Avant de la select il faut mettre visible =true

sheets('personnel').visible=true
sheets('personnel').select

 

[Chico]

merci encore pour ton aide PASCAL
tout est ok maintenant
🙂