Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

  Next

  If ThisWorkbook.ActiveSheet.Name = "База данных" Then

   showTools

  End If

End Sub

Private Sub Workbook_Deactivate()

Dim i As Integer

  For i = kol To 1 Step -1

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

  Next

  hideTools

End Sub

Private Sub Workbook_Open()

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

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

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

End Sub

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

Private Sub ExitButton_Click()

 ExitProject

End Sub

Private Sub StartButton_Click()

 'Commandbars

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

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

Рекомендуем скачать другие рефераты по теме: сочинение рассуждение на тему, атанасян решебник.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата