Private Sub Worksheet_Change(ByVal Target As Excel.Range)
      With Target
         If .Address(False, False) = "L5" Then
            If IsNumeric(.Value) Then
               Application.EnableEvents = False
               Range("L6").Value = Range("L6").Value + .Value
               Application.EnableEvents = True
            End If
         End If
      End With
End Sub

Option Explicit

Sub CommandButton1_Click()
Dim directory As String, fileName As String, sheet As Worksheet, i As Integer, j As Integer
Application.ScreenUpdating = False
directory = "C:\Documents and Settings\Новая папка\"
fileName = Dir(directory & "*.xl??")
Do While fileName <> ""
    i = i + 1
    j = 2
    Cells(i, 1) = fileName
     
    Workbooks.Open (directory & fileName)
        
    For Each sheet In Workbooks(fileName).Worksheets
        Workbooks("files-in-a-directory.xls").Worksheets(1).Cells(i, j).Value = sheet.Name
        j = j + 1
    Next sheet
    
    Workbooks(fileName).Close
    fileName = Dir()
Loop
Application.ScreenUpdating = True
End Sub

Private Sub Workbook_Open()
   Dim запрос1 As Date
  запрос1 = InputBox("Введите дату на начало", "ДАТА НАЧАЛО")    'Переменной присваивается значение введенное в окне InputBox
 Worksheets("Свод").Range("C7").Value = запрос1
 Dim запрос2 As Date
  запрос2 = InputBox("Введите дату на конец", "ДАТА КОНЕЦ")    'Переменной присваивается значение введенное в окне InputBox
 Worksheets("Свод").Range("V7").Value = запрос2
 запрос3 = InputBox("Введите отчетный квартал", "Отчетный квартал")    'Переменной присваивается значение введенное в окне InputBox
 Worksheets("Свод").Range("AB1").Value = запрос3
   End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [A1]) Is Nothing Then
        Application.EnableEvents = False
        If oldValue <> "" Then
            If Application.InputBox("Для именения этой ячейки необходимо ввести пароль::", "Оповещение защиты") <> "123" Then
                MsgBox "Неверный пароль", vbCritical + vbOKOnly
                Target.Value = oldValue
                Target.Select
                Application.EnableEvents = True
                Exit Sub
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
    If Not Intersect(Target, [A1]) Is Nothing Then
        If Target.Value = Empty Then
            oldValue = ""
        Else
            oldValue = Target.Value
        End If
    End If
End Sub