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

兰色幻想

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

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

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

与这段

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

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

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

一楼的屏蔽只对简体中文起作用。

而APPLICATION.COMMANDBARS("TOOLS").ENABLED=FALSE 对所有版本都起作用

兰色幻想

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

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

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

一般情况下，在打开的指定宏对话框中，找到你要执行的宏点击确定就可以了

yigepure

谢谢.恭喜兰老师升任版主呀.

[em23][em17][em23]

yigepure

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

我的想法是这样的.我觉得这个EXCEL就是一个FORM.而菜单栏就是一个LISTBOX

常用工具栏上的就是COMMANDBUTTON.而编辑区就是一个TEXTBOX

它里面的代码是启动时应用就在上面.而通过加载宏.和指定宏的代码都可以被去除.而不能使用.要是也能与它的代码同时起动就好了.

我想我编辑的东西可以给人看.但要屏蔽菜单栏.常用工具栏.右键,

只留下HSCROLLBAR AND VSCROLLBAR.键盘上屏蔽印屏键,和键盘上WINDOWS图标旁的这个键.屏蔽鼠标左键.只能用键盘上的PGUP ADN PGDOWN来进行翻页查看.

以上仅是个人想法.不知能否实现.

兰色幻想

先试试这个：

Dim i As Integer For i = 1 To Application.CommandBars.Count Application.CommandBars(i).Enabled = False Next

恢复：

Dim i As Integer For i = 1 To Application.CommandBars.Count Application.CommandBars(i).Enabled = True Next

Tuk9gy9r.rar (6.53 KB, 下载次数: 155)

2004-10-17 22:42 上传

点击文件名下载附件

[此贴子已经被作者于2004-10-17 22:41:02编辑过]

yigepure

不错谢谢了.恭喜升任版主呀.好用.收藏.

[em23][em17][em23]

yigepure

哇有94个呀.真是多.呵呵.可就是不知道哪个对应哪个呀.

兰色幻想

以下是引用yigepure在2004-10-17 22:47:00的发言： 哇有94个呀.真是多.呵呵.可就是不知道哪个对应哪个呀.

英文菜单工具栏名称大全(也是从本站下载的)

A6wOW1W2.rar (13.11 KB, 下载次数: 250)

2004-10-17 23:01 上传

点击文件名下载附件
保护你的工作表离不开它:"屏蔽"

yigepure

哇,太好了,谢谢.太好了.

[em23][em23][em23][em17][em17][em17]

myshentao

好东东，收藏。谢谢版主。