Курсовая работа: Компьютерная подготовка

For i = kol To1Step -1

Application.CommandBars(oldBars(i)).Visible = True

Next

hideTools

EndSub

PrivateSub Workbook_Open()

ThisWorkbook.Worksheets("Старт").Visible = True' спрятатьстартовыйлист

ThisWorkbook.Worksheets("Старт").Activate ' сделатьактивнымлистсБД

ThisWorkbook.Worksheets("Базаданных").Visible = False' показатьбазуданных

EndSub

Лист 1 (Старт)

PrivateSub ExitButton_Click()

ExitProject

EndSub

PrivateSub StartButton_Click()

'Commandbars

ThisWorkbook.Worksheets("Базаданных").Visible = True' показатьбазуданных

ThisWorkbook.Worksheets("База данных").Activate' сделать активным лист с БД

ThisWorkbook.Worksheets("Старт").Visible = False' спрятать стартовый лист

EndSub

Лист2 (База данных)

PrivateSub Worksheet_Activate()

showTools

EndSub

PrivateSub Worksheet_Deactivate()

hideTools

EndSub

Sub addRecord()

If (ActiveCell.row < 5) Or (Len(ActiveCell.EntireRow.Cells(, 1).Value) = 0) Then