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 :

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
Vous en remerciant par avance.

Cordialement.