Bonjour ,

Je fais appel à vous car j'ai un problème que je n'arrive pas à résoudre. Je possède un code VBA qui fait appel à un fichier excel et qui lui apporte des modifications. Cependant, ce fichier excel est partagé à plusieurs et j'ai donc besoin de le protéger avec un mot de passe pour la modification afin que les autres collaborateurs ne puissent pas le modifier. Pour le protéger j'ai "enregistré sous", "options générales" et j'ai protégé avec un mot de passe pour la modification.

Seulement maintenant je ne sais pas comment modifier le code suivant pour lui indiquer le password et lui autoriser l'accès :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Set Cn = New ADODB.Connection
        With Cn
            .Provider = "Microsoft.ACE.OLEDB.12.0"
            .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & QuotesDataBase & ";Extended Properties=""Excel 12.0 Macro;HDR=YES;"""
            .Open
        End With
 
        If (UpdateFM = True) Then
            sRequete = "UPDATE [" & SheetNewQuotes & "$] " & _
            "SET [OpenInQB] = '1'" & _
            " WHERE [DescrProjectID] = '" & mstrProjectID & "'"
 
            Cn.Execute sRequete
        End If
J'espère que vous pourrez m'aider !

Belle journée à tous