Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$T$32" Then
  If Target = 123 Then
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", True)"
  Else
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)"
  End If
End If
End Sub

Sub ChangeInterface(Value As Boolean)   
   With Application   
       .ScreenUpdating = False   
       .Caption = IIf(Value = True, Empty, "Наше окно")   
       .DisplayStatusBar = Value: .DisplayFormulaBar = Value   
       Dim iCommandBar As CommandBar, cbc As CommandBarControl   
       For Each iCommandBar In .CommandBars   
           iCommandBar.Enabled = Value   
       Next   
       With .ActiveWindow   
           .Caption = IIf(Value = True, .Parent.Name, "")   
           .DisplayHeadings = Value: .DisplayGridlines = Value   
           .DisplayHorizontalScrollBar = Value: .DisplayVerticalScrollBar = Value   
           .DisplayWorkbookTabs = Value   
       End With   
       With .CommandBars(1)   
           .Reset: .Enabled = True   
           For Each cbc In .Controls   
               cbc.Visible = Value Or (cbc.Caption Like "*Файл*" Or cbc.Caption Like "*Данные*")   
           Next   
       End With   
       .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & ")"   
       .ScreenUpdating = True   
   End With   
End Sub