Sub Macro1()
    SolverOk SetCell:="$C$6", MaxMinVal:=3, ValueOf:=8, ByChange:="$C$4", Engine:=1 _
        , EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$C$6", MaxMinVal:=3, ValueOf:=8, ByChange:="$C$4", Engine:=1 _
        , EngineDesc:="GRG Nonlinear"
    SolverSolve
End Sub

Sheets(Array("Лист1", "Лист2", "Лист3")).Select

Dim F as Object
Set F="C:\Users\User\Desktop\Тест v1.xlsb"

Sub Макрос1
   
 ActiveSheet.Protection.AllowEditRanges.Add Title:="Диапазон1", Range:=Range _
        ("F6"), Password:="1"  
 
End Sub

Sub Макрос2()   

   MsgBox ActiveSheet.Protection.AllowEditRanges(1).Users(1).Name

End Sub

Sub Макрос13()

    ActiveSheet.Protection.AllowEditRanges(1).Users.Add Name:="User"
        
End Sub

Sub WhereDrop()
On Error GoTo Iferr
    
    For Each cell In Selection
        If cell.Validation.Type = 3 Then
            MsgBox "Есть выпадающий список"
            GoTo nextcl
        End If
            
Iferr:
        MsgBox "Нет выпадающего списка"
        
nextcl:
    Next cell
    
End Sub

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=ДВССЫЛ(""Таблица1[#Заголовки]"")"
    End With

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=INDIRECT(""Таблица1[#Заголовки]"")"
    End With

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=INDIRECT(""Таблица1[#Headers]"")"
    End With

                    <splitButton id="sp1" size="large">
                            <menu id="m1" imageMso="AdpStoredProcedureQueryDelete" label="Мои макросы">
                                <button id="b1" imageMso="AdpStoredProcedureQueryAppend" onAction="AAA1" label="Макрос1" />                                                    
                                <button id="b2" imageMso="AdpStoredProcedureQueryAppend" onAction="AAA2" label="Макрос2"/>
                            </menu>    
                    </splitButton>

<toggleButton id="m111" getPressed="Mac_BoldGetPR" onAction="Mac_Bold"/>

Sub Mac_Bold (control As IRibbonControl, ByRef Pressed) 'непосредственно макрос
   Selection.Font.Bold = Not Selection.Font.Bold
End Sub

Sub Mac_BoldGetPR(control As IRibbonControl, ByRef Pressed) 'макрос на свойство GetPressed
    Pressed = Selection.Font.Bold
End Sub

Sub ChangeForm()
UserForm1.Label1.Caption = "NewCaption"
End Sub