XL 2010 ERREUR 1004 DEFINIE PAR OBJET OU APPLICATION

[laplayast]

Bonsoir,
Je veux protéger la feuille et suite à cela, j'ai l'erreur 1004. J'ai rajouté les lignes en rouge au code initial mais ce n'est pas suffisant. Merci de votre aide pour palier ce problème.

Activeworksheet.Unprotect
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(celluleAvant) Then
If Not Intersect(Range(celluleAvant), [E5:LV30]) Is Nothing Then Calculate
End If
celluleAvant = Target.Address
If Not Application.Intersect(Target, Range("E5:LV30")) Is Nothing And Target.Count = 1 Then 'Adapter la plage
UserForm1.Show
End If
Calculate
Activeworksheet.Protect
End Sub

 

[JCGL]

Bonjour à tous,

Pourquoi cette deuxième discussion.
Voir ICI

A+ à tous

 

[laplayast]

Bonjour,

Erreur de ma part, je me suis trompé dans le choix de la discussion.Voir la suivante sur la MFC avec comment gerer la protection.
merci