[VBA Excel] BackgroundQuery et protection de la feuille

Version imprimable

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:

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

04/01/2006, 15h18
Megaxel

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... :D )
04/01/2006, 16h22
Worldofdada
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:

1 2 ActiveWorkbook.Protect Password:="pass" ActiveWorkbook.Unprotect Password:="pass"
04/01/2006, 16h36
Megaxel

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...
04/01/2006, 17h02
Worldofdada

Ma protection fonctionne bien pour les cellules par contre, je ne veux pas protéger l'objet

Code:

.Refresh BackgroundQuery:=False

et je ne sais pas comment faire :(