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

兰色幻想

以下是引用lpdcd在2004-10-15 9:50:00的发言： 请问:程序放错地方了，什么程序应该在Thisworkbook中,什么程序应在模块中。

如果你想让EXCEL自动为你服务（如打开、关闭文件、单击单元格、更换工作表就自动执行你设置的程序，而不需要去点击按纽或宏--执行宏来触发宏的运行）就考虑用事件程序，也就是放到 MIRCROSOFT EXCEL对象中，如果程序要用手工控制，如点击某个按纽或通过宏选项执行宏才让程序运行，这种情况下用宏按纽方便。

举个例子：填充非空单元格颜色

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Value <> "" Then Target.Interior.ColorIndex = 3 End If End Sub

上面是一个事件程序，当工作表内容改变时就运行Target.Interior.ColorIndex = 3

如果这用宏来完成则很不方便，如果这样则，在单元格中每填入一个数字都要点一下按纽运行下面的宏 Sub 矩形1_单击() If ActiveCell.Value <> "" Then ActiveCell.Interior.ColorIndex = 3 End If End Sub

yigepure

Sub 按钮1_单击() Dim a As Integer, d As Integer d = Application.Worksheets.Count If d <> 0 Then For a = 1 To d Sheets(a).Name = "A" & a Sheets(a).Protect password:=123 Next a End If End Sub

先交一题

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

yigepure

Sub 按钮2_单击() Dim a As Integer, d As Integer d = Application.Worksheets.Count If d <> 0 Then For a = 1 To d Sheets(a).Unprotect password:=123 Next a End If End Sub

一次性解除工作表保护

[此贴子已经被作者于2004-10-15 14:15:57编辑过]

兰色幻想

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

Sub 按钮1_单击() Dim a As Integer, b As Integer d = Application.Worksheets.Count If d <> 0 Then For a = 1 To d Sheets(a).Name = "A" & a Sheets(a).Protect password:=123 Next a End If End Sub

先交一题

好！

可以再简化一些

Sub 按钮1_单击() Dim a As Integer, b As Integer 应该是 d 吧 d = Application.Worksheets.Count 这一句可简化为d=sheets.count If d <> 0 Then 这一句可不要，因为工作薄中至少会有一个工作表 For a = 1 To d Sheets(a).Name = "A" & a Sheets(a).Protect password:=123 Next a End If 这一句可不要，因为工作薄中至少会有一个工作表 End Sub

yigepure

Private Sub workbooks_beforeclose(ByVal sh As Object, a As Integer) Dim b As Integer b = Application.Worksheets.Count If b > 1 Then For a = 2 To b Sheets(a).Visible = false Next a End If End Sub

兰老师,我将这段代码放在THISBOOK中为什么关闭时,还是不能运用呢,哪里出错了呢.请指教

[此贴子已经被作者于2004-10-15 14:12:10编辑过]

兰色幻想

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

Private Sub workbooks_beforeclose(ByVal sh As Object, a As Integer) Dim b As Integer b = Application.Worksheets.Count If b > 1 Then For a = 2 To b Sheets(a).Visible = false Next a End If End Sub

兰老师,我将这段代码放在THISBOOK中为什么关闭时,还是不能运用呢,哪里出错了呢.请指教

可能是你的工作表的保护还未解除，程序中加入解除保护的语句可能就行了

yigepure

我的第二个按钮就是解除工作表密码的呀.我已经解除了工作表的保护.并加以保存了.然后随意在一个单元格内输了一个数字.

但是这个代码不起作用.关闭前,出现提示是否保存修改,这时还是看得到A2,A3,这两个工作表呀.

兰色幻想

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

我的第二个按钮就是解除工作表密码的呀.我已经解除了工作表的保护.并加以保存了.然后随意在一个单元格内输了一个数字.

但是这个代码不起作用.关闭前,出现提示是否保存修改,这时还是看得到A2,A3,这两个工作表呀.

文件传上来

yigepure

NNpJTxpR.rar (7.76 KB, 下载次数: 71)

2004-10-15 14:56 上传

点击文件名下载附件
带你入门VBA，第四讲（如何控制关于工作薄与工作表）

呵呵,来了

yigepure

兰老师在吗?