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

    Dim response

    response = MsgBox("Отмечено записей: " + Str(Selection.Rows.count) + Chr(13) + "Удалить все?", vbYesNoCancel, "Внимание!")

    If response = vbYes Then

      Selection.EntireRow.Delete

    End If

  End If

 ThisWorkbook.ActiveSheet.Protect

End Sub

Sub editRecord()

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

   Exit Sub

 End If

 ThisWorkbook.ActiveSheet.Unprotect

 editRowForm.Show vbModal

 ThisWorkbook.ActiveSheet.Protect

End Sub

Sub sort()

 ThisWorkbook.ActiveSheet.Unprotect

 sortForm.Show vbModal

 ThisWorkbook.ActiveSheet.Protect

End Sub

Sub report()

Dim oldCell As Range

 ThisWorkbook.ActiveSheet.Unprotect

 Set oldCell = ActiveCell

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



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

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