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

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

End Sub

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

Private Sub Worksheet_Activate()

  showTools

End Sub

Private Sub Worksheet_Deactivate()

  hideTools

End Sub

Sub addRecord()

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

   Range("A5").Activate

 End If

 ThisWorkbook.ActiveSheet.Unprotect

 addRowForm.Show vbModal

 ThisWorkbook.ActiveSheet.Protect

End Sub

Sub delRecord()

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

   Exit Sub

 End If

 ThisWorkbook.ActiveSheet.Unprotect

  If Selection.Rows.count = 1 Then

    delRowForm.Show vbModal

  Else

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



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

Поделитесь этой записью или добавьте в закладки