End With. 6. Вставить новый модуль с именем Модуль1

End Sub

6. Вставить новый модуль с именем Модуль1.

7. В модуле Модуль1 создать процедуры:

Public Sub Форма1_Initialize()

' Активизация диалогового окна

Форма1.Show

End Sub

Public Sub Форма2_Initialize()

' Активизация диалогового окна

Форма2.Show

End Sub

Public Sub Форма3_Initialize()

' Активизация диалогового окна

Форма3.Show

End Sub

Public Sub Форма4_Initialize()

' Активизация диалогового окна

Форма4.Show

End Sub

Public Sub Форма5_Initialize()

' Активизация диалогового окна

Форма5.Show

End Sub

Public Sub Действие_Первой_Кнопки()

MsgBox ("Программируем нужные действия")

End Sub

Public Sub Запись()

ActiveWorkbook.Save

End Sub

Sub СохранитьКак()

' Процедура активизирует встроенное окно Сохранение документа

Application.Dialogs(xlDialogSaveAs).Show

End Sub

Sub Закрыть()

' Процедура закрытия приложения

Application.Quit

End Sub

8. Сохранить рабочую книгу Lab5.xls. Закрыть рабочую книгу Lab5.xls и снова ее открыть.

9. Проверить работу кнопок на панели инструментах и работу пунктов меню в окне открытого приложения.

10. Доработать лабораторную работу №4, добавив в нее панель инструментов Пользователь и Меню пользователя, используя знания, полученные в лабораторной работе№5.