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

兰色幻想

呵呵！原来是你多了个S

workbooks

Private Sub workbook_beforeclose(ByVal sh As Object, a As Integer) Dim b As Integer b = Worksheets.Count For a = 2 To b Sheets(a).Visible = False Next a End Sub

yigepure

我要是没有这个S就会出现以下提示

编辑错误:

过程声明和事件描述不匹配,或声明重复.我将它们改为

Private Sub workbook_beforeclose(ByVal sh As Object, c As Integer) Dim b As Integer b = Worksheets.Count For c= 2 To b Sheets(a).Visible = False Next c End Sub

还是老样子,如果加了S,又是不执行呀

yigepure

兰老师在吗.你用了可以吗.能具体讲讲说吗.

兰色幻想

For c= 2 To b Sheets(a).Visible = False 应该是SHEETS（C）

yigepure

还是不行,兰老师你可以写一个代码出来吗.

yigepure

从今天中午到现在一直困惑的问题.

还有兰老师你什么时候能讲讲你的经典之作.伪正规软件的权限设置和密码登陆

兰色幻想

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

从今天中午到现在一直困惑的问题.

还有兰老师你什么时候能讲讲你的经典之作.伪正规软件的权限设置和密码登陆

Private Sub workbook_beforeclose(ByVal sh As Object, c As Integer) Dim b As Integer b = Worksheets.Count For c= 2 To b Sheets(a).Visible = False Next c End Sub

1、这里的错误是绿色部分，去掉就可以了，因为事件程序中的变量是系统自带的不能修改和添加，还有你用C循环，却用Sheets(a).Visible = False应该是Sheets(C).Visible = False

正确的程序应该是

Private Sub workbook_beforeclose(ByVal sh As Object) Dim b As Integer b = Worksheets.Count For c= 2 To b Sheets(C).Visible = False Next c End Sub

yigepure

晕,试了一晚上,还是不行,真是一个字"看来我是太菜了"

兰老师,我将你的代码粘贴过去,也是这个提示

编辑错误:

过程声明和事件描述不匹配,或声明重复.

兰色幻想

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

从今天中午到现在一直困惑的问题.

还有兰老师你什么时候能讲讲你的经典之作.伪正规软件的权限设置和密码登陆

你说的第二个问题，我准备以后再开一个专门关于窗体和控件应用的讨论，到时会细讲。

yigepure

兰老师这是出错信息.还是不行