[已解决]VBA屏蔽“移动或复制工作表(&M)”

vv36

我想用VBA屏蔽工作表标签栏中的“移动或复制工作表(M)”，
Application.CommandBars("ply").Controls("移动或复制工作表(&M)").Enabled = False
发生错误，无效，问题出在哪里呢

用     Application.CommandBars("PLY").Controls(5).Enabled = False
        Application.CommandBars("Edit").Controls(13).Enabled = False
却可以成功屏蔽，但在2007版中却屏蔽了“查看代码(V)”
这是什么原因呢，有高人可以解释这个现象吗

最佳答案

月排行榜 / 总排行榜

那么的帅

2012-3-11 00:20

我想用VBA屏蔽工作表标签栏中的“移动或复制工作表(M)”，
Application.CommandBars("ply").Controls("移动或复制工作表(&M)").Enabled = False
发生错误，无效，问题出在哪里呢

答：问题出在Controls后面的菜单名称错误，正确的是
Application.CommandBars("ply").Controls("移动或复制工作表(&M)...").Enabled = False
少了红色的3个点


用     Application.CommandBars("PLY").Controls(5).Enabled = False
        Application.CommandBars("Edit").Controls(13).Enabled = False
却可以成功屏蔽，但在2007版中却屏蔽了“查看代码(V)”
这是什么原因呢，有高人可以解释这个现象吗

答：在2003 中 移动和复制工作表菜单在工作表标签右键菜单（也就是PLY菜单）的第5个，所以Controls的对应编号是5
在2007 和2010中，移动和复制工作表菜单在工作表标签右键菜单的第4个，而第5个对应的菜单式 查看代码(V)
如果在2007 和2010中屏蔽 移动和复制工作表菜单就要用
Application.CommandBars("PLY").Controls(4).Enabled = False

附件有工作表标签右键菜单的编号和对应名称资料，供楼主参考


资料-工作表右键菜单编号和名称.rar (5.32 KB, 下载次数: 238)

2012-3-11 00:20 上传

点击文件名下载附件

跳转到最佳答案楼层

1982zyh

对应的controlindex号码不一样？

wcymiss

Application.CommandBars("ply").Controls("移动或复制工作表(&M)...").Enabled = False

那么的帅

我想用VBA屏蔽工作表标签栏中的“移动或复制工作表(M)”，
Application.CommandBars("ply").Controls("移动或复制工作表(&M)").Enabled = False
发生错误，无效，问题出在哪里呢

答：问题出在Controls后面的菜单名称错误，正确的是
Application.CommandBars("ply").Controls("移动或复制工作表(&M)...").Enabled = False
少了红色的3个点


用     Application.CommandBars("PLY").Controls(5).Enabled = False
        Application.CommandBars("Edit").Controls(13).Enabled = False
却可以成功屏蔽，但在2007版中却屏蔽了“查看代码(V)”
这是什么原因呢，有高人可以解释这个现象吗

答：在2003 中 移动和复制工作表菜单在工作表标签右键菜单（也就是PLY菜单）的第5个，所以Controls的对应编号是5
在2007 和2010中，移动和复制工作表菜单在工作表标签右键菜单的第4个，而第5个对应的菜单式 查看代码(V)
如果在2007 和2010中屏蔽 移动和复制工作表菜单就要用
Application.CommandBars("PLY").Controls(4).Enabled = False

附件有工作表标签右键菜单的编号和对应名称资料，供楼主参考


资料-工作表右键菜单编号和名称.rar (5.32 KB, 下载次数: 238)

2012-3-11 00:20 上传

点击文件名下载附件

xiaoni

帅哥，ply代表右键吗，EDIT代表什么？
CommandBars它的编号03版35和07或者10版的43是啥意思？
还有我把代码复制到：工作表的选择了的工作表1改变事件里面，怎么没有屏蔽呢？
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CommandBars("PLY").Controls(4).Enabled = False
End Sub

右键菜单移动复制工作表还是黑的，怎么不是灰的呢？

vv36

那么的帅 发表于 2012-3-11 00:20
我想用VBA屏蔽工作表标签栏中的“移动或复制工作表(M)”，
Application.CommandBars("ply").Controls("移动 ...

我也想知道“EDIT”代表什么


“EDIT”代表单元格右键

bb75308973

xiaoni 发表于 2012-3-11 06:56
帅哥，ply代表右键吗，EDIT代表什么？
CommandBars它的编号03版35和07或者10版的43是啥意思？
还有我把代 ...

我的Office2010 也是这个问题 什么都屏蔽不了啊

bb75308973

那么的帅 发表于 2012-3-11 00:20
我想用VBA屏蔽工作表标签栏中的“移动或复制工作表(M)”，
Application.CommandBars("ply").Controls("移动 ...

我的Office2010 输入一样的代码怎么一样都屏蔽不了呢

vv36

那么的帅 发表于 2012-3-11 00:20
我想用VBA屏蔽工作表标签栏中的“移动或复制工作表(M)”，
Application.CommandBars("ply").Controls("移动 ...

特意安装了2010
Application.CommandBars("ply").Controls("移动或复制工作表(&M)...").Enabled = False
Application.CommandBars("ply").Controls("移动或复制(&M)...").Enabled = False
Application.CommandBars("ply").Controls(4).Enabled = False
（1到10都不行）
以上都不行

吕?布

这种要用Control的ID控制