proteger l'acces d'un usf par mot de passe ?

[avoriaz]

salut le forum,

je voudrais proteger un usf que je lance par l'intermediaire d'un bouton..
cette userform me permet de masquee ou nom certaine feuille de mon classeur ...

je voudrais donc limiter l'acces de cette userform ...

quel type de code utiliser ?

merci pour votre aide

avo

 

[Jean-Jacques]

bonjour,

Si le but est de protéger des feuillesen les cachant , il vaut mieux modifier la propriété visible des feuilles lorsque le userForm est initialisé, genre:

Sheets("NomFeuille").visible = False ou
Sheets("NomFeuille").visible = xlSheetVeryHidden ( ne permet plus l'affichage dans excel par format/feuille/afficher).

...et pour revenir à la situation avant, prévoir dans l'événement Deactivate de l'UserForm

Sheets("NomFeuille").visible = True

Par contre si le but est de neutraliser l'accès à des feuiles restant visibles , il faut empêcher que les commandes clavier ( Alt / F4 et Ctrl /attn ) puissent désactiver l'userForm. Ceci peut se faire mais il serait plus simple que tu explique précisemment ton objectif.

A+ peut être.
JJ

 

[avoriaz]

merci pour ta réponse

voila mais explications:

j'ai une macro qui permet de lister les feuilles et de les proteger et deproteger a la voler, via un usf...

mais je veux pas que toutes les personnes on acces a cette usf puisqu'il pourront faire masquer ou afficher des feuilles de calcul ou autre document important a mon application vba...

c'est pour ca que par l'intermediaire de mon bouton d'acces je veux etablir un mots de passe pour acceder a mon usf...

merci pour ton aide

avo

 

[Jean-Jacques]

Avo,

Je te propose d'interposer une boite de dialogue entre ton bouton et l'initialisation de ton user :

Le code de ton bouton serait :

MotDePasse = Application.InputBox("Vérification habilitation : MOT DE PASSE")

If MotDePasse = "AVO" Then
UserForm(NomUser).show
End If

A+
JJ

 

[avoriaz]

salut le forum,

cette methode a l'aire de fonctionner mais lorsque la fenetre mots de pass s'ouvre j'ai une erreur a l'ouverture de l'usf !!

Dim motdepasse As String

motdepasse = Application.InputBox("Vérification habilitation : MOT DE PASSE")

If motdepasse = "AVO" Then
ListeFeuille(motdepasse).Show ................ erreur ici
End If

listefeuille etant le non de l'usf que je veux proteger pour l'acces avec mots passe

faut proteger la feuille par la methode proteque avant peut etre ?

merci pour votre aide