?
Sub
?SetCommandbar()
????????????
'
????????
'
?SetCommandbar?Macro
????????
'
?宏在?2007-2-1?由?創(chuàng)建
????????
'
????????
'
菜單
????????
'
菜單
????????
Dim
?cbar??
As
?CommandBarButton
??????????????????????
'
菜單>新建
????????
Set
?cbar?
=
?CommandBars(
"
File
"
).Controls(
"
新建(&N)
"
)
????????????cbar.Enabled?
=
?
False
???????????????????????????????cbar.OnAction?
=
?
"
NullMethod
"
????????cbar.ShortcutText?
=
?
""
????????
'
cbar.Reset
????????
'
菜單>打開
????????
Set
?cbar?
=
?CommandBars(
"
File
"
).Controls(
"
打開(&O)
"
)
????????????cbar.Enabled?
=
?
False
?
'
????????cbar.OnAction?
=
?
"
NullMethod
"
????????cbar.ShortcutText?
=
?
""
????????
'
cbar.Reset
????????
'
菜單>保存
????????
Set
?cbar?
=
?CommandBars(
"
File
"
).Controls(
"
保存(&S)
"
)
????????????cbar.Enabled?
=
?
False
?
'
????????cbar.OnAction?
=
?
"
NullMethod
"
????????cbar.ShortcutText?
=
?
""
????????
'
cbar.Reset
????????
'
菜單>另存為
????????
Set
?cbar?
=
?CommandBars(
"
File
"
).Controls(
"
另存為(&A)
"
)
????????????cbar.Enabled?
=
?
False
?
'
????????cbar.OnAction?
=
?
"
NullMethod
"
????????cbar.ShortcutText?
=
?
""
????????
'
cbar.Reset
????????
'
命令>新建
????????
Set
?cbar?
=
?CommandBars(
"
Standard
"
).Controls(
1
)
????????????cbar.Visible?
=
?
True
???????????????????????????????cbar.Enabled?
=
?
False
?
'
????????cbar.OnAction?
=
?
"
NullMethod
"
????????cbar.ShortcutText?
=
?
""
????????
'
cbar.Reset
????????
'
命令>打開
????????
Set
?cbar?
=
?CommandBars(
"
Standard
"
).Controls(
"
打開(&O)
"
)
????????????cbar.Visible?
=
?
True
???????????????????????????????cbar.Enabled?
=
?
False
?
'
????????cbar.OnAction?
=
?
"
NullMethod
"
????????cbar.ShortcutText?
=
?
""
????????
'
cbar.Reset
????????
'
命令>保存
????????
Set
?cbar?
=
?CommandBars(
"
Standard
"
).Controls(
"
保存(&S)
"
)
????????????cbar.Visible?
=
?
True
???????????????????????????????cbar.Enabled?
=
?
False
?
'
????????cbar.OnAction?
=
?
"
NullMethod
"
????????cbar.ShortcutText?
=
?
""
????????
'
cbar.Reset
????????
'
CommandBars("Standard").Controls(1).ShortcutText?=?""
????????
'
快捷鍵Ctrl+N?和Ctrl+O
????????
'
Set?cbar?=?CommandBars.ActionControl
????????
Set
?myControl?
=
?Application.CommandBars.FindControl?_
????????????????????????????????????????????????????????????????(Type:
=
msoControlPopup,?Visible:
=
True
)
????????
End?Sub
????????????
Private
?
Sub
?NullMethod()
????????????????????????????
End?Sub
????????????????????????????????
Sub
?myreset()
????????????????????????????????????
'
菜單
????????
Dim
?cbar??
As
?CommandBarButton
??????????????????????
'
菜單>新建
????????
Set
?cbar?
=
?CommandBars(
"
File
"
).Controls(
"
新建(&N)
"
)
????????????cbar.Reset
????????????????
'
菜單>打開
????????
Set
?cbar?
=
?CommandBars(
"
File
"
).Controls(
"
打開(&O)
"
)
????????????cbar.Reset
????????????????
'
菜單>保存
????????
Set
?cbar?
=
?CommandBars(
"
File
"
).Controls(
"
保存(&S)
"
)
????????????cbar.Reset
????????????????
'
菜單>另存為
????????
Set
?cbar?
=
?CommandBars(
"
File
"
).Controls(
"
另存為(&A)
"
)
????????????cbar.Reset
????????????????
'
命令>新建
????????
Set
?cbar?
=
?CommandBars(
"
Standard
"
).Controls(
1
)
????????????cbar.Reset
????????????????
'
命令>打開
????????
Set
?cbar?
=
?CommandBars(
"
Standard
"
).Controls(
"
打開(&O)
"
)
????????????cbar.Reset
????????????????
'
命令>保存
????????
Set
?cbar?
=
?CommandBars(
"
Standard
"
).Controls(
"
保存(&S)
"
)
????????????cbar.Reset
????????????????
End?Sub
????????????????????????
Sub
?aaa()
????????????????????????????????
'
?aaa?Macro
????????
'
?宏在?2007-2-2?由?張文璋?創(chuàng)建
????????
'
????????
End?Sub
更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號(hào)聯(lián)系： 360901061
您的支持是博主寫作最大的動(dòng)力，如果您喜歡我的文章，感覺我的文章對(duì)您有幫助，請(qǐng)用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點(diǎn)擊下面給點(diǎn)支持吧，站長(zhǎng)非常感激您！手機(jī)微信長(zhǎng)按不能支付解決辦法：請(qǐng)將微信支付二維碼保存到相冊(cè)，切換到微信，然后點(diǎn)擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對(duì)您有幫助就好】元
