Niveau de protection selon le mot de passe

job75

XLDnaute Barbatruc

• 11 Octobre 2010

• #16

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 :

Code:

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+

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 11 Octobre 2010

• #17

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 😕

 

Pièces jointes

• Classeur4.xls

  20 KB · Affichages: 55
• Classeur4.xls

  20 KB · Affichages: 55
• Classeur4.xls

  20 KB · Affichages: 51

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Octobre 2010

• #18

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+

 

Pièces jointes

• Classeur4(1).xls

  25.5 KB · Affichages: 63
• Classeur4(1).xls

  25.5 KB · Affichages: 66
• Classeur4(1).xls

  25.5 KB · Affichages: 58

Dernière édition: 11 Octobre 2010

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 11 Octobre 2010

• #19

Re : Niveau de protection selon le mot de passe

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

 

Vote positif 0 Vote négatif

9

962

Guest

• 11 Octobre 2010

• #20

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 !

 

Dernière modification par un modérateur: 11 Octobre 2010

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 11 Octobre 2010

• #21

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.

 

Dernière édition: 11 Octobre 2010

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Octobre 2010

• #22

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

 

Vote positif 0 Vote négatif

S

Softmama

XLDnaute Accro

• 13 Octobre 2010

• #23

Re : Niveau de protection selon le mot de passe

job75 à dit:

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

Inquiétant Pascal, non ? 🙂

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

9

962

Guest

• 14 Octobre 2010

• #24

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 !!

 

Vote positif 0 Vote négatif

O

olivowitch

Guest

• 6 Janvier 2011

• #25

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

 

Vote positif 0 Vote négatif

O

olivowitch

Guest

• 6 Janvier 2011

• #26

Re : Niveau de protection selon le mot de passe

Merci Jean-Marcel,

j'avais oublié cela.

Bonne journée

 

Vote positif 0 Vote négatif