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 :
J'espère que vous pourrez m'aider !
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
Belle journée à tous
Partager