OVH Cloud OVH Cloud

Erreur de compilation inexpliquée

1 réponse
Avatar
Dominique GOUBY
Ceci ne fonctionne pas (erreur 1004 la méthode protect de l'oblet
WorkSheet a échoué)

Private Sub ProtegeMaFeuille()
Dim MaFeuille As Worksheet

Set MaFeuille = ActiveWorkbook.Worksheets(1)

MaFeuille.Protect

End Sub

Ceci fonctionne

Private Sub ProtegeMaFeuille()
Dim MaFeuille As Worksheet

Set MaFeuille = ActiveWorkbook.Worksheets(1)

Range(nimportequellecellule).Select
MaFeuille.Protect

End Sub

Pourquoi ????

1 réponse

Avatar
isabelle
bonjour Dominique,

les deux fonctionne bien sur xl2002,
si tu exécute la macro à partir d'un bouton de la barre d'outils
controle, n'oublie pas de mettre la propriété du bouton TakeFocusOnClick
à false.

isabelle


Ceci ne fonctionne pas (erreur 1004 la méthode protect de l'oblet
WorkSheet a échoué)

Private Sub ProtegeMaFeuille()
Dim MaFeuille As Worksheet

Set MaFeuille = ActiveWorkbook.Worksheets(1)

MaFeuille.Protect

End Sub

Ceci fonctionne

Private Sub ProtegeMaFeuille()
Dim MaFeuille As Worksheet

Set MaFeuille = ActiveWorkbook.Worksheets(1)

Range(nimportequellecellule).Select
MaFeuille.Protect

End Sub

Pourquoi ????