[VBA-E] Déprotéger une feuille

Bonjour,

Afin de permettre de mettre à jour un tableau croisé dynamique lorsque la feuille est verrrouillée, j'ai créé un bouton sur ma feuille qui lui s'occupe de la mise à jour de la façon suivante:

Code:

---

1 2 3 4 5 6 7 8

Private Sub cmdMAJ_Click() With Worksheets("h. Statistiques") .Unprotect .PivotTables(1).RefreshTable .Protect End With End Sub

---

Malheureusement, j'ai une erreur à la ligne .unprotect comme de quoi cette fonction a échoué.

Quelqu'un aurait-il une idée pourquoi j'obtiens cette erreur?

Merci et bonne journée

bonsoir

Ta procédure fonctionne chez moi (Excel2002).
Quel est le code d'erreur et le message exact?
Quelle est ta version d'Excel?


michel

Sur mon poste elle fonctionne aussi et j'ai excel 2000. Par contre sur un autre poste où c'est excel 2002 qui est installé et ça plante. Le message d'erreur c'est quelque chose comme "La méthode 'unprotect' de l'objet worksheet a échoué".

Existe-t-il un moyen de contourner ce problème?