[VBA Excel] BackgroundQuery et protection de la feuille

**Worldofdada** · 04/01/2006, 15h05

Bonjour,

J'ai une feuille protégée par un mot de passe et celà fait planter ma macro qui va ouvrir une page Web pour récupérer des informations (fichier .csv).
L'erreur est 1004 et c'est sur .Refresh BackgroundQuery:=False.

Quelqu'un sait comment je peux ne pas protéger cette propriété ?

Voici le code de ma fonction :

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
17
18
19
20
21
22
23
24
25
With Me.QueryTables.Add(Connection:="TEXT;" & "http://xxxxxxxxxxxxxxxx", _
            Destination:=Range(Chr(64 + ValeursTemp_colonne) & ValeursTemp_ligne))
                .Name = "Temporary_data"
                .FieldNames = False
                .RowNumbers = False
                .FillAdjacentFormulas = True
                .PreserveFormatting = True
                .RefreshOnFileOpen = False
                .RefreshStyle = xlOverwriteCells
                .SavePassword = False
                .SaveData = True
                .AdjustColumnWidth = False
                .RefreshPeriod = 0
                .TextFilePromptOnRefresh = False
                .TextFileStartRow = 1
                .TextFileParseType = xlDelimited
                .TextFileTextQualifier = xlTextQualifierDoubleQuote
                .TextFileConsecutiveDelimiter = False
                .TextFileTabDelimiter = False
                .TextFileSemicolonDelimiter = False
                .TextFileCommaDelimiter = True
                .TextFileSpaceDelimiter = False
                .TextFileColumnDataTypes = Array(1, 1, 1, 1)
                .Refresh BackgroundQuery:=False
            End With

Merci beaucoup,
Worldofdada

**Megaxel** · 04/01/2006, 15h18

Salut,
Ce que tu peux faire, c'est "dé-protéger" ta feuille juste avant cette opération, et la "re-protéger" après.
Je n'ai plus le code en tête, mais fais une recherche sur le forum, le code pour faire ça a été donné il n'y a pas très longtemps (en 2005, quand même...

)

**Worldofdada** · 04/01/2006, 16h22

Ca marche ca mais je voulais savoir s'il n'y avait pas une autre possibilité c'est à dire de ne pas protéger ce "truc" afin d'éviter de stoker le mot de passe.

Pour info, les commandes pour locker - unlocker sont :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveWorkbook.Protect Password:="pass"
ActiveWorkbook.Unprotect Password:="pass"

**Megaxel** · 04/01/2006, 16h36

Ok, je retente ma chance:
dans le menu "Outils, Protection", tu as "Permettre aux utilisateurs de modifier des plages".
Je ne pense pas que ça convienne (même si je ne sais pas exactement ce que tu veux faire), mais jette un oeil dessus.
Sinon, l'intérêt de protéger une feuille, c'est bien de ne pas pouvoir y toucher. Alors sans mettre le mot de passe quelque part...