Включаем все панели For Each
|
Public Sub ResetMainMenu() Dim CstmBar As CommandBar ' Включаем все панели For Each CstmBar In CommandBars CstmBar.Enabled = True Next CstmBar Set CstmBar = CommandBars.Item("Menu Bar") CstmBar.Visible = True End Sub |
| Листинг 3.7. |
| Закрыть окно |
