Desactiver inputbox

Bonjour,

J'ai 2 fichiers excels que j'ai schematises en pieces-jointes:

• une base de donnees
• un fichier de base ouvrant la base de donnees pour copier ses donnees avant de la refermer.

Pour eviter que n'importe qui dans mon entreprise puisse acceder et modifier les donnees de la base de donnees, je lui ai mise un mot de passe a son evenement worbook.open:

Private Sub Workbook_Open()
    Dim lockk As String
    lockk = InputBox("Password?")
    If lockk <> "123" Then
        ThisWorkbook.Close
    End If
End Sub

J'aimerais que l'utilisateur n'ai pas besoin de rentrer ce mot de passe a l'ouverture de la base de donnees par ma macro.

Voyez vous donc un moyen pour desactiver temporairement l'inputbox ou alors enregistrer le mot de passe dans la macro du 2nd fichier?

merci

tu mets dans ta macro un:

application.enableevents=false

Par contre la sécurité de ton mot de passe est de 0. Il suffit d'appuyer sur shift en ouvrant ta base pour que workbook_open ne s'ouvre pas.