Private Sub Bt10_Click()
'Application.ScreenUpdating = False
If Application.ExecuteExcel4Macro("SHOW.TOOLBAR(""Ribbon"",false)") Then
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)"
Lbt10.BackColor = vbGreen
Bbt10.Caption = "On"
Else
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"
Lbt10.BackColor = vbRed
Bbt10.Caption = "Off"
End If
'Application.ScreenUpdating = True
End Sub