Sub qwe()
Dim s As String, fldr As String
fldr = "d:\письма\"
s = Dir(fldr & "*.msg")
Do While s <> ""
    With Workbooks.Open(fldr & s)
        &#39;копировать-вставить-сохранить
        .Close
    End With
    s = Dir
Loop
End Sub

=calculate(sum(Range[Sell out]);Range[Год]="2017")

Sub удаление()
Application.ScreenUpdating = False 'убираем мерцание экрана
Set shA = ActiveWorkbook.Sheets("Выплаты Q2")
shA.Unprotect "For Analyst"
    Selection.EntireRow.Delete
If shA.ProtectContents = False Then
shA.Protect Password:="For Analyst", UserInterfaceOnly:=True, DrawingObjects:=False, AllowFormattingColumns:=True, _
        AllowInsertingRows:=False, AllowDeletingColumns:=False, AllowSorting:=False, AllowFiltering:=True
End If
Application.ScreenUpdating = True
End Sub

Sub ToggleCaseMacro()
Set shA = ActiveWorkbook.Sheets(1)
shA.Unprotect 1213
    Selection.EntireRow.Delete
If shA.ProtectContents = False Then
shA.Protect Password:=1213, UserInterfaceOnly:=True, DrawingObjects:=False, AllowFormattingColumns:=True, _
        AllowInsertingRows:=True, AllowDeletingColumns:=False, AllowSorting:=False, AllowFiltering:=True
End If
End Sub
Sub ToggleCaseMacro1()
Set shA = ActiveWorkbook.Sheets(1)
shA.Unprotect 1213
    Selection.EntireRow.Delete
If shA.ProtectContents = False Then
shA.Protect Password:=1213, UserInterfaceOnly:=True, DrawingObjects:=False, AllowFormattingColumns:=True, _
        AllowInsertingRows:=True, AllowDeletingColumns:=False, AllowSorting:=False, AllowFiltering:=True
End If
End Sub
Sub DeleteFromCellMenu()
    Dim ContextMenu As CommandBar
    Dim ContextMenu1 As CommandBar
    Dim ContextMenu2 As CommandBar
    Dim ctrl As CommandBarControl
    Dim ctrl1 As CommandBarControl
 
    ' Устанавливаем контекстное меню для ячейки строки и столбца
    Set ContextMenu = Application.CommandBars("Cell")
    Set ContextMenu1 = Application.CommandBars("row")
    Set ContextMenu2 = Application.CommandBars("column")
      
' Удаляем тег "удалить строку(и)" если он уже существует
    For Each ctrl In ContextMenu.Controls
        If ctrl.Tag = "Удалить сроку(и)" Then
            ctrl.Delete
        End If
    Next ctrl
' Удаляем тег "удалить строку" если он уже существует
    For Each ctrl1 In ContextMenu1.Controls
        If ctrl1.Tag = "Удалить сроку" Then
            ctrl1.Delete
        End If
    Next ctrl1
      
'Удаляем стандартные кнопки удалить в контекстном меню
     On Error Resume Next
    ContextMenu.FindControl(ID:=292).Delete
    ContextMenu1.FindControl(ID:=293).Delete
    ContextMenu2.FindControl(ID:=294).Delete
    On Error GoTo 0
End Sub
Sub Reset_All_Bars()
Dim cmbComBar As CommandBar
On Error Resume Next
For Each cmbComBar In CommandBars
cmbComBar.Reset: cmbComBar.Enabled = True
Next cmbComBar
End Sub