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

. LineStyle = xlContinuous

. Weight = xlMedium

. ColorIndex = xlAutomatic

End With

With Selection.Borders (xlEdgeRight)

. LineStyle = xlContinuous

. Weight = xlMedium

. ColorIndex = xlAutomatic

End With

With Selection.Borders (xlInsideVertical)

. LineStyle = xlContinuous

. Weight = xlThin

. ColorIndex = xlAutomatic

End With

With Selection.Borders (xlInsideHorizontal)

. LineStyle = xlContinuous

. Weight = xlMedium

. ColorIndex = xlAutomatic

End With

With Selection.Interior

. ColorIndex = 19

. Pattern = xlSolid

. PatternColorIndex = xlAutomatic

End WithSubNewPut ()

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

frmNewPut.Show

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

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

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

If ex = 0 Then Exit SubSubEditFirm ()

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

ActiveSheet.Unprotect Password: = "list"

fl = 0

string1 = "Firms.xls"

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

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

Exit Sub

End If

frmEditFirm.txtNaim.Text = ActiveSheet.Range ("A1"). Value

frmEditFirm.txtAdr.Text = ActiveSheet.Range ("B1"). Value

frmEditFirm.txtTel1.Text = ActiveSheet.Range ("C1"). Value

frmEditFirm.txtTel2.Text = ActiveSheet.Range ("D1"). Value

frmEditFirm.txtSite.Text = ActiveSheet.Range ("E1"). Value

ex = 1

frmEditFirm.Show

If ex = 0 Then Exit Sub

ActiveSheet.Range ("A1"). Value = frmEditFirm.txtNaim.Text

ActiveSheet.Name = CStr (frmEditFirm.txtNaim.Text)

ActiveSheet.Range ("B1"). Value = frmEditFirm.txtAdr.Text

ActiveSheet.Range ("C1"). Value = frmEditFirm.txtTel1.Text

ActiveSheet.Range ("D1"). Value = frmEditFirm.txtTel2.Text

ActiveSheet.Range ("E1"). Value = ""

ActiveSheet.Range ("E1"). Value = frmEditFirm.txtSite.Text

ActiveSheet.Range ("E1"). Hyperlinks.Add Anchor: = ActiveSheet.Range ("E1"), Address: = "<" & frmEditFirm.txtSite.Text

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