Sub d()
Dim wb As Workbook
Dim r As Range, cell As Range, r1 As Range, c As Range

For Each cell In Selection
Set wb = Workbooks.Open(cell.Value)

With wb
    With wb.Sheets(1)
        .Cells.Locked = True
        
        Set r = Intersect(.Range("C:C,E:E,G:G,I:I,K:K,M:M,O:O"), .UsedRange)
        For Each c In r
            If c.Text = "0,00" And c.Interior.Pattern = xlNone Then
            If r1 Is Nothing Then Set r1 = c Else Set r1 = Union(r1, c)
            End If
        Next
        r1.Locked = False
'        r1.Select
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=123
    End With
    .Close True
End With
Next
End Sub

Set wb = Workbooks.Open(cell.Value)

For Each cell In Selection

'Запрос сбора данных с книг(если Нет - то сбор идет с активной книги)

    If MsgBox("Собрать данные с нескольких книг?", vbInformation + vbYesNo, "Excel-VBA") = vbYes Then
        avFiles = Application.GetOpenFilename("Excel files(*.xls*),*.xls*", , "Выбор файлов", , True)
        If VarType(avFiles) = vbBoolean Then Exit Sub
        bPolyBooks = True
        lCol = 1
    Else
        avFiles = Array(ThisWorkbook.FullName)
    End If

Sub d()
Dim wb As Workbook
Dim r As Range, It, r1 As Range, c As Range
    
avFiles = Application.GetOpenFilename("Excel files(*.xls*),*.xls*", , "Âûáîð ôàéëîâ", , True)
If VarType(avFiles) = vbBoolean Then Exit Sub

For Each It In avFiles
Set wb = Workbooks.Open(It)
With wb
On Error GoTo errH
    With wb.Sheets(1)
        .Cells.Locked = True
        
        Set r = Intersect(.Range("C:C,E:E,G:G,I:I,K:K,M:M,O:O"), .UsedRange)
        For Each c In r
            If c.Text = "0,00" And c.Interior.Pattern = xlNone Then
            If r1 Is Nothing Then Set r1 = c Else Set r1 = Union(r1, c)
            End If
        Next
        r1.Locked = False
'        r1.Select
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=123
    End With
    .Close True
End With
Next
MsgBox "Done"
Exit Sub
errH:
MsgBox Err.Number & vbCr & Err.Description
End Sub