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

  • Initiateur de la discussion Initiateur de la discussion hatim
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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'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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour