Sub All_Formulas_To_Values_OnlyVisible()
    Dim rRng As Range, rArea As Range, rc As Range
    If Selection.Count = 1 Then
        Set rRng = ActiveCell
    Else
        Set rRng = Selection.SpecialCells(12)
    End If
    For Each rArea In rRng.Areas
        For Each rc In rArea.Cells
            If rc.Interior.ColorIndex = xlNone Then
                    rc.Value = rc.Value
            End If
    Next
    Next rArea
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rc As Range
    For Each rc In Target.Cells
        If Not rc.Locked Then
            If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then
                Application.CutCopyMode = False
                MsgBox "В эти ячейки нельзя копировать другие ячейки", vbInformation, "www.excel-vba.ru"
                Exit Sub
            End If
        End If
    Next
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Select Case Sh.Name
    Case "Лист2"
    Me.Protect "1"
    Case Else
    Me.Unprotect "1"
    End Select
End Sub

ActiveSheet.Delete

=ПОДСТАВИТЬ(ПСТР(ПРАВСИМВ(" "&ПОДСТАВИТЬ(B2;"_";ПОВТОР("_";999));999*1);1;999);"_";"")

=--ПОДСТАВИТЬ(ПСТР(ПРАВСИМВ(" "&ПОДСТАВИТЬ(B2;"_";ПОВТОР("_";999));999*1);1;999);"_";"")

=ВЫЧИСЛИТЬ(Лист1!$D$1)+(ТДАТА()*0)

Sub НижПодч_Описание()
    Dim wb As Workbook
    Dim lc&
    'проверяем наличие видимых окон книг в текщем экземпляре
    For Each wb In Application.Workbooks
        If wb.Windows(1).Visible Then
            lc = lc + 1
        End If
    Next
    
    If lc = 0 Then
        Set wb = Workbooks.Add(1)
    End If
    Application.MacroOptions _
            Macro:="НижПодч", _
            Description:="Если ячейка не пустая, ставит '_' и текст", _
            Category:="MIT-Excel", _
            ArgumentDescriptions:=Array( _
                "ячейка для проверки", _
                "текст или ссылка на ячейку, которая будет отображаться как текст после '_'")
    'можно и закрыть, но я бы оставил - запустили надстройку и создается новая книга
    'это удобно и более правильно - пустое окно обычно всех пугает :)
    'но если хочется пустое окно - то раскомментируйте
'    If lc = 0 Then
'        wb.Close 0
'    End If
End Sub

=ЕСЛИОШИБКА(ИНДЕКС('ВВОД ДАННЫХ!'!B$2:C$715;НАИМЕНЬШИЙ(ЕСЛИ(('ВВОД ДАННЫХ!'!J$2:J$715="Да");СТРОКА(A$2:A$715)-1);СТРОКА(A1));1)&" "&ИНДЕКС('ВВОД ДАННЫХ!'!B$2:C$715;НАИМЕНЬШИЙ(ЕСЛИ(('ВВОД ДАННЫХ!'!J$2:J$715="Да");СТРОКА(A$2:A$715)-1);СТРОКА(A1));2);"")

=ЕСЛИОШИБКА(ИНДЕКС('ВВОД ДАННЫХ!'!B$2:J$715;НАИМЕНЬШИЙ(ЕСЛИ(('ВВОД ДАННЫХ!'!J$2:J$715="Да");СТРОКА(A$2:A$715)-1);СТРОКА(A1));4);"")

=ФИЛЬТР('ВВОД ДАННЫХ!'!B2:B715;'ВВОД ДАННЫХ!'!J2:J715="Да")&" "&ФИЛЬТР('ВВОД ДАННЫХ!'!C2:C715;'ВВОД ДАННЫХ!'!J2:J715="Да")

Private Sub UserForm_Initialize()
    Dim am, xm, ad, lr&
    am = Array("восс-е исходных значений ДИ", "восс-е контекст. меню листа", "визуал-я 1 строки прихода", "отображение скрытых имен")
    ad = Array("Func_RecNM", "Func_RecCM", "Func_RecViz", "Func_ShowImen")
    For Each xm In am
        Me.Service_macros.AddItem xm
        Me.Service_macros.List(lr, 1) = ad(lr)
        lr = lr + 1
    Next
End Sub
'и просто при изменении берем нужный макрос из второго столбца Листбокса
Private Sub Service_macros_Change()
    ad = Service_macros.List(Service_macros.ListIndex, 1)
    Application.Run "'" & ThisWorkbook.Name & "'!" & ad
End Sub