怎样使用vba写的程序在启动EXCEL后就最大化自身，并只显示自己的彩单

[happy3001]

怎样使用vba写的程序在启动EXCEL后就最大化自身，并只显示自己的彩单
就象一个真正的独立程序一样。

单位有一个这样的程序，扩展名是加载宏格式，只要双机，先显示EXCEL启动画面
然后就只有他自己的窗口了，有谁知道怎么做啊

[lgh4073]

我知道！

[lgh4073]

这是我编写的程序中创建菜单的主程序，把该程序复制到模版中运行即可
Sub CreateGzMenu()
Dim mymenu As CommandBar

Dim cbformatMenu As CommandBarPopup
Dim cbotherMenu As CommandBarPopup
Dim printMenu As CommandBarPopup
Dim cbsetupMenu As CommandBarPopup
Dim cbaboutMenu As CommandBarPopup

Dim cbformatPrimaryMenu As CommandBarButton
Dim cbformatpastelMenu As CommandBarButton
Dim cbformatSizeMenu As CommandBarButton
Dim cbformatStyleMenu As CommandBarButton
Dim cbformatcolormenu As CommandBarButton

Dim editman As CommandBarButton
Dim cbred As CommandBarButton
Dim ManDel As CommandBarButton
Dim rowdel As CommandBarButton
Dim ManSeacth As CommandBarButton
' Dim Manbatch As CommandBarButton
'Dim Manfltj As CommandBarButton

Dim printgzb As CommandBarButton
'Dim printgzt As CommandBarButton
Dim printgzh As CommandBarButton

Dim cbsetup As CommandBarButton
Dim peoSetup As CommandBarButton

Dim cbabout As CommandBarButton
Dim cbamoban As CommandBarButton

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set mymenu = CommandBars.Add(Name:="Demo Menu2", MenuBar:=True, temporary:=True, Position:=msoBarTop)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set cbformatMenu = mymenu.Controls.Add(Type:=msoControlPopup)
cbformatMenu.Caption = "文件"

Set cbformatSizeMenu = cbformatMenu.Controls.Add(Type:=msoControlButton)
cbformatSizeMenu.Style = msoButtonCaption
cbformatSizeMenu.Caption = "打开"
cbformatSizeMenu.OnAction = "frmshowopen"

Set cbformatpastelMenu = cbformatMenu.Controls.Add(Type:=msoControlButton)
cbformatpastelMenu.Style = msoButtonCaption
cbformatpastelMenu.Caption = "存盘"
cbformatpastelMenu.OnAction = "GZSave"

Set cbformatStyleMenu = cbformatMenu.Controls.Add(Type:=msoControlButton)
cbformatStyleMenu.Style = msoButtonCaption
cbformatStyleMenu.Caption = "退出"
cbformatStyleMenu.OnAction = "GZQuit"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set cbotherMenu = mymenu.Controls.Add(Type:=msoControlPopup)
cbotherMenu.Caption = "编辑"

Set editman = cbotherMenu.Controls.Add(Type:=msoControlButton)
editman.Style = msoButtonCaption
editman.Caption = "表头编辑"
editman.OnAction = "表头编辑"

Set cbred = cbotherMenu.Controls.Add(Type:=msoControlButton)
cbred.Style = msoButtonCaption
cbred.Caption = "最适合列宽"
cbred.OnAction = "适合列宽"

Set ManDel = cbotherMenu.Controls.Add(Type:=msoControlButton)
ManDel.Style = msoButtonCaption
ManDel.Caption = "人员编辑"
ManDel.OnAction = "人员编辑"

Set rowdel = cbotherMenu.Controls.Add(Type:=msoControlButton)
rowdel.Style = msoButtonCaption
rowdel.Caption = "删除当前行"
rowdel.OnAction = "rowdel"

Set ManSeacth = cbotherMenu.Controls.Add(Type:=msoControlButton)
ManSeacth.Style = msoButtonCaption
ManSeacth.Caption = "人员查找"
ManSeacth.OnAction = "frmseacthshow"

' Set Manbatch = cbotherMenu.Controls.Add(Type:=msoControlButton)
' Manbatch.Style = msoButtonCaption
' Manbatch.Caption = "刷新计算"
' Manbatch.OnAction = "jisuan"


'Set Manfltj = cbotherMenu.Controls.Add(Type:=msoControlButton)
'Manfltj.Style = msoButtonCaption
'Manfltj.Caption = "分类统计"
'Manfltj.OnAction = "ufrfltjshow"

Set printMenu = mymenu.Controls.Add(Type:=msoControlPopup)
printMenu.Caption = "打印"

'Set printgzt = printMenu.Controls.Add(Type:=msoControlButton)
'printgzt.Style = msoButtonCaption
'printgzt.Caption = "扣款人员"
'printgzt.OnAction = "筛选"

Set printgzb = printMenu.Controls.Add(Type:=msoControlButton)
printgzb.Style = msoButtonCaption
printgzb.Caption = "工资分发表"
printgzb.OnAction = "工资表"

Set printgzh = printMenu.Controls.Add(Type:=msoControlButton)
printgzh.Style = msoButtonCaption
printgzh.Caption = "工资分发条"
printgzh.OnAction = "工资条"

Set cbsetupMenu = mymenu.Controls.Add(Type:=msoControlPopup)
cbsetupMenu.Caption = "设置"

'Set cbsetup = cbsetupMenu.Controls.Add(Type:=msoControlButton)
'cbsetup.Style = msoButtonCaption
'cbsetup.Caption = "表头编辑"
'cbsetup.OnAction = "frmtimeshow"

Set peoSetup = cbsetupMenu.Controls.Add(Type:=msoControlButton)
peoSetup.Style = msoButtonCaption
peoSetup.Caption = "管理设置"
peoSetup.OnAction = "frmpeosetup"

Set cbaboutMenu = mymenu.Controls.Add(Type:=msoControlPopup)
cbaboutMenu.Caption = "帮助"

Set cbabout = cbaboutMenu.Controls.Add(Type:=msoControlButton)
cbabout.Style = msoButtonCaption
cbabout.Caption = "关于"
cbabout.OnAction = "frmaboutshow"
mymenu.Visible = True

Set cbamoban = cbaboutMenu.Controls.Add(Type:=msoControlButton)
cbamoban.Style = msoButtonCaption
cbamoban.Caption = "使用模版"
cbamoban.OnAction = "ufrmobanshow"
mymenu.Visible = True

End Sub