Ajout à un script qui existe déjà

Bonjour, j'ai cette macro/Script qui existe déjà dans une de mes pages. Le problème est le suivants, mon onglet doit demeurer vérouiller lorsque je ne dois pas entrer des informations. Alors je ne peux pas activer la macro quand l'onglet est vérouiller. Je dois donc la dévérouiller et vérouiller chaque fois après utilisation.

Ma macro existante est pour inséré une ligne quand j'en es besoin. Est-ce possible d'incorporer dans ce script un code qui fait comme 1er action, dévérouiller l'onglet, fait le script que j'ai déjà, et ensuite vérouille l'onglet.

Voici mon script

Sub test_1()
'
' test_1 Macro
'

'
    Rows("2:2").Select
    Selection.Copy
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    Range("A1").Select
    Application.CutCopyMode = False
    Range("B2").Select
    Selection.ClearContents
    Range("D2").Select
    Selection.ClearContents
    Range("E2").Select
    Selection.ClearContents
    Range("F2").Select
    Selection.ClearContents
    Range("A3:H3").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    Range("A1").Select
End Sub

Bonjour Wild

Ce n'est pas un script, on appelle ça du code VBA

Sinon vous pouvez faire comme ceci

Sub test_1()
  ' Avec la feuille en question
  With Sheets("MaFeuille")
    ' La déprotéger
    .Unprotect Password:="toto"
    ' Copier et insérer la ligne en 2
    .Rows("2:2").Copy
    .Rows("2:2").Insert Shift:=xlDown
    Application.CutCopyMode = False
    ' Effacer le contenu
    .Range("B2,D2:F2").ClearContents
    ' Bloquer la ligne 3
    With .Range("A3:H3")
      .Locked = True
      .FormulaHidden = False
    End With
    .Protect Password:="toto"
  End With
End Sub

A+

Merci...