Erreur 1004 : la méthode unprotect de la classe worksheet a echoué

H

hatim

Guest
Bonjour,

J'ai un problème avec VB excel... Mon programme me met le message d'erreur "la méthode unprotect de la classe worksheet a echoué" quand je desactive la protection pour certaines feuilles...
pourtant, j'ai fait tourné le programme sous excel 2000, et ca marche sans aucun problème !!
Que dois-je faire pour que ca marche sous excel 97??

Merci de votre aide
 
H

hatim

Guest
Quand je clique sur un bouton placé sur ma feuille excel, j'execute ce programme :

Sub prog_calcul1()

Dim m As Integer
Dim p_bti As Integer
Dim p_rma As Integer
Dim p_btd As Integer

Worksheets("resume").Unprotect (C'est là où ca bloque !!!)
Worksheets("bti").Unprotect
Worksheets("rma").Unprotect
Worksheets("btd").Unprotect

Worksheets("resume").Activate

Sheets("resume").Range("B12:AK13").ClearContents
Worksheets("BTI").Activate
Sheets("BTI").Range("D9:AM10").ClearContents
Worksheets("RMA").Activate
Sheets("RMA").Range("D9:AM10").ClearContents
Worksheets("BTD").Activate
Sheets("BTD").Range("D9:AM10").ClearContents
Worksheets("resume").Activate

......reste....(corps du programme)

Worksheets("resume").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("bti").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("rma").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("btd").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

end sub
 
J

jac

Guest
J'ai eu exactement le même pb et j'ai été débogué par zon.
c'était le 5/10/04 "pb de macro protégées".
la solution fournie :sélectionner une cell auparavant fait que la macro fonctionne très bien sous excel 97
a+
jac
 

Discussions similaires

Statistiques des forums

Discussions
314 162
Messages
2 106 603
Membres
109 639
dernier inscrit
Phil1860