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

ThisWorkbook.ActiveSheet.Unprotect

sortForm.Show vbModal

ThisWorkbook.ActiveSheet.Protect

EndSub

Sub report()

Dim oldCell As Range

ThisWorkbook.ActiveSheet.Unprotect

Set oldCell = ActiveCell

reportForm.Show vbModal

oldCell.Activate

ThisWorkbook.ActiveSheet.Protect

EndSub

addRowForm

PrivateSub UserForm_Activate()

FamBox.Value = ""

ImBox.Value = ""

OtBox.Value = ""

StreetBox.Value = ""

NoBox.Value = ""

FlatBox.Value = ""

PhoneBox.Value = ""

FamBox.SetFocus

EndSub

PrivateSub CancelButton_Click()

addRowForm.Hide

EndSub

PrivateSub OKButton_Click()

' проверкаинформации

Dim box As Variant, boxes As Variant