Ouverture d'un fichier avec mot de passe

Troudz

XLDnaute Occasionnel
Bonjour,

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

Code:
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
 
Dernière édition:

JCGL

XLDnaute Barbatruc
Bonjour à tous,

Peux-tu essayer en ajoutant ceci dans le ThisWorkBook :
VB:
Private Sub Workbook_Open()
    Dim F As Worksheet
    For Each F In Worksheets
        F.Protect userInterfaceOnly:=True
    Next F
End Sub

Modules_ThisWorkBook.JPG


A+ à tous
 

Discussions similaires

Réponses
2
Affichages
113
Réponses
5
Affichages
367
Compte Supprimé 979
C
Réponses
4
Affichages
594