unlocked OLE object on insert VBA

[ryan_law2000]

Hello everyone, I have code that works except it auto locks the object and I need it to be unlocked when sheet is protected.
any ideas how to keep these Objects unlocked on insert?
please help:

Sub AttachTicket1()

NextFree = Range("J18:J" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).row
Range("K" & NextFree).Select

Dim vFile As String
     Dim objI As Object
     Dim rngI As Range

     For Each rngI In Range("J18")    'make range any size, or use Selection for flexibility
         vFile = Application.GetOpenFilename("All Files,*.*", Title:="Find file to insert")
         If LCase(vFile) = "false" Then Exit Sub
         Set objI = ActiveSheet.OLEObjects.Add(Filename:=vFile, Link:=False, DisplayAsIcon:=True, IconLabel:=vFile)

         objI.Height = 15
         objI.Width = 40

     Next rngI
        
        Range("J" & NextFree).value = vFile & " Attached!"
        
End Sub

 

[Sektor]

objI.Locked = False