[分享]双击工具栏空白处禁止自定义弹出(36、39楼)

清风_ll

如果需要该功能,建议使用更高Excel版本.其他方法我不会.

zbs112

能不能换一种思维：

打开EXCEL时，如何禁止鼠标双击功能，包括工具栏的空白处。

工作表上的简单,在THISWORKBOOK的代码就可以:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  Cancel = True
End Sub

工具栏上的禁止鼠标双击功能不知道要怎么处理？

chen861213

试试这句：

application.commandbars("ToolBar List").enabled=false

zbs112

楼上的这一句已经用过了，还是不行。

  With Application
      .CommandBars("Toolbar List").Enabled = False
      .CommandBars(1).Enabled = False
      .CommandBars("Standard").Visible = False
      .CommandBars("Formatting").Visible = False
      .CommandBars("Worksheet Menu Bar").Enabled = False
      .ScreenUpdating = False          '屏蔽状态栏
      .DisplayFormulaBar = False       '屏蔽编辑栏
      .Caption = "上海安信达有限公司"  '为程序换名
      .ActiveWindow.Caption = ""       '活动窗口去掉名称
      .CommandBars("zbs112").Delete
  End With

nawong

Try it :

Private Sub Workbook_Open()
  On Error Resume Next
  Dim Bar As CommandBar
  Application.Visible = False
  Sheets("Temp").Select
  For Each Bar In Application.CommandBars
  Bar.Visible = False
  Next
 
  With Application
      .CommandBars("Toolbar List").Enabled = False
      .CommandBars(1).Enabled = False
      .CommandBars("Standard").Visible = False
      .CommandBars("Formatting").Visible = False
      .CommandBars("Worksheet Menu Bar").Enabled = False
      .ScreenUpdating = False   '敖袨怓戲
...

end sub

Sub Menu_Currency()  '籵蚚扢离粕等

  Dim zbs112 As CommandBar
  Set zbs112 = Application.CommandBars.Add(, , True)
    With zbs112
      .Visible = True
      .Position = msoBarTop
      .Name = "zbs112"
   
    End With
       
    Set BarCtlBtn = zbs112.Controls.Add(Type:=msoControlButton)
...

end sub

zbs112

双击已经达到了不弹出自定义的对话框了，现在多出了如下的问题：

1）如图，第2行的EXCEL图标和后面的（最小化、最大化、关闭）要如何去掉？

2）预览、恢复菜单、隐藏菜单的按钮失效了。

[此贴子已经被作者于2006-9-1 18:46:50编辑过]

清风_ll

QUOTE:

以下是引用nawong在2006-9-1 17:20:34的发言：

不明白为何这样做可以禁止该动作

清风_ll

QUOTE:

以下是引用zbs112在2006-9-1 17:53:36的发言：

双击已经达到了不弹出自定义的对话框了，现在多出了如下的问题：

1）如图，第2行的EXCEL图标和后面的（最小化、最大化、关闭）要如何去掉？

2）预览、恢复菜单、隐藏菜单的按钮失效了。

1,使用API,论坛中都有,搜一下.

2,按钮可用,你试点击右键试试

zbs112

去掉第2行的EXCEL图标和后面的（最小化、最大化、关闭）要使用API来解决，又遇到麻烦了，API我晕呀！

button

去掉工具栏上的EXCEL图标和后面的（最小化、最大化、关闭）可以不用API，只要新增的自定义菜单的type参数不是msoBarTypeMenuBar就可以了，比如可以改为msoBarTypeNormal，但是这样对于下拉菜单有点不好看。

双击菜单栏空白处出现自定义菜单栏对话框的问题的确对于2000及以下不好解决，用API的HOOK技术可以解决，但是不太稳定，建议不用。