Discussion :

[Vba14]

Bonjour à tous,

J'ai mis en place ce code qui permet de mettre une protection à la désactivation de certaines feuilles. Le mot de passe et ensuite retiré avec le 2ème code qui se trouve être dans un formulaire.
Est-il possible de mettre ces 2 codes dans un module qui servira pour toutes les feuilles concernées.
Le formulaire de mot de passe est appelé par un bouton à chaque fois que l'utilisateur souhaitera modifier la feuille activée.
Merci par avance pour votre aide

Code :

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

1
2
3
4
5
6
7
 
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFiltering:=True, userinterfaceonly:=True
        Application.ScreenUpdating = True
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CommandButton1_Click()
If Me.TxtMpasse.Text <> Sheets("Données").Range("Mpasse") Then
MsgBox ("Mot de passe incorrect... Veuillez recommencer !")
Me.TxtMpasse.SetFocus
Else
    Sheets("Données").Visible = True 'le nom de la feuille sera différente en fonction de l'ouverture souhaitée
    Sheets("Données").Activate
    Sheets("Données").Unprotect 'On enlève la protection de la feuille - Protection mise au Desactivate
End If
Unload Me
End Sub

[Menhir]

Es-tu sûr que ce mot de passe soit utile ?

Si tu fais ça pour protéger tes feuilles contre des maladresse d'utilisateurs, tu peux mettre en place une protection sans mot de passe.

Si tu veux vraiment mettre en place une vraie protection, bin... ta méthode a plus de trous qu'un emmental.
Même avec des méthodes très basiques, il est possible de la contourner très facilement.

[Vba14]

Bonjour Menhir,

Dans le ruban, "Protection de la feuille" a été supprimée, donc l'utilisateur ne pourra pas utiliser cette méthode. Mon code Vba est protégé par un mot de passe, la feuille où se trouve le mot de passe est protégée également. Le mot de passe ne se voit pas car mis à la même couleur que la case qui est protégée également.
Je ne sais pas quoi faire de plus...
Pour permettre l'écriture dans la feuille "Données" j'ai donc créé le formulaire.

[Igloobel]

Bonjour,

Ce que Menhir te dis ( Menhir) c'est qu'il est malheureusement illusoire de croire que l'on peut protégé efficacement quelquechose sur Excel

c'est tellement facile de craquer les codes de protections sur Excel qu'il vaut mieux le savoir et faire avec !
Sache que les petits malins sauront craquer ton code

[Vba14]

Bonjour Igloobel,

Merci pour ta réponse. Mais connaissant mes collègues je doute fort qu'ils puissent craquer un mot de passe. Lorsqu'il rencontre ce genre de problème avec leurs fichiers, c'est à bibi qu'ils font appel, alors je suis rassuré de ce côté là.
Mais il est vrai quand dans l'absolu, rien n'est vraiment protégé, mais ça freine un peu tout élan de modification directe.

[Menhir]

Dans le ruban, "Protection de la feuille" a été supprimée, donc l'utilisateur ne pourra pas utiliser cette méthode.

Et tous les rubans ont été verrouillés ?
Parce que sinon, en trois clics il est possible de remettre cette commande.

Et le VBE a été verrouillé ?
Parce que sinon, n'importe quel utilisateur peut écrire une ligne VBA qui fera la même chose.

la feuille où se trouve le mot de passe est protégée également.
Le mot de passe ne se voit pas car mis à la même couleur que la case qui est protégée également.

Un petit test basique.
Mets-toi dans n'importe quelle cellule de n'importe quelle feuille de ton classeur et tape la formule =Données!Mpasse.
Qu'est-ce que tu vois dans la cellule ?

Je ne sais pas quoi faire de plus...
Pour permettre l'écriture dans la feuille "Données" j'ai donc créé le formulaire.

Ma méthode perso (c'est juste un avis, je ne dis pas que c'est ce qu'il faut faire), c'est d'éviter de mettre des barrières aux utilisateurs et d'essayer plutôt de les responsabiliser.

Il y a plusieurs raisons à ça.
D'abord, la nature humaine est ainsi faite que si une barrière existe, il y aura toujours quelqu'un qui cherchera à la franchir, la contourner, voir la briser. Et plus la protection sera forte, plus cette personne fera un truc stupide et destructif pour en venir à bout. Et c'est d'autant plus facile que cette protection implique le VBA.
Ensuite, parce que c'est beaucoup plus chiant à mettre en place et à gérer pour le concepteur.

Responsabiliser l'utilisateur, c'est établir une procédure claire de bonne utilisation.
Si quelqu'un sort des clous, veut prendre un raccourci ou autre sottise qui cause des problèmes, on sort la boite à coups de pied au cul virtuel, on lui mets le nez dans son caca en lui faisant comprendre que s'il est bloqué, c'est de sa faute. C'est d'autant plus efficace si la maladresse handicape d'autres personnes : elles se chargeront elles-mêmes de faire comprendre au coupable de ne pas recommencer.

Cette méthode est très efficace à moyen terme.

Donc, à moins d'avoir des données confidentielle (et, dans ce cas, une application Excel partagée n'est pas une bonne idée), je ne mets que des protections sans mots de passe, juste pour éviter les maladresses.

[Vba14]

Je comprends l'idée. Merci pour ta franchise.

Le Vbe est protégé. Pour le reste, il est vrai que tout est possible.

[Menhir]

Le Vbe est protégé. Pour le reste, il est vrai que tout est possible.

Quand tu dis "le VBE est protégé", est-ce que tu parles uniquement de ton code ou de tout l'éditeur ?

[Igloobel]

Je voudrais juste ajouter qu'une personne peut créer des macros personnelles (Personal.xlsb) à partir d'un classeur vide, et donc c'est la porte ouverte à toutes possibilité.

Ceci juste pour cela reste présent à ton esprit