XL 2016 Modification impossible cause feuil protegé

[Myst]

Bonjour le forum
Ma problêmatique est la suivante, je n'arrive pas a activer une macro dans une feuil protégée, j'ai essayé avec "ActiveSheet.Unprotect" mais ca ne fonctionne pas, quelqu'un aurait il une solution
merci

Set DestA = Sheets("feuil2").Range("AAA1").End(xlToLeft)
   DestA.Offset(0, 1) = ComboBox1
    DestA.Offset(1, 1) = TextBox4

 

[Myst]

Re j'ai trouvé la solution ci dessous
merci

 Worksheets("feuil2").Protect UserInterfaceOnly:=True