保护你的工作表离不开它:"屏蔽"

兰色幻想 · 发表于 2004-10-17 15:15

以下是引用横刀在2004-10-17 15:03:00的发言：

兰老师

刚才按照doyyi 运行了

Sub gg() Application.CommandBars(1).Enabled = flase End Sub 后所有表格的菜单都没有，我确实不知道怎么解除。这段代码我已经删除还是如此/

请教兰老师怎么恢复我的EXCEL

Application.CommandBars(1).Enabled = TRUE

yigepure · 发表于 2004-10-17 15:18

请兰老师讲一下这段代码放在哪里呀.是SHEET,还是THISWORKBOOK里呀.

横刀 · 发表于 2004-10-17 15:27

以下是引用兰色幻想在2004-10-17 15:15:00的发言：

Application.CommandBars(1).Enabled = TRUE

多谢蓝老师

兰色幻想 · 发表于 2004-10-17 15:27

以下是引用yigepure在2004-10-17 15:18:00的发言：

请兰老师讲一下这段代码放在哪里呀.是SHEET,还是THISWORKBOOK里呀.

在哪都行，这些代码都是一次性的执行过程，而不需要随着工作表的变动而不停的执行，所以代码可以借助按纽执行或通过打开和关闭文件的事件执行（打开关闭事件都是一次性的），而不需要放在工作表或工作薄的其他会多次引发程序运行的事件中。如：Workbook_SheetChange等

yigepure · 发表于 2004-10-17 15:30

那我如何使得我编辑的宏代码应用于所有的EXCEL呢.一般我关于带有宏代码的工作薄,这个代码就不起代用了.如屏蔽右键.

yigepure · 发表于 2004-10-17 15:38

以下是引用横刀在2004-10-17 15:03:00的发言：

兰老师

刚才按照doyyi 运行了

Sub gg() Application.CommandBars(1).Enabled = flase End Sub 后所有表格的菜单都没有，我确实不知道怎么解除。这段代码我已经删除还是如此/

请教兰老师怎么恢复我的EXCEL

此段代码错误能运行吗.

Sub gg() Application.CommandBars(1).Enabled = flase(正确的就是false) End Sub

兰色幻想 · 发表于 2004-10-17 15:50

以下是引用yigepure在2004-10-17 15:30:00的发言： 那我如何使得我编辑的宏代码应用于所有的EXCEL呢.一般我关于带有宏代码的工作薄,这个代码就不起代用了.如屏蔽右键.

把含程序的文件保存为加载宏后，再通过工具--加载宏---浏览---找到此文件确定

yigepure · 发表于 2004-10-17 15:53

谢谢兰老师的指点,

我还有一个问题就是,"工具","自定义","命令","新菜单",把它拉到菜单栏上.右击,它里面有一个"指定宏".

如果用它如何实现我上面的问题的解决呢

yigepure · 发表于 2004-10-17 15:59

还有就是你的文件里的这个代码与它有什么不同呢

APPLICATION.COMMANDBARS("TOOLS").ENABLED=FALSE

与这段

APPLICATION.CAOMMANDBARS(1).CONTROLS("文件(&F)").ENABLED=FALSE

为什么屏蔽菜单栏上的"工具"的代码不像是屏蔽"菜单"的代码前半部呢

如何全部屏蔽所有的按钮呢.(菜单栏,常用工具栏等)

yigepure · 发表于 2004-10-17 16:15

以下是引用yigepure在2004-10-17 15:53:00的发言：

谢谢兰老师的指点,

我还有一个问题就是,"工具","自定义","命令","新菜单",把它拉到菜单栏上.右击,它里面有一个"指定宏".

如果用它如何实现我上面的问题的解决呢

呵呵，想了半天是不是也要将先它保存为加载宏

在指定宏里找到它确定。不知道对不对

		自动登录	找回密码
密码			免费注册