Discussion :

[Tartifletan]

Bonjour,

j'ai eu besoin de créer une macro afin de bloquer la modification de feuille à d'autres utilisateurs sans pour autant leurs cacher. Ne m'y connaissant pas du tout j'ai réussi à en trouver une qui fonctionne sur mon tableau Excel mais qui ne fait pas vraiment ce que j'attend d'elle, je m'explique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Activate()
Dim REP As String
Columns("A:XFD").EntireColumn.Hidden = True
REP = InputBox("PASSWORD", "OUVERTURE FEUILLE RECAP ASSO")
If REP = "YOURPASSWORD" Then
Columns("A:XFD").EntireColumn.Hidden = False
ActiveSheet.Cells(1, 1).Select
End If
End Sub

voici ce que j'ai utilisé. Pour débloquer la feuille Excel il faut mettre le mdp, si il n'est pas rentré ou erroné la page reste cachée et mon problème ce trouve ici. Je souhaiterais que la page soit visible de tous mais modifiable seulement si on rentre le mot de passe. J'ai en tout 7 feuilles à bloquer par un mot de passe.
Ne m'y connaissant pas je n'arrive pas à la modifier, et ce que je trouve sur internet est trop compliqué pour mon niveau.

Pouvez vous m'expliquer comment la modifier afin qu'elle atteigne le résultat que j'attend ?

J'espère avoir étais assez clair sur ce que je souhaite faire et ce que j'attend.


Par avance merci et bonne journée.

[Philippe Tulliez]

Bonjour,
Effectivement ce code ne répond absolument pas à ton attente puisqu'il ne gère que l'affichage ou pas des colonnes de A à XFD
En utilisant l'enregistreur de macros, tu auras le code que tu souhaites avoir pour activer la protection de la feuille et celui qui permet de l'ôter.
Il suffira ensuite d'y ajouter la fonction MsgBox et d'intégrer le tout dans la procédure événementielle Worksheet_Activate

Après avoir obtenu le code de l'enregistreur et si après quelques essais tu ne t'en sors pas, reviens et on t'aidera volontiers

[Menhir]

Je souhaiterais que la page soit visible de tous mais modifiable seulement si on rentre le mot de passe. J'ai en tout 7 feuilles à bloquer par un mot de passe.
Ne m'y connaissant pas je n'arrive pas à la modifier, et ce que je trouve sur internet est trop compliqué pour mon niveau.

Une protection efficace des données en utilisant le VBA, c'est comme le monstre du Lock Ness : tout le monde en parle mais personne ne l'a vu.

Si, en plus, tes connaissances en VBA sont limitées, oublie de faire ça par macro et utilise les outils que tu as à ta disposition dans Excel.
Par exemple, la protection de feuille : Ruban Révision > Protéger la feuille.
On peut utiliser un mot de passe (ou pas) et on peut choisir les cellules modifiables.
C'est beaucoup plus simple et beaucoup plus efficace que ce que tu comptes faire.

[Tartifletan]

Bonjour,

Avec vos deux conseils j'ai réussi à faire ce que je voulais !!

Merci beaucoup !

Bonne journée à vous deux.

[Menhir]

Si ton idée a été de mettre un Worksheet.Protect dans une macro, j'espère que tu n'as pas oublié de protéger aussi la macro.
Sinon, ça revient à fermer une porte à clé en laissant la clé sous le paillasson.

[Philippe Tulliez]

Bonjour Menhir,
Je ne peux qu'abonder dans ton sens

[Tartifletan]

Oui j'ai bien protégée ma macro. Une sécurité en plus est toujours bonne même si mes collègues ne savent certainement pas comment y accéder.

Bonne journée !