Macro sur feuille protégée

Bonjour a tous.

J'ai une macro qui me donne un message d'erreur car ma feuille doit être protégée.

Voici mon code

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x, LigR As Long, IdR, sIdR, LigD As Long

If Selection.Row > 8 And Selection.Row < 49 And Selection.Column > 8 And Selection.Column < 49 Then

Cells(2, 61) = Selection.Row
Cells(2, 62) = Selection.Column
Else
Cells(2, 61) = 0
Cells(2, 62) = 0
End If
FIN:
Target.Calculate
End Sub

Quelqu'un peut m'aider svp

Merci beaucoup

Martin

Bonsoir,

Si j'ai bien compris, à mettre au début de la macro pour ôter la protection :

ActiveSheet.Unprotect

Avant le End sub pour activer la protection

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    ActiveSheet.EnableSelection = xlUnlockedCells

Cordialement.

Bonjour Zebulon 2

Merci pour le retour, mais j'essaie avec vos instructions et ca ne fonctionne pas.

Quand vous dites a mettre au tout début, ca me donne un message d'erreur.

A quel endroit précisément au tout début ?

Merci

Bonjour

Avant le If pour ôter la protection de la feuille, dans le cas où cette feuille est bien protégée et que c'est cela qui bloque l'exécution de la macro.

Cordialement.

Bonjour,

Je viens d'essayer et ca ne fonctionne pas.

Le classeur ne réponds plus

Merci

re,

Quel est le message d'erreur et quelle ligne de la macro est surlignée lors du débogage ?

Sinon, mets ton classeur en ligne, tu auras plus de chance d'avoir une réponse adéquate.

Cordialement.