Bonjour,
A l'ouverture d'un fichier Excel, je souhaiterais faire saisir un code d'entrée pour ouvrir un fichier.
(Limiter l'accès à un classeur par un code d'entrée)
Mon problème est que Excel 2007 désactive les macros à l'ouverture des fichiers, et la sécurité des macros peut-être désactivée par toute personne sur son poste. Comment y remédier ?
Ci-dessous, mon modèle de macro :
Vous en remerciant par avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Private Sub Workbook_Activate() code = InputBox("Saisissez le code d'entrée" , "ACCÈS" If code <> "PASSWORD" Then MsgBox "Code incorrect, sortie du programme" ActiveWorkbook.close End If End Sub
Cordialement.
Partager