Liren Large Software Subsidy 6/06.iso/b/b095/2.img/LIBRARY/ADDINMGR.$LA/addinmgr.xla

Excel Spreadsheet | 1991-11-20 | 28.1 KB | 592 lines

Sheet:
(0, 0)        Names
(0, 1)        (C) Copyright 1990 Microsoft Corporation. All rights reserved.
(0, 2)        Comments
(0, 4)        Lists
(2, 0)        mco00.AutoOpen
(2, 1)        mco00.AutoOpen
(2, 2)
(2, 4)        mgs.Globals
(2, 5)        mgs.Globals
(3, 0)        auto_open
(3, 2)
(3, 4)        mgs.AddInFilter
(4, 0)
(4, 2)        update globals
(4, 4)        mgn.LastInstalledAddIn
(4, 5)        0
(5, 0)
(5, 2)        add our menu command
(5, 4)        mco00s.DirSep
(6, 0)
(6, 2)
(6, 4)        mco00s.MacroName
(7, 0)        mco00b.Dirty
(7, 2)
(7, 4)        mco00s.MacroPath
(8, 0)
(8, 2)        open all add ins
(8, 4)        mgs.None
(8, 5)        [╡LÑ⌠ª≤ Add-in ╡{ªí╢}▒╥]
(9, 0)        mco00.Done
(9, 2)
(9, 4)        mgs.Quote
(10, 0)
(10, 2)
(10, 4)
(12, 4)        UDM
(12, 5)        Title
(12, 6)        Macro
(12, 7)        Key
(12, 8)        Status
(12, 9)        Help
(13, 0)        mcx00.AutoClose
(13, 1)        mcx00.AutoClose
(13, 2)
(13, 4)        um01.AddInMenu
(13, 5)        Add-in ╡{ªí║▐▓z¡√[&I]...
(13, 6)        mcp01.AddInManager
(13, 7)
(13, 8)        ╖s╝W⌐╬░úÑhª█░╩╢}└╔ Add-Ins ╡{ªí
(13, 9)        excelhlp.hlp!514
(14, 0)        auto_close
(14, 2)
(15, 0)
(15, 2)        save if no read only
(16, 0)        mcx00c.Exit
(16, 2)
(16, 4)        UDDs
(17, 4)        names
(17, 5)        type
(17, 6)        x
(17, 7)        y
(17, 8)        w
(17, 9)        h
(17, 10)        text
(17, 11)        init/result
(19, 0)        mcp01.AddInManager
(19, 1)        mcp01.AddInManager
(19, 2)
(19, 4)        ud02.AddInInstall
(19, 5)        excelhlp.hlp!514
(19, 6)
(19, 7)
(19, 8)
(19, 9)
(19, 10)        Add-in ╡{ªí║▐▓z¡√
(19, 11)        6
(20, 0)
(20, 2)
(20, 5)        1
(20, 6)        230
(20, 7)        24
(20, 8)
(20, 9)
(20, 10)        ╖s╝W[&A]..
(20, 11)
(21, 0)
(21, 2)        none selected
(21, 5)        2
(21, 6)        230
(21, 7)        54
(21, 8)
(21, 9)
(21, 10)        ├÷│¼[&C]
(21, 11)
(22, 0)        mcp01c.Result
(22, 2)
(22, 5)        3
(22, 6)        230
(22, 7)        84
(22, 8)
(22, 9)
(22, 10)        ╜s¡╫[&E]..
(22, 11)
(23, 0)
(23, 2)
(23, 5)        3
(23, 6)        230
(23, 7)        114
(23, 8)
(23, 9)
(23, 10)        ░úÑh[&R]
(23, 11)
(24, 0)
(24, 2)
(24, 5)        5
(24, 6)        8
(24, 7)        6
(24, 8)
(24, 9)
(24, 10)        Add-in ╡{ªíªw╕╦[&I]:
(24, 11)
(25, 0)        mcp01b.Result
(25, 2)
(25, 5)        15
(25, 6)        8
(25, 7)        26
(25, 8)        210
(25, 9)        110
(25, 10)        Offset(ul02.TopOfInstalledAddIns,0,3,max(1,mgn.LastInstalledAddIn),1)
(25, 11)        1
(25, 12)        ud02n.AddIn
(26, 0)
(26, 2)        flip on dirty bit if we are changed
(26, 5)        5
(26, 6)        8
(26, 7)        144
(26, 8)
(26, 9)
(26, 10)        *░▀┼¬
(26, 11)
(27, 0)
(27, 2)
(29, 4)        ud03.AddinInfo
(29, 5)        excelhlp.hlp!514
(29, 6)
(29, 7)
(29, 8)
(29, 9)
(29, 10)        ╜s¡╫ Add-in ╡{ªí░T«º
(29, 11)        8
(30, 0)        mcs01.AddInAdd
(30, 1)        mcs01.AddInAdd
(30, 2)
(30, 5)        1
(30, 6)        380
(30, 7)        8
(30, 8)
(30, 9)
(30, 10)        ╜T⌐w
(30, 11)
(31, 0)
(31, 2)        remember the old document list as array
(31, 5)        2
(31, 6)        380
(31, 7)        38
(31, 8)
(31, 9)
(31, 10)        ¿·«°[&C]
(31, 11)
(32, 0)
(32, 2)
(32, 5)        5
(32, 6)        8
(32, 7)        8
(32, 8)
(32, 9)
(32, 10)        ªW║┘:
(32, 11)
(33, 0)        mcs01c.Result
(33, 2)        if successful open, add name to list
(33, 5)        5
(33, 6)        8
(33, 7)        30
(33, 8)
(33, 9)
(33, 10)        ╗í⌐·:
(33, 11)
(34, 0)
(34, 2)
(34, 5)        5
(34, 6)        110
(34, 7)        8
(34, 8)        246
(34, 9)
(34, 10)
(34, 11)        ud03s.AddIn
(35, 0)
(35, 2)        if it was already open, don't bother
(35, 5)        5
(35, 6)        110
(35, 7)        30
(35, 8)        246
(35, 9)
(35, 10)
(35, 11)        ud03s.LongName
(36, 0)        mcs01c.NewFile
(36, 2)        get name of new file
(36, 5)        11
(36, 6)        8
(36, 7)        50
(36, 8)        360
(36, 9)        66
(36, 10)        ╢}▒╥└╔«╫¿╙ª█
(36, 11)
(36, 12)        ud03n.WhichPath
(37, 0)        mcs01s.FileOpened
(37, 2)
(37, 5)        12
(37, 6)        16
(37, 7)        66
(37, 8)
(37, 9)
(37, 10)        ⌐M Add-in ╡{ªí║▐▓z¡√¼█ªPñºÑ╪┐²[&S]
(37, 11)
(38, 0)
(38, 2)        activate the file we just opened
(38, 5)        12
(38, 6)        16
(38, 7)        90
(38, 8)
(38, 9)
(38, 10)        ╕⌠«|[&P]:
(38, 11)
(39, 0)        mcs01c.GetName
(39, 2)
(39, 5)        6
(39, 6)        115
(39, 7)        90
(39, 8)        246
(39, 9)
(39, 11)
(39, 12)        ud03s.Path
(40, 0)        mcs01c.LongName
(40, 2)
(40, 4)        ud03n.ReadOnlyCB
(40, 5)        213
(40, 6)        8
(40, 7)        120
(40, 8)
(40, 9)
(40, 10)        ╢}▒╥└╔«╫¼░░▀┼¬[&R]
(40, 11)
(40, 12)        ud03b.ReadOnly
(41, 0)
(41, 2)        if it's a macro with Auto_Open, run it
(42, 0)
(42, 2)        add it to the list
(43, 0)        mcs01c.Skip
(43, 2)
(43, 5)        name
(43, 6)        path
(43, 7)        read only
(43, 8)        Long Name
(44, 0)
(44, 2)
(44, 4)        ul02.TopOfInstalledAddIns
(44, 5)        [╡LÑ⌠ª≤ Add-in ╡{ªí╢}▒╥]
(44, 6)        C:\CEXCEL\LIBRARY
(44, 7)        TRUE
(44, 8)        [╡LÑ⌠ª≤ Add-in ╡{ªí╢}▒╥]
(45, 0)
(45, 2)
(46, 5)
(46, 6)
(46, 7)
(46, 8)
(47, 5)
(47, 6)
(47, 7)
(47, 8)
(48, 0)        mcs02.FindNewFile
(48, 1)        mcs02.FindNewFile
(48, 2)
(48, 5)
(48, 6)
(48, 7)
(48, 8)
(49, 0)
(49, 2)        old list of files
(49, 5)
(49, 6)
(49, 7)
(49, 8)
(50, 0)
(50, 2)        get differences, replace trailing NA with FALSE
(50, 5)
(50, 6)
(50, 7)
(50, 8)
(51, 0)
(51, 2)        if arrays had no diffs, return FALSE, else return name of new file
(51, 5)
(51, 6)
(51, 7)
(51, 8)
(52, 5)
(52, 6)
(52, 7)
(52, 8)
(53, 5)
(53, 6)
(53, 7)
(53, 8)
(54, 0)        mcs03.InsertFileInList
(54, 1)        mcs03.InsertFileInList
(54, 2)
(54, 5)
(54, 6)
(54, 7)
(54, 8)
(55, 0)
(55, 2)        path and name of file, read only status and long name
(55, 5)
(55, 6)
(55, 7)
(55, 8)
(56, 0)        mcs03s.PreLongName
(56, 1)        Worksheet Auditor
(56, 2)
(57, 0)        mcs03s.AddIn
(57, 1)        AUDIT.XLA
(57, 2)
(58, 0)        mcs03s.Path
(58, 1)        C:\CEXCEL\LIBRARY
(58, 2)
(59, 0)        mcs03b.ReadOnly
(59, 1)        TRUE
(59, 2)
(60, 0)        mcs03s.LongName
(60, 2)
(61, 0)        mcs03c.Found
(61, 2)        see if it's in the list already
(62, 0)
(62, 2)
(63, 0)
(63, 2)
(64, 0)
(64, 2)
(65, 0)
(65, 2)
(66, 0)
(66, 2)
(67, 0)
(67, 2)
(68, 0)
(68, 2)
(69, 0)
(69, 2)
(72, 0)        mcs04.RemoveFileFromList
(72, 1)        mcs04.RemoveFileFromList
(72, 2)
(73, 0)
(73, 2)        NA means none selected in list box
(74, 0)        mcs04s.AddIn
(74, 2)
(75, 0)
(75, 2)
(76, 0)
(76, 2)        confirm actio with user?
(77, 0)
(77, 2)        close the add in - if we don't, quit
(78, 0)
(78, 2)        if we delete the last one, leave a placeholder
(79, 0)
(79, 2)        if we have no more, don't bother with move up
(80, 0)        mcs04c.MoveUp
(80, 2)        move data up
(81, 0)        mcs04c.Decrement
(81, 2)        decrement counter
(82, 0)
(82, 2)
(85, 0)        mcs05.OpenAddIns
(85, 1)        mcs05.OpenAddIns
(85, 2)
(86, 0)
(86, 2)        init counter
(87, 0)
(87, 2)
(88, 0)
(88, 2)        loop through list
(89, 0)
(89, 2)
(90, 0)        mcs05b.ReadOnly
(90, 2)
(91, 0)        mcs05s.AddInToOpen
(91, 2)
(92, 0)
(92, 2)        tell user what is happening
(93, 0)
(93, 2)        if already open, skip
(94, 0)        mcs05c.Open
(94, 2)
(95, 0)        mcs05n.Current
(95, 2)        increment counter
(96, 0)
(96, 2)
(97, 0)        mcs05c.Exit
(97, 2)
(98, 0)
(98, 2)
(101, 0)        mcs06.OpenAddIn
(101, 1)        mcs06.OpenAddIn
(101, 2)
(102, 0)
(102, 2)
(103, 0)        mcs06s.AddIn
(103, 1)
(103, 2)
(104, 0)        mcs06b.ReadOnly
(104, 1)
(104, 2)
(105, 0)
(105, 2)
(106, 0)
(106, 2)
(107, 0)
(107, 2)
(108, 0)        mcs06c.Result
(108, 2)        if unsuccessful open, ask user about it
(109, 0)        mcs06c.Next
(109, 2)
(110, 0)        mcs06c.NewFile
(110, 2)        get name of new file
(111, 0)        mcs06s.FileOpened
(111, 2)
(112, 0)
(112, 2)        activate the file we just opened
(113, 0)
(113, 2)        if it's a macro with Auto_Open, run it
(114, 0)        mcs06c.Skip
(114, 2)
(115, 0)
(115, 2)
(118, 0)        mcs07.FindLast
(118, 1)        mcs07.FindLast
(118, 2)
(119, 0)
(119, 2)
(120, 0)
(120, 2)
(121, 0)        mcs07c.FindResult
(121, 2)
(122, 0)        mcs07n.FoundAt
(122, 2)
(123, 0)
(123, 2)
(124, 0)        mcs07s.SearchFor
(124, 1)        .
(124, 2)
(125, 0)        mcs07s.InString
(125, 1)        AUDIT.XLA
(125, 2)
(128, 0)        mcs08.CloseAddIn
(128, 1)        mcs08.CloseAddIn
(128, 2)
(129, 0)
(129, 2)
(130, 0)        mcs08s.AddIn
(130, 1)        AUDIT.XLA
(130, 2)
(131, 0)
(131, 2)        if we fail on the activate, must be closed already
(132, 0)
(132, 2)        else activate it
(133, 0)
(133, 2)        errors back on
(134, 0)
(134, 2)
(135, 0)        mcs08c.AutoClose
(135, 2)        if a macro with Auto_Close, run it
(136, 0)        mcs08c.Activate
(136, 2)        if we fail on the activate, must be closed already
(137, 0)
(137, 2)        else activate it again (just in case)
(138, 0)
(138, 2)        if not changed, we're done
(139, 0)        mcs08c.Confirm
(139, 2)
(140, 0)
(140, 2)
(141, 0)        mcs08c.Save
(141, 2)        if it hasn't been saved before (never happens) or is read only, use Save.As
(142, 0)
(142, 2)        if we didn't save, alert user
(143, 0)
(143, 2)
(144, 0)
(144, 2)
(145, 0)        mcs08c.Close
(145, 2)        close the add-in
(146, 0)        mcs08c.Exit
(146, 2)
(147, 0)
(147, 2)
(150, 0)        mcs09.ParseAddIn
(150, 1)        mcs09.ParseAddIn
(150, 2)
(151, 0)
(151, 2)
(152, 0)        mcs09n.WhichAddIn
(152, 1)        0
(152, 2)
(153, 0)        mcs09n.What
(153, 1)        1
(153, 2)
(154, 0)        mcs09b.ReadOnly
(154, 2)        1=Name, 2=Path, 3=ReadOnly, 4=Addin without extension, with proper caps, 5=add in and path
(155, 0)        mcs09s.Path
(155, 2)        return this macros path if none defined
(156, 0)        mcs09s.AddInOnly
(156, 2)
(157, 0)        mcs09s.AddInAndPath
(157, 2)
(158, 0)        mcs09s.LongName
(158, 2)
(159, 0)        mcs09s.ProperAddIn
(159, 2)
(160, 0)
(160, 2)        return what we asked for
(161, 0)
(161, 2)        bad input
(164, 0)        mcs11.MakeProper
(164, 1)        mcs11.MakeProper
(164, 2)
(165, 0)
(165, 2)
(166, 0)        mcs11s.AddIn
(166, 1)        AUDIT.XLA
(166, 2)
(167, 0)        mcs11s.PreProper
(167, 2)
(168, 0)
(168, 2)
(171, 0)        mcs12.EditAddIn
(171, 1)        mcs12.EditAddIn
(171, 2)
(172, 0)
(172, 2)
(173, 0)        mcs12s.AddIn
(173, 2)
(174, 0)
(174, 2)
(175, 0)
(175, 2)
(176, 0)
(176, 2)
(177, 0)
(177, 2)
(178, 0)
(178, 2)
(179, 0)
(179, 2)
(180, 0)        mcs12c.Result
(180, 2)
(181, 0)
(181, 2)
(182, 0)
(182, 2)
(183, 0)
(183, 2)
(184, 0)
(184, 2)
(185, 0)
(185, 2)
(188, 0)        mcs13.GetReadOnly
(188, 1)        mcs13.GetReadOnly
(188, 2)
(189, 0)
(189, 2)
(190, 0)        mcs13s.AddIn
(190, 1)        AUDIT.XLA
(190, 2)
(191, 0)        mcs13c.Setting
(191, 2)
(192, 0)
(192, 2)
(195, 1)
(196, 1)
(197, 1)
(198, 1)