And. Cells (Str1, 1). MergeCells = False Then
. Cells (Str1, 2) =. Cells (Str1, 2) + CInt (Workbooks ("Main.xls"). Worksheets ("Замовлення"). Cells (i, 16))
. Cells (Str1, 4) =. Cells (Str1, 4) + CInt (Workbooks ("Main.xls"). Worksheets ("Замовлення"). Cells (i, 17))
Exit For
End If
Next Str1
'. Protect Password: = "list", DrawingObjects: = True, Contents: = True, Scenarios: = True, _
AllowFormattingCells: = True, AllowFormattingColumns: = True, AllowFormattingRows: = True
End With
'ActiveSheet.Protect Password: = "list", DrawingObjects: = True, Contents: = True, Scenarios: = True, _
AllowFormattingCells: = True, AllowFormattingColumns: = True, AllowFormattingRows: = True
'Workbooks ("Firms"). Protect Password: = "Firms1". DeleteSubMainS ()
Workbooks ("Main.xls"). Worksheets ("1"). Activate
Main.ShowSubShowPut ()
Workbooks ("Main.xls"). Worksheets ("ПоіскПутевкі"). Activate
i = 4
Do
If i = 4 And Cells (i, 1). Value = "" Then Exit Do
i = i + 1
Loop While Cells (i, 1). Value <> ""
Range (Cells (4, 1), Cells (i, 12)). Delete
Find.ShowSub
// Workbook (Firms.xls). Worksheets (1)
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
SubMain.ShowSub
// Workbook (Firms.xls)
Private Sub Workbook_Open ()
'Workbooks ("Firms"). Protect Password: = "Firms1"
MenuBars (xlWorksheet). Menus.Add Caption: = "& Робота з фірмами", Before: = 10
MenuBars (xlWorksheet). Menus ("& Робота з фірмами"). MenuItems.Add _
Caption: = "& Перейти в меню фірм", Before: = 2, OnAction: = "SubMainS"
MenuBars (xlWorksheet). Menus ("Робота з фірмами"). MenuItems.AddMenu _
"Додавання"
MenuBars (xlWorksheet). Menus ("Робота з фірмами"). MenuItems ("Додавання"). MenuItems.Add "Нову фірму", OnAct ion: = "NewFirmLo"
MenuBars (xlWorksheet). Menus ("Робота з фірмами"). MenuItems ("Додавання"). MenuItems.Add "Путівку в базу", OnAction: = "NewPut"
MenuBars (xlWorksheet). Menus ("Робота з фірмами"). MenuItems.AddMenu _
"Редагування"
MenuBars (xlWorksheet). Menus ("Робота з фірмами"). MenuItems ("Редагування"). MenuItems.Add "Даних про фірму", OnAction: = "EditFirm"
MenuBars (xlWorksheet). Menus ("Робота з фірмами"). MenuItems ("Редагування"). MenuItems.Add "Путівку в базі", OnAction: = "EditPut"
MenuBars (xlWorksheet). Menus ("Робота з фірмами"). MenuItems.AddMenu _
"Знайти/Перехід"
MenuBars (xlWorksheet). Menus ("Робота з фірмами"). MenuItems ("Пошук/Перехід"). MenuItems.Add "Перейти на певну фірму", OnAction: = "ShowList"
MenuBars (xlWorksheet). Menus ("Робота з фірмами"). MenuItems ("Пошук/Перехід"). MenuItems.Add "Виділити визна. місто визна. країни ", OnAction: =" ShowCountry "
MenuBar...
