Ouverture d'un fichier avec mot de passe

[Troudz]

Bonjour,

J'ai pour habitude d'utiliser le code suivant pour ouvrir un fichier et vérifier si il est en lecture seule :

Sub OuvertureBdD2()
    CheminBdDMdO = "G:\17_Gestion_des_heures\test.xlsx"
    Mdp = "mdp"
    Application.DisplayAlerts = False
    Set BdDDest = Workbooks.Open(Filename:=CheminBdDMdO, ReadOnly:=False, Password:=Mdp)
    If BdDDest.ReadOnly = True Then
        MsgBox ("La base est en cours d'utilisation par un autre utilisateur. Veuillez réessayer l'opération dans un instant.")
        BdDDest.Close False
        Exit Sub
    End If
End Sub

Or je viens de me rendre compte que, lorsque le classeur à ouvrir est protégé par un mot de passe et est déjà ouvert par un autre utilisateur, la méthode demande à l'utilisateur de saisir le mot de passe alors même que celui - ci lui est donné en argument.

Auriez vous une idée pour solutionner ce problème ?

Je vous remercie par avance

 

[JCGL]

Bonjour à tous,

Peux-tu essayer en ajoutant ceci dans le ThisWorkBook :

Private Sub Workbook_Open()
    Dim F As Worksheet
    For Each F In Worksheets
        F.Protect userInterfaceOnly:=True
    Next F
End Sub

A+ à tous