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

qqboy1

以下是引用[I]yigepure[/I]在2004-10-16 14:50:00的发言：[BR]

如果使用工作表共同事件，就在THISWORKBOOK中选取

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

End Sub

兰老师,这上面的这段代码是实现什么作用的呀

还有对于workbook里面的这些事件你能不能把它们的事件名都说说呀.

有一些看不懂.

[em23]

看看这个 http://club.excelhome.net/dispbbs.asp?BoardID=2&ID=119929&replyID=&skin=0

pwxpss

好啊

bestbet

兰老师，谢谢您，您辛苦了。 也感谢其它会员的抛砖引玉。 [em27][em17]

humori

一口气看完27页，真太好了。如果早看到这，以前就不会学得那么辛苦了。向楼主致敬！

xiaoxiaoyu

以下是引用[I]shangyu[/I]在2004-11-2 16:37:00的发言：[BR]

ActiveWorkbook.SaveAs Filename:= Dir & "\" & Filename & ".xls"

红色部分有就不要了。

请教shangyu版主 和 兰版主： 如果我想让文件明是安照1.xls, 2.xls ,3.xls....这样自动的命名，不可以覆盖现有的文件，文件名要接着现有的后面命名，如何做？

11233

看完了,好累.不知道能学的多少.

dongwenquan

请大家帮我解决这个我工作当中非常急需的问题！！！！！

1、如何一次性新建25个一模一样的工作簿呢？（现在是通过创建模板来手工一个一个创建工作簿的）

2、如何一次性新建25个一模一样的工作表呢？（表名从201工作站到225工作站）{工作表里的格式完全一样，但数据即填写的数值不同}

[em09]

dongwenquan

请大家帮我解决这个我工作当中非常急需的问题！！！！！

1、如何一次性新建25个一模一样的工作簿呢？（现在是通过创建模板来手工一个一个创建工作簿的） [工作簿里有工作所需要的内容及相应的格式等]

2、如何一次性新建25个一模一样的工作表呢？（表名从201工作站到225工作站）{工作表里的格式完全一样，但数据即填写的数值不同}

qy0027

请问兰老师：

有没有办法在对工作表进行保护和取消保护时自动用在程序中预设好的密码，而不需要根据提示输入密码。因为我想保护录入的数据库，又要对其进行数据添加工作，现在没设密码，可以进行撤消和保护工作表。

E138

以下是引用[I]兰色幻想[/I]在2004-10-15 8:49:00的发言：[BR]

有兴趣的请做个练习（这些问题都是经常有人问）：

1、如何一次性给所有工作表改名为A1、A2、A3....？

2、如何一次保护（或解除保护）所有工作表？

3、在闭工作薄前隐藏N-1个工作表（N是工作薄内工作表的总数），只留一个工作表？

Sub 按钮1_单击() Dim n, i n = Application.Worksheets.Count For i = 1 To n - 1 Sheets(i).Name = "A" & i Sheets(i).Visible = False Sheets(i).Protect Password:=123 Next Sheets(n).Visible = True End Sub 老师好，我来得是迟了些，可我也在学：）