Реферат Розробка бази даних "Туризм та відпочинок"

True, _

AllowFormattingCells: = True, AllowFormattingColumns: = True, AllowFormattingRows: = True

'Workbooks ("Firms"). Protect Password: = "Firms1" SubDeleteFirm ()

Workbooks ("Firms"). Unprotect Password: = "Firms1"

ActiveSheet.Unprotect Password: = "list"

Application.DisplayAlerts = False

string1 = "Firms.xls"

If ActiveSheet.Name = "1" Or ActiveWorkbook.Name <> CStr (string1) Then

MsgBox "Виберіть (активуйте) аркуш у книзі/Firms /, в який потрібно внести зміни.", vbInformation, "Увага!"

Exit Sub

End If

i = MsgBox ("Видаляємо фірму (" & ActiveSheet.Name & ")?", vbInformation + vbOKCancel, "Увага!")

If i = 1 Then

Workbooks ("Firms"). Unprotect Password: = "Firms1"

ActiveSheet.Unprotect Password: = "list"

x = ActiveSheet.Index

ActiveSheet.Delete

For i = x To Worksheets.Count

Names.Add Name: = "End" & i, RefersTo: = Worksheets (i). Range ("End" & i + 1), Visible: = True

Names.Add Name: = "Beg" & i, RefersTo: = Worksheets (i). Range ("Beg" & i + 1), Visible: = True

Next i

Application.DisplayAlerts = True

Else

Exit Sub

End If

'ActiveSheet.Protect Password: = "list", DrawingObjects: = True, Contents: = True, Scenarios: = True, _

AllowFormattingCells: = True, AllowFormattingColumns: = True, AllowFormattingRows: = True

'Workbooks ("Firms"). Protect Password: = "Firms1" SubSub ShowList ()

ex = 1

listFirm.Show

If ex = 0 Then Exit SubSubNewFirmLo ()

Workbooks ("Firms"). Unprotect Password: = "Firms1"

ActiveSheet.Unprotect Password: = "list"

Workbooks ("Firms"). Worksheets ("1"). Activate

ex = 1

NewFirm.Show

If ex = 0 Then Exit Sub

'ActiveSheet.Protect Password: = "list", DrawingObjects: = True, Contents: = True, Scenarios: = True, _

AllowFormattingCells: = True, AllowFormattingColumns: = True, AllowFormattingRows: = True

'Workbooks ("Firms"). Protect Password: = "Firms1" SubEditPut ()

Workbooks ("Firms"). Unprotect Password: = "Firms1"

ActiveSheet.Unprotect Password: = "list"

string1 = "Firms.xls"

If ActiveSheet.Name = "1" Or ActiveWorkbook.Name <> CStr (string1) Then

MsgBox "Виберіть (активуйте) аркуш у книзі/Firms /, в який потрібно внести зміни.", vbInformation, "Увага!"

Exit Sub

End If

ex = 1

num = Workbooks ("Firms.xls"). ActiveSheet.Index

ie = Workbooks ("Firms.xls"). ActiveSheet.Range ("End" & num). Row

If ie = 6 Then

MsgBox "У базі немає путівок - годі редагувати.", vbCritical, "Помилка!"

Exit Sub

End If

frmSelPut.CommandButton5.Visible = True

frmSelPut.Show

If ex = 0 Then Exit Sub

ex = 1

temp = ActiveCell.Row

...