Здравствуйте.
Нашел код по скрытию интерфейса ( Автор: EducatedFool (Игорь))
| Код |
|---|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | Sub ChangeInterface(Value As Boolean)
With Application
.ScreenUpdating = False
.Caption = IIf(Value = True, Empty, "Наше окно")
.DisplayStatusBar = Value: .DisplayFormulaBar = Value
Dim iCommandBar As CommandBar
For Each iCommandBar In .CommandBars
iCommandBar.Enabled = Value
Next
With .ActiveWindow
.Caption = IIf(Value = True, .Parent.Name, "")
.DisplayHorizontalScrollBar = Value: .DisplayVerticalScrollBar = Value
.DisplayWorkbookTabs = Value
End With
.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & ")"
.ScreenUpdating = True
End With
End Sub
Sub УбратьВсё()
ChangeInterface False
End Sub
Sub ВосстановитьИнтерфейс()
ChangeInterface True
End Sub
|
|
Подскажите как создать условие для одной кнопки?
| Код |
|---|
1 2 3 4 5 | If Если интерфейс скрыт Then
ChangeInterface True
Else
ChangeInterface False
End If
|
|
