How to copy a row with formula in locked cells & insert copied cells in a protected sheet

hello
i Writhe this code and how to run in protect with password sheet

Sub sabt()
Dim c As Range
For i = 1 To Sheets.Count
    For Each c In Sheet1.Range("I3")
        If c.Value = Sheets(i).Name Then
    Range("A3:H3").Select
    Selection.Copy
    Sheets(i).Activate
    Range("A3").Select
    Selection.Insert Shift:=xlDown
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A3").Select
    Sheets("sabt").Select
    Range("A3:G3,I3").Select
Selection.ClearContents
Range("A3").Select
        End If
    Next c
Next i
End Sub