Автозапуск макроса при открытии и закрытии книги

[ruavia3]

Помогите найти ошибку. Есть 2 макроса (DisAbleAllCLear, который запускается при открытии книги, и EnableAllClear, который запускается при ее закрытии) С помощью макросов необходимо отключать и включать макросы и oпции.


Sub DisAbleAllCLear()
EnableControl 30017, False 'macro
EnableControl 522, False 'options
CommandBars("ToolBar List").Enabled = False
End Sub


Sub EnableAllClear()
EnableControl 30017, True 'macro
EnableControl 522, True 'options
CommandBars("ToolBar List").Enabled = True
End Sub

*При ошибке выделяется вторая строка



Далее, я прописал автозапуск этих макросов + добавил условие исчезновения строки формул:

Private Sub Workbook_Open()
Application.DisplayFormulaBar = False
Run "DisAbleAllCLear"
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFormulaBar = True
Run "EnableAllClear"
End Sub

[Marchuk]

у тебя есто контроль с ID 30017 ???

[SAS888]

Скорее всего, у Вас либо неправильно передаются параметры при вызове процедуры "EnableControl", либо несоответствие типа (типов) параметров.
Если, например, в модуль "Эта книга" вставить код

Private Sub Workbook_Open()
    Run "AutoOpen_macro"
End Sub

а в программный модуль поместить

Sub AutoOpen_macro()
    MyMacro "ABCD"
End Sub

Sub MyMacro(x)
    MsgBox x
End Sub

то все будет работать правильно. Т.е. при открытии книги будет выведено сообщение "ABCD".

[ruavia3]

Когда-то SAS888 выкладывал ссылку http://support.microsoft.com/kb/213552/en-us, там я и взял ID коды

[ruavia3]

Сообщение от SAS888

...
то все будет работать правильно. Т.е. при открытии книги будет выведено сообщение "ABCD".

А как сделать то, что нужно? Скрыть строку формул, опции и макросы.

[EducatedFool]

А как сделать то, что нужно? Скрыть строку формул, опции и макросы.

Может, что-то вроде этого подойдёт?

Private 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  ' If iCommandBar.Index > 1 Then
        Next
        With .ActiveWindow
            .Caption = IIf(Value = True, .Parent.Name, "")
            .DisplayHeadings = Value: .DisplayGridlines = Value
            .DisplayHorizontalScrollBar = Value: .DisplayVerticalScrollBar = Value: .DisplayWorkbookTabs = Value
        End With: .ScreenUpdating = True
    End With
End Sub

Private Sub UserInterface(): ChangeInterface False: End Sub

Private Sub RestoreInterface(): ChangeInterface True: End Sub

Макрос UserInterface скрывает всё лишнее с экрана, а макрос RestoreInterface восстанавливает все в прежнее состояние.

[SAS888]

Да. Помню. Посмотрите пример во вложении.

[ruavia3]

SAS888, спасибо. Всё летает

[ruavia3]

Сообщение от EducatedFool

Макрос UserInterface скрывает всё лишнее с экрана, а макрос RestoreInterface восстанавливает все в прежнее состояние.

Сложно разобраться, но тоже работает. Спасибо.