2. Метод решения задачи
На листах Excel будут размещаться тесты и практические задания. При запуске программы пользователю выводится окно авторизации, где он выбирает пользователя через которого хочет зайти. При выборе пользователя: Преподаватель, пользователь вводит логин и пароль, и ему открывается форма: Меню преподавателя, где он может изменить лекцию, тесты или практические задания, а так же войти как студент чтобы увидеть как прошло редактирование.
Программу реализовать средствами VBA, с использованием пользовательских форм.
Логическая структура программы
Данила.xlsm
Форма Login:
Private Sub CommandButton1_Click() - процедура обработки кнопки «Войти как преподаватель»
Private Sub CommandButton2_Click() - процедура обработки кнопки «Войти как студент»
Private Sub CommandButton3_Click() - процедура обработки кнопки «Закрыть программу»
Private Sub CommandButton4_Click()- процедура обработки кнопки «О программе»
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) – процедура обработки закрытия формы
Sub MyClosingProcedure() - процедура обработки закрытия формы
Sub распароливание() – процедура обработки распароливания листов Excel
Sub запароливание() - процедура обработки запароливания листов Excel
Форма MenuAdmin
Private Sub CommandButton1_Click - процедура обработки кнопки «Изменить лекцию»
Private Sub CommandButton2_Click - процедура обработки кнопки «Добавить тест»
Private Sub CommandButton3_Click – процедура обработки кнопки «Редактировать тест»
Private Sub CommandButton4_Click - процедура обработки кнопки «Удалить тест»
Private Sub CommandButton5_Click - процедура обработки кнопки «Войти как студент»
Private Sub CommandButton6_Click - процедура обработки кнопки «Закрыть программу»
Форма MenuStud
Private Sub CommandButton1_Click - процедура обработки кнопки «Прочитать лекцию»
Private Sub CommandButton2_Click - процедура обработки кнопки «Пройти тест»
Private Sub CommandButton3_Click - процедура обработки кнопки «Выполнить практическое задание»
Private Sub CommandButton4_Click - процедура обработки кнопки «Выйти из программы»
Форма Praktich1
Private Sub CommandButton1_Click() - процедура обработки кнопки «В меню»
Private Sub CommandButton2_Click() - процедура обработки кнопки «Назад»
Private Sub Image1_Click() – процедура обработки клика по картинки
Private Sub Image2_Click() – процедура обработки клика по картинки
Private Sub Image3_Click() – процедура обработки клика по картинки
Private Sub Image4_Click() – процедура обработки клика по картинки
Private Sub Image5_Click() – процедура обработки клика по картинки
Private Sub Image6_Click() – процедура обработки клика по картинки
Private Sub Image7_Click() – процедура обработки клика по картинки
Private Sub Image8_Click() – процедура обработки клика по картинки
Private Sub Image9_Click() – процедура обработки клика по картинки
Private Sub Image10_Click() – процедура обработки клика по картинки
Private Sub Image11_Click() – процедура обработки клика по картинки
Private Sub Image12_Click() – процедура обработки клика по картинки
Private Sub Image13_Click() – процедура обработки клика по картинки
Private Sub Image14_Click() – процедура обработки клика по картинки
Private Sub Image15_Click() – процедура обработки клика по картинки
Private Sub Image16_Click() – процедура обработки клика по картинки
Форма Praktich2
Private Sub CommandButton1_Click() - процедура обработки кнопки «В меню»
Private Sub CommandButton2_Click() - процедура обработки кнопки «Назад»
Private Sub Label2_Click() – процедура обработки клика по надписи
Private Sub Label3_Click() – процедура обработки клика по надписи
Private Sub Label4_Click() – процедура обработки клика по надписи
Private Sub Label5_Click() – процедура обработки клика по надписи
Private Sub Label6_Click() – процедура обработки клика по надписи
Private Sub Label7_Click() – процедура обработки клика по надписи
Форма RedactTest
Private Sub UserForm_Initialize() - процедура открытие окна формы
Private Sub CommandButton1_Click() - процедура обработки кнопки «Следующий вопрос»
Private Sub CommandButton2_Click() - процедура обработки кнопки «Завершить редактирование»
Private Sub CommandButton3_Click() - процедура обработки кнопки «Прошлый вопрос»
Private Sub CommandButton4_Click() - процедура обработки кнопки «Сохранить изменения»
Private Sub CommandButton5_Click() - процедура обработки кнопки «Изменить»
Private Sub CommandButton6_Click() - процедура обработки кнопки «Отменить»
Форма Sozdanie Testa
Private Sub CommandButton1_Click() - процедура обработки кнопки «Создать»
Private Sub CommandButton2_Click() - процедура обработки кнопки «Назад»
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) – процедура запрета ввода букв в компонент Textbox1
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) – процедура запрета ввода букв в компонент Textbox2
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) – процедура запрета ввода букв в компонент Textbox3
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) – процедура запрета ввода букв в компонент Textbox4
Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) – процедура запрета ввода букв в компонент Textbox5
Private Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) – процедура запрета ввода букв в компонент Textbox6
Private Sub TextBox7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) – процедура запрета ввода букв в компонент Textbox7
Форма Test1
Private Sub UserForm_Initialize() - процедура открытие окна формы
Private Sub CommandButton1_Click() - процедура обработки кнопки «Следующий вопрос»
Private Sub CommandButton2_Click() - процедура обработки кнопки «Завершить тест»
Private Sub CommandButton3_Click() - процедура обработки кнопки «Выйти в меню»
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) – процедура обработки закрытия формы
Sub MyClosingProcedure() - процедура обработки закрытия формы
Private Sub CheckBox1_Click() - процедура клика по флажку
Private Sub CheckBox2_Click() - процедура клика по флажку
Private Sub CheckBox3_Click() - процедура клика по флажку
Private Sub CheckBox4_Click() - процедура клика по флажку
Private Sub CheckBox5_Click() - процедура клика по флажку
Private Sub CheckBox6_Click() - процедура клика по флажку
Private Sub CheckBox7_Click() - процедура клика по флажку
Private Sub CheckBox8_Click() - процедура клика по флажку
Private Sub CheckBox9_Click() - процедура клика по флажку
Private Sub CheckBox10_Click() - процедура клика по флажку
Форма UdalTest
Private Sub UserForm_Initialize() - процедура открытие окна формы
Private Sub CommandButton1_Click() - процедура обработки кнопки «Удалить тест»
Private Sub CommandButton2_Click() - процедура обработки кнопки «Вернуться в меню»
Форма ViborPraktich
Private Sub CommandButton1_Click() - процедура обработки кнопки «В меню»
Private Sub CommandButton2_Click() - процедура обработки кнопки «Практическая работа №1»
Private Sub CommandButton3_Click() - процедура обработки кнопки « Практическая работа №2»
Форма ViborRedac
Private Sub UserForm_Initialize() - процедура открытие окна формы
Private Sub CommandButton1_Click() - процедура обработки кнопки «Редактировать тест»
Private Sub CommandButton2_Click() - процедура обработки кнопки «Вернуться в меню»
Форма ViborTesta
Private Sub UserForm_Initialize() - процедура открытие окна формы
Private Sub CommandButton1_Click() - процедура обработки кнопки «Начать тест»
Private Sub CommandButton2_Click() - процедура обработки кнопки «Вернуться в меню»
Форма VoprosiTesta
Private Sub UserForm_Initialize() - процедура открытие окна формы
Private Sub CheckBox1_Click() - процедура клика по флажку
Private Sub CheckBox2_Click() - процедура клика по флажку
Private Sub CheckBox3_Click() - процедура клика по флажку
Private Sub CheckBox4_Click() - процедура клика по флажку
Private Sub CheckBox5_Click() - процедура клика по флажку
Private Sub CheckBox6_Click() - процедура клика по флажку
Private Sub CheckBox7_Click() - процедура клика по флажку
Private Sub CheckBox8_Click() - процедура клика по флажку
Private Sub CheckBox9_Click() - процедура клика по флажку
Private Sub CheckBox10_Click() - процедура клика по флажку
Private Sub CommandButton1_Click() - процедура обработки кнопки «Следующий вопрос»
Private Sub CommandButton2_Click() - процедура обработки кнопки «Завершить тест»
Private Sub CommandButton3_Click() - процедура обработки кнопки «Вернуться в меню
Private Sub CommandButton4_Click() - процедура обработки кнопки «Прошлый вопрос»
Private Sub CommandButton5_Click() - процедура обработки кнопки «Изменить»
Private Sub CommandButton6_Click() - процедура обработки кнопки «Сохранить изменения»
Private Sub CommandButton7_Click() - процедура обработки кнопки «Отменить»
Sub vizov() – процедура макроса
Sub Sozdanie_knopki() – процедура макроса