[已解决]老师们，请修改隐藏工具栏和菜单栏的代码。

wangchengmao

老师们，以下代码是从thisworkbook里面复制出来的，请看看有什么错误？我想隐藏工具栏和菜单栏，但出现编译错误，子过程和函数未定义。请帮忙修改。上面那些我已经做好，现在要做的就是隐藏工具栏和菜单栏。请看看哪里出错了！
我想隐藏掉工具栏和菜单栏，然后其他的文件打开后不会受到影响。就直接隐藏我这个文件就可以。
Public MM As String
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Sh As Worksheet
Sheet1.Visible = -1
For Each Sh In Worksheets
  If Sh.Name <> Sheet1.Name Then Sh.Visible = 2
Next
End Sub
Private Sub Workbook_Open()
Dim Yf As Byte
  Application.Visible = 0
  UserForm1.Show
  Call 窗口
  End Sub
--------------------------------------------------------------------------------------------------
Sub 窗口()
Application.Caption = "【版权所有，请勿仿制】"
          ActiveWindow.Caption = vbNullString
End Sub
---------------------------------------------------------------------------------------------------
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    隐藏常用菜单工具栏
End Sub
----------------------------------------------------------------------------------------------------
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    显示常用菜单工具栏
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2013-3-18 20:08

短信收到，这么简单的事还搞不定！
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    Application.CommandBars(3).Enabled = False   '隐藏常用工具条
   Application.CommandBars(1).Enabled = False   '隐藏菜单
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    Application.CommandBars(3).Enabled = True  '显示常用工具条
   Application.CommandBars(1).Enabled = True  '显示菜单
End Sub

跳转到最佳答案楼层

hwc2ycy

工具栏菜单栏是APPLICATION级别的。
除非你是10里定制功能区。

zjdh

Application.CommandBars(3).Enabled = False  '隐藏常用工具条
Application.CommandBars(1).Enabled = False   '隐藏菜单

恢复只要将False 改成True

zjdh

以上语句替代 “隐藏常用菜单工具栏 ”

zjdh

短信收到，这么简单的事还搞不定！
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
    Application.CommandBars(3).Enabled = False   '隐藏常用工具条
   Application.CommandBars(1).Enabled = False   '隐藏菜单
End Sub
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
    Application.CommandBars(3).Enabled = True  '显示常用工具条
   Application.CommandBars(1).Enabled = True  '显示菜单
End Sub

wangchengmao

嘿，搞得乱七八糟的。谢谢老师。

wangchengmao

我有这样做，但总提示错误。