Bonjour au forum,
Je cherche une solution efficace pour "centraliser" la gestion des exécutions de macros protégées par mdp.
J'ai effectivement, dans la plupart de mes fichiers Excel, un grand nombre de macros dont l'exécution est validée par mot de passe.
Pour l'instant, j'utilise ce type de code au début de chaque macros :
Option Explicit
Dim Mdp As String, i As Long, Ws As Worksheet
Sub Test()
Mdp = Application.InputBox("Veuillez introduire votre mot de passe :")
If Mdp <> "Toto" Then MsgBox "Accès refusé !": Exit Sub
Application.ScreenUpdating = False
' ma macro
Application.ScreenUpdating = True
End Sub
Cette méthode présente plusieurs défauts pour moi, le principal étant que le mot de passe s'affiche en toute lettre.
À cela s'ajoute le nombre de ligne de code conséquent, car répété au début de chaque macros.
Auriez-vous une proposition de code ou une astuce, probablement en utilisant un UserForm pour avoir le paramètre PasswordChar="*", pour simplifier ce système ?
Amicalement,