Niveau de protection selon le mot de passe

[962]

Bonjour,

J'ai un fichier excel avec une dizaine d'onglet, j'ai des collaborateurs qui ont besoin des données seulement tout le monde ne peut pas tout voir !
Alors est il possible selon un mot de passe défini de ne faire apparaitre uniquement les onglets nécessaire ?

 

[job75]

Re : Niveau de protection selon le mot de passe

Bonjour nat54, bonjour ma brunette,

L'InputBox renvoie du texte, alors si en cellule A1 des feuilles on a une valeur nombre, il faut utiliser :

Private Sub Workbook_Open()
Dim mdp As String, w As Worksheet, flag As Boolean
1 mdp = InputBox("Entrez votre mot de passe", "Mot de passe")
If mdp = "" Then Exit Sub 'ou Me.Close
For Each w In Worksheets
  If mdp = "toto" Or [COLOR="Red"]CStr[/COLOR](w.[A1]) = mdp Then w.Visible = True: flag = True 'toto = mot de passe administrateur
Next
If Not flag Then GoTo 1
End Sub

A+

 

[nat54]

Re : Niveau de protection selon le mot de passe

Bonjour Job75,

Au lancement on doit bien saisir un MdP ?
j'ai modifié en mettant du texte en A1
et rien ne se passe

 

[job75]

Re : Niveau de protection selon le mot de passe

Re,

Vous vous êtes teinte en brune ?

Les macros doivent être bien sûr dans ThisWorkbook.

En plus vous aviez supprimé l'adresse 1 en 3ème ligne du code...

A+

 

[nat54]

Re : Niveau de protection selon le mot de passe

Fatiguée je suis donc j'ai collé machinalement dans un module
merci

 

[962]

Re : Niveau de protection selon le mot de passe

Normal tu as mis la macro dans la feuille 1 or il faut le mettre dans la feuille thisworbook !

Oupss j'ai pas rafraichis !

 

[Softmama]

Re : Niveau de protection selon le mot de passe

nat54, Je pense que pour fonctionner, ton code ne doit pas être entré dans un module rajouté, mais dans celui de Thisworkbook. Ainsi, le code s'exécutera à chaque ouverture [sub workbook_open] et à chaque fermeture [Sub Workbook_BeforeClose(Cancel As Boolean)] de ton classeur.

 

[job75]

Re : Niveau de protection selon le mot de passe

Bonsoir,

962 et Softmama sont restés 4h30 et 5h sans être rafraîchis...

Inquiétant Pascal, non ?

Bonne nuit

 

[Softmama]

Re : Niveau de protection selon le mot de passe

962 et Softmama sont restés 4h30 et 5h sans être rafraîchis...

Inquiétant Pascal, non ?

Ben, j'ai du rester 10 min maxi, mais j'ai pas vu la suite des messages pourtant. Et il semblerait que 962 non plus.

 

[962]

Re : Niveau de protection selon le mot de passe

En fin de compte quand je suis revenu sur ma page j'ai vu le premier message de Nath, et comme c'était une nouvelle phrase, j'ai pas imaginé que c'était pas la dernière !! voila !!

 

[olivowitch]

Re : Niveau de protection selon le mot de passe

Bonjour,

Merci pour cette macro qui fonctionne très bien!
j'aurai une petite question :

--> si les personnes qui n'ont pas accès à toutes les feuilles font Alt-F11, ils ont accès à la macro où ce trouve aussi le code administrateur. Est-il possible de privée l'accès au VBA pour les personnes autres que l'administrateur (moi quoi )?

Merci et bonne journée

 

[olivowitch]

Re : Niveau de protection selon le mot de passe

Merci Jean-Marcel,

j'avais oublié cela.

Bonne journée