带你入门VBA，第四讲（如何控制关于工作薄与工作表）

happy91

老师，我来晚了。红色部分实现不了提示信息的目的

Sub 按钮1_单击() Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Name = "A" & i MsgBox "将sheet(i)改名?", 1 + 32, "提示信息" Sheets(i).Protect Password:=123 MsgBox "此操作将保护sheet(i)", 1 + 32, "提示信息" Next End Sub

是不是有些方法窗体中没有；还有对事件不是很明白，都有哪些事件；事件后的括号中定义和另起一行定义数据类型有什么别，请老师指点

[此贴子已经被作者于2004-10-16 12:40:27编辑过]

happy91

Private Sub workbook_beforeclose(cancel As Boolean) Dim i As Integer, a As Integer a = Worksheets.Count For i = 1 To a - 1 Sheets(i).Visible = False Next End Sub

yigepure

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

补充一点：

Application.Dialogs(5).Show是调用另存为对话框，

Application.Dialogs(1).Show是调用打开对话框

如果想了解更多对话框对应的参数

设置一个按纽运行下面的宏（看下一个时按ESC）

Sub 矩形1_单击() For I = 1 To 100 MsgBox "下面的对话框参数将对应参数" & I Application.Dialogs(I).Show Next End Sub

兰老师我来报到了.

我运行了你这个代码,只是在I=1时可以打开了"打开对话框"到I=2时就显示代码出错.

提示如下:

运行错误'1004'

类dialog的show方法无效

出错语句:

Application.Dialogs(I).Show

yigepure

以下是引用happy91在2004-10-16 12:00:00的发言：

老师，我来晚了。红色部分实现不了提示信息的目的

Sub 按钮1_单击() Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Name = "A" & i MsgBox "将sheet(i)改名?", 1 + 32, "提示信息" Sheets(i).Protect Password:=123 MsgBox "此操作将保护sheet(i)", 1 + 32, "提示信息" Next End Sub

是不是有些方法窗体中没有；还有对事件不是很明白，都有哪些事件；事件后的括号中定义和另起一行定义数据类型有什么别，请老师指点

你的这些东西放错了.

应该是这样的

msgbox "此操作将保护sheet("& i &")", 1 + 32, "提示信息"

这两个都改成这样的就行了

yigepure

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub

这个程序可以右键单击失效,(这也是屏蔽单元格右键的一个方法)

兰老师我把这段代码放在THISWORKBOOK里

回到工作表还是可以弹出右键菜单.怎么没有屏敝呀.

倒底是哪里出错了呢

gvntw

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

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub

这个程序可以右键单击失效,(这也是屏蔽单元格右键的一个方法)

兰老师我把这段代码放在THISWORKBOOK里

回到工作表还是可以弹出右键菜单.怎么没有屏敝呀.

倒底是哪里出错了呢

放到sheet中。

dongyf

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

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub

这个程序可以右键单击失效,(这也是屏蔽单元格右键的一个方法)

兰老师我把这段代码放在THISWORKBOOK里

回到工作表还是可以弹出右键菜单.怎么没有屏敝呀.

倒底是哪里出错了呢

这是工作表事件应放到SHEET中，你以后不要再手工去输入程序名，而要去选取，就不会再出现这样的错误了，切记！！

兰色幻想

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

兰老师我来报到了.

我运行了你这个代码,只是在I=1时可以打开了"打开对话框"到I=2时就显示代码出错.

提示如下:

运行错误'1004'

类dialog的show方法无效

出错语句:

Application.Dialogs(I).Show

在程序第一行加入一句：

on error resume next

Sub 矩形1_单击()

on error resume next For I = 1 To 100 MsgBox "下面的对话框参数将对应参数" & I Application.Dialogs(I).Show Next End Sub

[此贴子已经被作者于2004-10-16 13:55:41编辑过]

兰色幻想

以下是引用happy91在2004-10-16 12:00:00的发言：

老师，我来晚了。红色部分实现不了提示信息的目的

Sub 按钮1_单击() Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Name = "A" & i MsgBox "将sheet(i)改名?", 1 + 32, "提示信息" Sheets(i).Protect Password:=123 MsgBox "此操作将保护sheet(i)", 1 + 32, "提示信息" Next End Sub

是不是有些方法窗体中没有；还有对事件不是很明白，都有哪些事件；事件后的括号中定义和另起一行定义数据类型有什么别，请老师指点

双引号中间只能是文本，而不能是变量，应改为：

MsgBox "此操作将保护 sheetS(" & i & ") 改名?", 1 + 32, "提示信息"

[此贴子已经被作者于2004-10-16 14:03:38编辑过]

yigepure

呵呵,谢了兰老师,gvntw,dongyf.的帮助

[em23][em17][em23]

不过我要是工作薄里有很多的sheet,一个一个的放不是很麻烦吗.有什么办法处理这样的事情呢