VBA讲解

anbhhrh

第一课 VBA是什么
1.1 VBA是什么
直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的自动化语言.例如:可以用 EXCEL的宏语言来使EXCEL自动化,使用WORD BASIC使WORD自动化,等等.微软决定让它开发出来的应用程序共享一种通用的自动化语言- -------Visual Basic For Application(VBA),可以认为VBA是非常流行的应用程序开发语言 VASUAL BASIC 的子集.实际上VBA是"寄生于"VB应用程序的版本.VBA和VB的区别包括如下几个方面:
1. VB是设计用于创建标准的应用程序,而VBA是使已有的应用程序(EXCEL等)自动化
2. VB具有自己的开发环境,而VBA必须寄生于已有的应用程序.
3. 要运行VB开发的应用程序,用户不必安装VB,因为VB开发出的应用程序是可执行文件(*.EXE),而VBA开发的程序必须依赖于它的"父"应用程序,例如EXCEL.
尽管存在这些不同,VBA和VB在结构上仍然十分相似.事实上,如果你已经了解了VB,会发现学习VBA非常快.相应的,学完VBA会给学习VB打下 坚实的基础.而且,当学会在EXCEL中用VBA创建解决方案后,即已具备在 WORD ACCESS OUTLOOK FOXPRO PROWERPOINT 中用VBA创建解决方案的大部分知识.
* VBA一个关键特征是你所学的知识在微软的一些产品中可以相互转化.
* VBA可以称作EXCEL的“遥控器”.
VBA究竟是什么?更确切地讲,它是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案.
此外,如果你愿意,还可以将EXCEL用做开发平台实现应用程序.
1.2 EXCEL环境中基于应用程序自动化的优点
也许你想知道VBA可以干什么?使用VBA可以实现的功能包括:
1. 使重复的任务自动化.
2. 自定义EXCEL工具栏,菜单和界面.
3. 简化模板的使用.
4. 自定义EXCEL,使其成为开发平台.
5. 创建报表.
6. 对数据进行复杂的操作和分析.
用EXCEL作为开发平台有如下原因:
1. EXCEL本身功能强大,包括打印,文件处理,格式化和文本编辑.
2. EXCEL内置大量函数.
3. EXCEL界面熟悉.
4. 可连接到多种数据库.
用其他语言开发应用程序,一半的工作是编写一些基本功能的模块,包括文件的打开和保存,打印,复制等.而用EXCEL作为开发平台,则由于EXCEL已经具备这些基本功能,你要做的只是使用它.
1.3 录制简单的宏
在介绍学习VBA之前，应该花几分钟录制一个宏。
新术语：“宏”，指一系列EXCEL能够执行的VBA语句。
以下将要录制的宏非常简单，只是改变单元格颜色。请完成如下步骤：
1)打开新工作簿，确认其他工作簿已经关闭。
2)选择A1单元格。调出“常用”工具栏。
3)选择“工具”―“宏”―“录制新宏”。
4)输入“改变颜色”作为宏名替换默认宏名，单击确定,注意，此时状态栏中显示“录制”，特别是“停止录制”工具栏也显示出来。替换默认宏名主要是便于分别这些宏。
★ 宏名最多可为255个字符，并且必须以字母开始。其中可用的字符包括：字母、数字和下划线。宏名中不允许出现空格。通常用下划线代表空格。
5)选择“格式”的“单元格”，选择“图案”选项中的红色,单击“确定”。
6)单击“停止录制”工具栏按钮，结束宏录制过程。
※ 如果“停止录制”工具栏开始并未出现，请选择“工具”―“宏”―“停止录制”。
录制完一个宏后就可以执行它了。

1.4 执行宏

当执行一个宏时，EXCEL按照宏语句执行的情况就像VBA代码在对EXCEL进行“遥控”。但VBA的“遥控”不仅能使操作变得简便，还能使你获得 一些使用EXCEL标准命令所无法实现的功能。而且，一旦熟悉了EXCEL的“遥控”，你都会奇怪自己在没有这些“遥控”的情况下，到底是怎么熬过来的。 要执行刚才录制的宏，可以按以下步骤进行：
1）选择任何一个单元格，比如A3。
2）选择“工具”―“宏”―“宏”，显示“宏”对话框。
3）选择“改变颜色”，选择“执行”，则A3单元格的颜色变为红色。试着选择其它单元格和几个单元格组成的区域，然后再执行宏，以便加深印象。

菜心

1.5 查看录制的代码
到底是什么在控制EXCEL的运行呢?你可能有些疑惑.好，让我们看看VBA的语句吧.
1）选择“工具”―“宏”―“宏”，显示“宏”对话框。
2）单击列表中的“改变颜色”，选择“编辑”按钮。
此时，会打开VBA的编辑器窗口（VBE）。关于该编辑器，以后再详细说明，先将注意力集中到显示的代码上。代码如下：（日期和姓名会有不同）
Sub 改变颜色()
“
“ 改变颜色 Macro
“ xw 记录的宏 2000-6-10
“
“
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub
将来会十分熟悉这种代码，虽然现在它们看上去像一种奇怪的外语。学习VBA或编程语言在某种程度上比较像在学习一种外语。
Sub 改变颜色():这是宏的名称。
中间的以“ “”开头的五行称为“注释”，它在录制宏时自动产生。
以With 开头到End With 结束的结构是With结构语句，这段语句是宏的主要部分。注意单词“selection”，它代表“突出显示的区 域”（即：选定区域）。With Selection.Interior ：它读作“选择区域的的内部”.这整段语句设置该区域内部的一些“属性”。
其中：
.ColorIndex = 3: 将该内部设为红色。注意：有一小圆点，它的作用在于简化语句，小圆点代替出现在With后的词，它是With结构的一部分。另外：红色被数字化为3.(红色警戒是否可称作：3号警戒，嗯？)有兴趣的话，你将3改为其他数字试试看。
.Pattern = xlSolid：设置该区域的内部图案。由于是录制宏，所以，虽然你并未设置这一项，宏仍然将其记录下来(因为在“图案”选项中有此一项，只是你为曾设置而已）。xlSolid表示纯色。
.PatternColorIndex = xlAutomatic：表示内部图案底纹颜色为自动配色。
End With:结束With 语句。
End Sub:整个宏的结束语
1.6 编辑录制的代码
在上一节，我们录制了一个宏并查看了代码，代码中有两句实际上并不起作用。哪两句？现在，在宏中作一个修改，删除多余行，直到和下面代码相同：
Sub 改变颜色()
“
“ 改变颜色 Macro
“ xw 记录的宏 2000-6-10
“
“
With Selection.Interior
.ColorIndex = 3
End With
End Sub
完成后，在工作表中试验一下。你会发现结果和修改前的状况一样。在With 语句前加入一行:
Range("A5").Select
试着运行该宏，则无论开始选择哪个单元格，宏运行结果都是使A5单元格变红.
现在可以看到，编辑录制的宏同样非常简单。需要编辑宏是因为以下三个方面的原因。一：在录制中出错而不得不修改。二：录制的宏中有多余的语句需要删除，提高宏的运行速度。三：希望增加宏的功能。比如：加入判断或循环等无法录制的语句。
1.7 录制宏的局限性
希望自动化的许多EXCEL过程大多都可以用录制宏来完成.但是宏记录器存在以下局限性.通过宏记录器无法完成的工作有:
1)录制的宏无判断或循环能力.
2)人机交互能力差，即用户无法进行输入，计算机无法给出提示.
3)无法显示EXCEL对话框.
4)无法显示自定义窗体.
1.8 小结
本课中，你已经掌握了VBA的一些基础知识，你会录制宏、编辑宏而且了解了录制宏的局限性.你很努力.并且已经为将来学习VBA甚至VB等编程语言打下了基础.关键是你已经了解了一个谜底，就是说，你了解了什么是编程.下面是些小练习，做完后才可以去玩哟.
思考:
1)VBA只能用于EXCEL吗?
2)VBA是基于哪种语言?
3)说说EXCEL和VBA的关系.
4)为什么要用宏?
参考：
答：1、VBA是非常流行的应用程序开发语言VASUAL BASIC 的子集，它是用来开发应用程序共享的一种通用的自动化语言。
2、基于VASUAL BASIC 。
3、自动化语言与开发平台的关系。
4、让EXCEL的操作变得简单，同时能实行其标准命令无法实现的功能。

huangjin00751

第二课 处理录制的宏
2.1 为宏指定快捷键
你也许希望为经常使用的宏指定快捷键。快捷键是指键的组合，当其按下时执行一条命令。例如：CTRL+C
在许多程序中代表“复制”命令。当给宏指定了快捷键后，就可以用快捷键来执行宏，而不必通过“工具”菜单。
注意：当包含宏的工作簿打开时间，为宏指定快捷键会覆盖EXCEL默认的快捷键。例如：把CTRL+C指定给某个宏，那么CTRL+C就不再执行复制命令。用以下方法可以打印出EXCEL的快捷键清单（用A4纸打印共有24页之多）：
1）打开EXCEL帮助文件并选择“目录”选项。
2）从“使用快捷键”文件夹中选择“”快捷键“标题。
3）右击该标题，从快捷菜单中选择“打印”。
4）选择“打印所选标题和所有子主题”，单击“确定”。
可以在创建宏时指定快捷键，也可以在创建后再指定。要在创建（录制）宏时指定快捷键，只须在录制宏时在输入宏名后，在“快捷键”文本框中输入相应的键。录 制宏后指定快捷键也很简单，只需选择“工具”“宏”，显示“宏”对话框，选择要指定快捷键的宏，再单击“选项”按钮，通过“选项”对话框进行设置。
2.2 决定宏保存的位置
宏可保存在三种可能的位置：
1）当前工作簿。（只有该工作簿打开时，该宏才可用。）
2）新工作簿。
3）个人宏工作簿。
2.3 个人宏工作簿
个人宏工作簿，是为宏而设计的一种特殊的具有自动隐藏特性的工作簿。第一次将宏创建到个人宏工作簿时，会创建名为“PERSONAL.XLS"的新文 件。如果该文件存在，则每当EXCEL启动时会自动将此文件打开并隐藏在活动工作簿后面（在“窗口”菜单中选择“取消隐藏”后，可以很方便地发现它的存 在。）如果你要让某个宏在多个工作簿都能使用，那么就应当创建个人宏工作簿，并将宏保存于其中。个人宏工作簿保存在“XLSTART”文件夹中。具体路径 为：C:WINDOWSProfilesApplication DataMicrosoftExcelXLSTART。可以以单词 “XLSTART”查询。
注意：如果存在个人宏工作簿，则每当EXCEL启动时会自动将此文件打开并隐藏。因为它存放在XLSTART文件夹内。
2.3.1 保存宏到个人宏工作簿
本练习，将保存一个简单的宏到个人宏工作簿，该宏为文本加下划线并改为斜体，步骤如下:
1)建立一个名为“HOUR2”的工作簿，选择"工具"-"宏"-"录制新宏"，显示"录制新宏"对话框.
2)输入"格式化文本"作为宏名.
3)从"保存在"下拉框中选择"个人宏工作簿".
4)单击"确定"按钮.现在进入录制模式.
5)单击"斜体"工具栏按钮.一段时间内，鼠标出现沙漏，特别是在第一次创建个人宏工作簿时，因为EXCEL在创建该工作簿.
6)单击"下划线"按钮.
7)停止录制.
2.3.2 使用并编辑个人宏工作簿中的宏
刚才已经保存了一个宏到个人宏工作簿，现在可以在任何工作簿中使用该宏.可按如下步骤操作:
1)关闭所有EXCEL工作簿.
2)任意打开一个EXCEL文件.(EXCEL自动将个人宏工作簿同时打开并隐藏.)
3)在A3中输入你的名字.
4)选择"工具"-"宏"，显示宏对话框.现在可以在宏列表中看到"格式化文本"这个宏.
5)选择"格式化文本"宏，并执行.现在A3单元格中，你的名字变为斜体字还带有下划线.选择"窗口"-"取消隐藏"，可以将 PERSONAL.XLS显示出来，其中没有任何文字，但通过VBA编辑器可以在其中的模块中找到"格式化文本"这个宏.在VBA编辑器中可以对该宏进行 直接编辑或者删除.如果PERSONAL.XLS中一个宏都没有，在启动EXCEL时仍会打开PERSONAL.XLS，这也许是EXCEL存在的一个小 毛病.
2.4 将宏指定给按钮
即使通过快捷键可以是宏的执行变快，但是一旦宏的数量多了也难于记忆，而且，如果宏是由其他人来使用，难道你要他们也记住那么多的快捷键吗?
作为EXCEL开发者，一个主要的目标是为自动化提供一个易于操作的界面."按钮"是最常见的界面组成元素之一.通过使用“窗体”工具栏，可以为工作 簿中的工作表添加按钮。在创建完一个按钮后，可以为它指定宏，然后你的用户就可以通过单击按钮来执行宏。在本练习中，将创建一个按钮，并为它指定一个宏， 然后用该按钮来执行宏。具体步骤如下：
1）打开“HOUR2”工作簿。
2）调出”窗体“工具栏。
3）单击”窗体“工具栏中的“按钮”控件，此时鼠标变成十字形状。
4）在希望放置按钮的位置按下鼠标左键，拖动鼠标画出一个矩形，这个矩形代表了该按钮的大小。对大小满意后放开鼠标左键，这样一个命令按钮就添加到了工作表中，同时EXCEL自动显示“指定宏”对话框。
5）从“指定宏”对话框中选择“格式化文本”，单击“确定”。这样，就把该宏指定给命令按钮。
6）在按钮的标题“按钮1”前单击鼠标左键，按下DELETE直到删除所有文本，输入“格式化”作为标题。
7）单击按钮外的任意位置，现在该按钮的标题由默认的“按钮1”变为“格式化”而且被指定了一个宏。
8）试着在某个单元格中输入文本，单击按钮运行该宏。

huangjin00751

第三课 学习控件
3.1 EXCEL开发过程简介
需要对以下问题有个大致的概念.
1)谁使用-----这决定了程序的操作难度及界面感观.
2)数据来源和保存在哪里-----这决定了程序的结构.
3)如何操作-----这将决定程序的界面和细节.
4)数据处理的结果-----最终决定程序的价值.
3.2 认识不同的控件
开始时请关闭所有工作簿，打开一个新工作簿并另存为"HOUR3".在工具栏上单击鼠标右键，从快捷菜单中选择"窗体"，显示"窗体"工具栏.其中有16个控件，只有9个可放到工作表内。
1）标签：它用于表现静态文本。
2）分组框：它用于将其他控件进行组合。
3）按钮：用于执行宏命令。
4）复选框：它是一个选择控件，通过单击可以选择和取消选择，可以多项选择。
5）选项按钮：通常几个选项按钮组合在一起使用，在一组中只能选择一个选项按钮。
6）列表框：用于显示多个选项并从中选择。只能单选。
7）组合框：用于显示多个选项并从中选择。可以选择其中的项目或者输入一个其它值。
8）滚动条：不是你常见的来给很长的窗体添加滚动能力的控件，而是一种选择机制。例如调节过渡色的滚动条控件。包括水平滚动条和垂直滚动条。
9）微调控件：也是一种数值选择机制，通过单击控件的箭头来选择数值。例如改变Windows日期或时间就会使用到微调控件。
3.3 向工作表添加控件
用EXCEL设计界面十分简单，要将控件添加到工作表上，可以按以下步骤操作:
1)创建新工作簿并另存为"HOUR3"，显示"窗体"工具栏.
2)选择"标签"控件.
3)将鼠标定位到E1，此时鼠标变成小十字.
4)按下左键，拖动大约四个单元格长度，放开鼠标左键.如果希望控件大小易于控制，可在创建该控件时按下ALT拖动.
5)在标签1上单击右键，选择"编辑文字"，现在可以输入文字.完成后，单击任何单元格退出文字编辑.
6)通过以上步骤可以添加其它控件到工作表中，不再赘述.
3.4 设置控件的特性
设置控件的特性，可以按以下步骤操作:
1)选中先前创建的复选框控件，如果没有马上创建一个.
2)右击该控件，选择"控制"选项卡.
3)在"单元格链接"中输入A1并确定.
4)单击任意单元格，退出设置.
5)用鼠标左键单击复选框，A1出现TRUE，这意味着该控件被选中.再次单击该控件，A1出现FALSE.
6)选择刚才创建的滚动条控件.并调出"设置控件格式"对话框.
7)在"单元格链接"中输入A3并确定.
8)在滚动条外任意单元格单击鼠标左键，使滚动条不被选择.
9)用鼠标单击滚动条上的箭头，则A1的数值增加1，继续单击则A1的数值继续增加.
10)保存并关闭该工作簿.
3.5 给控件命名
当创建一个控件时EXCEL会自动给它指定一个名字，但不便于理解和记忆，为控件取名的方法基本和给单元格或区域取名的方法相同.选中某个控件，再在位于公式栏上的"名字"编辑框输入控件名字.这样就给控件更改了名字.
3.6 使用用户窗体
如果希望创建专业级的应用程序，并且方便用户输入数据，那么应该使用用户窗体.用户窗体可以作为程序的对话框和窗口.向用户窗体添加控件基本类似于向工作表添加控件，然而第一步要创建一个用户窗体.这可以通过VBA编辑器实现.具体按以下步骤操作:
1)打开"HOUR3"工作簿，选择"工具"-"宏"-"VBA编辑器"，打开VBA编辑器.
2)在VBA编辑器中选择工具栏上的"插入用户窗体"按钮或者选择"插入"菜单，从下拉菜单中选择"用户窗体"
现在，VBA编辑器中出现一个名为"USERFORM1"的窗体，"控件工具箱"同时出现，在其中有许多已经熟悉的控件，另外还有一些新的控件.
这些新的控件是:
A)切换按钮:该控件如果被选中，那么会保持被按下的状态.如果再次单击它就恢复为没有按下的状态.EXCEL工具栏中有几个这样的按钮，例如:"全屏显示"，"加粗"，"下划线"以及"窗体"工具栏中的"切换网格"等.
B)选项卡条(TabStrip):它是包含多个选项卡的控件.通常用来对相关的信息进行组织或分类.例如:你也许希望用选项卡条来显示各个地区的销 售信息，可以给每个地区设置一个选项卡.在默认时，选项卡包含两页，分别叫做TAB1和TAB2，可以添加更多的选项卡.
C)多页:外观类似选项卡条，是包含一页或多页的控件.选项卡条给人相似的外观，而多页控件的各页包含各自不同的控件，有各自不同的布局.多页的例子 很多，例如:"设置控件格式"对话框和"工具"菜单中的"选项"对话框.以及"格式"菜单中的"单元格..."对话框.
D)图像控件:它允许向窗体上放置图片.图片格式须为 .bmp，*.cur，*.gif，*.ico，*.jpg，*.wmf.
F)RefEdit:这是工具箱中默认情况下的最后一个控件。它外观象文本框，通过这个控件可以将用户窗体折叠起来，以便选择单元格区域。还记得在使用fx“粘贴函数”时的情况吗？
通过实践，我们会逐渐掌握每个控件的特性，这的确需要花时间，但不必死记硬背。
在对用户窗体设计得满意时，可以对其进行预览，方

huangjin00751

第四课 理解变量和变量的作用
4.1 代码存在的位置：模块
VBA代码必须存放在某个位置，这个地方就是模块。有两种基本类型的模块：标准模块和类模块。模块中的每个过程或者是函数过程，或者是子程序概念.本课的最后部分将讨论函数过程和子程序的区别。
新术语：
模块：它是作为一个单元保存在一起的VBA定义和过程的集合。
类模块：VBA允许你创建自己的对象，对象的定义包含在类模块中。
你的大部分工作集中在标准模块中（简称为模块）当录制宏时如果不存在模块，EXCEL自动创建一个。EXCEL和VBA不关心代码存放在哪一个模块中，只要代码存在于打开的工作簿中即可。
4.2 对模块的概览
过程被定义为VBA代码的一个单元，过程中包括一系列用于执行某个任务或是进行某种计算的语句。工作簿的每个过程都有唯一的名字加以区分。
有两种不同的过程：子程序和函数过程。子程序只执行一个或多个操作，而不返回数值。当录制完宏查看代码时，所看到的就是子程序。宏只能录制子程序，而不能录制函数过程。一个子程序的例子如清单4-1所示。
程序清单4-1 子程序的例子
Sub cmdSmallFont_Click( )
With Selection.Font
.Name="Arial"
.FontStyle="Regular"
.Size=16
End With
End sub
上面列出的过程实际上是一个事件过程。通过它的名字，就可以知道这是一个事件过程。这个过程的名字是由一个对象的名字CmdSmallFont和一个 事件的名字Click组成的，两者之间用下划线分开。如果还不明白，可以告诉你，CmdSmallFont是一个命令按钮的名字。也就是说，当单击这个命 令按钮时，就会运行这个事件过程。
函数过程通常情况下称为函数，要返回一个数值。这个数值通常是计算的结果或是测试的结果，例如False 或True.正如前面所说，可以用VBA创建自定义函数。实际上可以在工作表上使用你创建的函数。程序清单4-2是一个计算价格的10%为运费的简单例子。
程序清单4-2 简单的用户定义函数示例。
Public Function Shipping(Price)
Shipping = Price * 0.1
End Function
请注意，这个函数使用一个参数（Price).子程序和函数都可以使用参数。不论Price的值是多少，它都将决定运费额。Price可以是数字和单元格引用。函数返回计算出来的运费，这个函数可以用在单元格中。
A B
1 Price 100
2 Shipping =shipping(B1)
4.2.1 创建过程
创建第一个过程需要两个基本步骤。首先，需要向工作簿中添加一个模块。接着需要向模块中添加一个工程。对于创建的每一个应用程序，只需添加一次模块。 可以使用多个模块，但这是不必要的。某些开发者喜欢使用多个模块，以便根据他们的目的或者窗体对过程进行组织。在本练习中，创建的过程只显示一个消息框。
在本练习中创建的过程只显示一个消息框。在本练习中使用Msgbox是为了提供一个可见的例子，虽然我们还没有介绍过Msgbox语句，但是在本例中将使用它。要创建该过程，请按如下步骤进行：
1）打开一个新工作簿。
2）选择"工具"-"宏"-"Visual Basic编辑器"，打开VBA编辑器窗口。
3）在`VBA编辑器的左面，可以看到“工程资源管理器”窗口。在工程资源管理器窗口的“Thisworkbook"上单击鼠标右键，选择“插入”-“模块”，这样就将一个模块添加到应用程序中了。(如果你没有看见“工程资源管理器”窗口，可以按Ctrl+R)
4）选择“插入”“过程”，显示“添加过程”对话框。
5）输入“第一个工程”作为过程名字。在“类型”分组框中，确认选择了“子程序”。单击“确定”按钮。这样一个新的过程就添加到模块中了。可以在模块中看到以 Public Sub 第一个过程（）开始，以End Sub结束的语句结构。
6）在过程中插入光标，输入以下语句并回车：
Msgbox "这是我的第一个过程"
在输入Msgbox后，会自动弹出一个消息框告诉你有关这条命令的信息，称之为自动列表技术。输入完成的过程如下所示：
Public Sub 第一个过程（）
Msgbox "这是我的第一个过程"
End Sub
VBA对子程序和函数有如下的命名规则：
* 名字中可以包含字母数字和下划线。
* 名字中不能包含空格句号惊叹号，也不能包含字符 & $ #.
* 名字最多可以包含255个字符。

4.2.2 运行宏
创建这个过程后，可以运行一下。运行一个过程有几种方法：可以直接使用“运行”菜单，“运行子程序/用户窗体”工具栏按钮或按下F5键。要运行一个过程，可以按照如下步骤：
1）单击“运行子程序/用户窗体”工具栏按钮，过程执行并显示一个消息框。
2）单击消息框之中的“确定”按钮，关闭该消息框。
4.3 保存对模块所做的改变
要保存新过程，需要保存过程所驻留的工作簿.可以用VBA编辑器保存工作簿.具体步骤如下:
1)选择"文件"-"保存工作簿".因为本工作簿还没有保存过，所以要给它命名.
2)输入"HOUR4"作为文件名并按回车键，则工作簿和模块与过程都保存下来了.
4.4 变量
变量是用于临时保存数

huangjin00751

第五课 利用VBA设置工作表使用权限
一般保护工作表采取的方法是用EXCEL菜单中的“保护”命令，有时这尚嫌不足，比如一些机密文件根本要让某些使用者无法看到，但又需要他来操作工作簿中的其他表，怎么办？
可以打开VBA编辑器，打开“工程资源管理器”，双击该工作表，现在出现的是设置该表的属性的编辑窗口，单击窗口左上的下拉列表框，选择worksheet ，这时再从该窗口右上方的列表框中选择Active(“激活”），这时自动显示如下的语句块：
Private Sub Worksheet_Activate()
End Sub
在其中加入代码：(假设用"123"作为密码，Sheet"机密文档"为限制权限文
档，sheet"普通文档"为工作簿中你认为任何适合的工作表)
If Application.InputBox("请输入操作权限密码:") = 123 Then
Range("A1").Select
Else
Msgbox "密码错误，即将退出!"
Sheets("普通文档").Select
End if
程序如下：
Private Sub Worksheet_Activate()
If Application.InputBox("请输入操作权限密码:") = 123 Then
Range("A1").Select
Else
MsgBox "密码错误，即将退出!"
Sheets("普通文档").Select
End If
End Sub
这样做仍有一个问题，就是越权使用者仍会看到一些文件的片段，即在提示密码的那段时间。好，你可以这样做，用上述方法选择工作表的Deactivate事件，输入以下代码：
Sheets("机密文档").Cells.Font.ColorIndex = 2
这段程序使得此工作表在不被激活时，所有文字为白色。然后，在第一个程序中的Range("A1").Select后插入一行，写入以下代码：
ActiveSheet.Cells.Font.ColorIndex = 56
这段程序，在你输入正确密码后，将该表所有文字转变为深灰色。
完整的程序如下：
Private Sub Worksheet_Activate()
If Application.InputBox("请输入操作权限密码:") = 123 Then
Range("A1").Select
Sheets("机密文档").Cells.Font.ColorIndex = 56
Else
MsgBox "密码错误，即将退出!"
Sheets("普通文档").Select
End If

wpip

第六课 提高Excel中VBA的效率
由于Microsoft Office办公套件的广泛应用，以及该软件版本的不断提升，功能不断完善，在Office办公套件平台上开发出的的VBA 应用程序越来越多，而VBA是一种宏语言，在运行速度上有很大的限制。因此VBA编程的方法直接关系到VBA程序运行的效率，本文列举了一些提高VBA程 序运行效率的方法。
方法1：尽量使用VBA原有的属性、方法和Worksheet函数
由于Excel对象多达百多个，对象的属性、方法、事件多不胜数，对于初学者来说可能对它们不全部了解，这就产生了编程者经常编写与Excel对象的 属性、方法相同功能的VBA代码段，而这些代码段的运行效率显然与Excel对象的属性、方法完成任务的速度相差甚大。例如用Range的属性 CurrentRegion来返回Range 对象，该对象代表当前区。（当前区指以任意空白行及空白列的组合为边界的区域）。同样功能的VBA代码需数 十行。因此编程前应尽可能多地了解Excel对象的属性、方法。
充分利用Worksheet函数是提高程序运行速度的极度有效的方法。如求平均工资的例子：
For Each c In
Worksheet(1).Range(″A1:A1000″)
Totalvalue = Totalvalue ＋ c.value
Next
Averagevalue = Totalvalue / Worksheet(1).Range(″A1:A1000″).Rows.Count
而下面代码程序比上面例子快得多：
Averagevalue=Application.WorksheetFunction.Average(Worksheets(1).Range(″A1:A1000″))
其它函数如Count，Counta，Countif，Match，Lookup等等，都能代替相同功能的VBA程序代码，提高程序的运行速度。
方法2：尽量减少使用对象引用，尤其在循环中
每一个Excel对象的属性、方法的调用都需要通过OLE接口的一个或多个调用，这些OLE调用都是需要时间的，减少使用对象引用能加快VBA代码的运行。例如
1．使用With语句。
Workbooks(1).Sheets(1).Range(″A1:A1000″).Font.Name=″Pay″
Workbooks(1).Sheets(1).Range(″A1:A1000″).Font.FontStyle=″Bold″ ...
则以下语句比上面的快
With Workbooks(1).Sheets(1).Range(″A1:A1000″).Font
.Name = ″Pay″
.FontStyle = ″Bold″
...
End With
2．使用对象变量。
如果你发现一个对象引用被多次使用，则你可以将此对象用Set 设置为对象变量，以减少对对象的访问。如：
Workbooks(1).Sheets(1).Range(″A1″).value = 100
Workbooks(1).Sheets(1).Range(″A2″).value = 200
则以下代码比上面的要快：
Set MySheet = Workbooks(1).Sheets(1)
MySheet.Range(″A1″).value = 100
MySheet.Range(″A2″).value = 200
3．在循环中要尽量减少对象的访问。
For k = 1 To 1000
Sheets(″Sheet1″).Select
Cells(k，1).value = Cells(1，1).value
Next k
则以下代码比上面的要快：
Set Thevalue = Cells(1，1).value
Sheets(″Sheet1″).Select
For k = 1 To 1000
Cells(k，1).value = Thevalue
Next k
方法3：减少对象的激活和选择
如果你的通过录制宏来学习VBA的，则你的VBA程序里一定充满了对象的激活和选择，例如Workbooks(XXX).Activate、 Sheets(XXX).Select、Range(XXX).Select等，但事实上大多数情况下这些操作不是必需的。例如
Sheets(″Sheet3″).Select
Range(″A1″).value = 100
Range(″A2″).value = 200
可改为：
With Sheets(″Sheet3″)
.Range(″A1″).value = 100
.Range(″A2″).value = 200
End With
方法4：关闭屏幕更新
如果你的VBA程序前面三条做得比较差，则关闭屏幕更新是提高VBA程序运行速度的最有效的方法，缩短运行时间2/3左右。关闭屏幕更新的方法：
Application.ScreenUpdate = False
请不要忘记VBA程序运行结束时再将该值设回来：
Application.ScreenUpdate = True
以上是提高VBA运行效率的比较有效的几种方法。

wpip

第七课 如何在Excel里使用定时器
用过 Excel 97 里的加载宏 "定时保存" 吗？可惜它的源程序是加密的，现在就上传一篇介绍实现它的文档。
在 Office 里有个方法是 application.ontime ，具体函数如下：
expression.OnTime(EarliestTime， Procedure， LatestTime， Schedule)
如果想进一步了解，请参阅 Excel 的帮助。
这个函数是用来安排一个过程在将来的特定时间运行，（可为某个日期的指定时间，也可为指定的时间段之后）。通过这个函数我们就可以在 Excel 里编写自己的定时程序了。下面就举两个例子来说明它。
1.在下午 17:00:00 的时候显示一个对话框。
Sub Run_it()
Application.OnTime Timevalue("17:00:00")， "Show_my_msg"
“设置定时器在 17:00:00 激活，激活后运行 Show_my_msg 。
End Sub
Sub Show_my_msg()
msg = MsgBox("现在是 17:00:00 ！"， vbInformation， "自定义信息")
End Sub
2.模仿 Excel 97 里的 "自动保存宏"，在这里定时 5 秒出现一次
Sub auto_open()
MsgBox "欢迎你，在这篇文档里，每 5 秒出现一次保存的提示！"， vbInformation， "请注意！"
Call runtimer “打开文档时自动运行
End Sub
Sub runtimer()
Application.OnTime Now + Timevalue("00:00:05")， "saveit"
“ Now + Timevalue("00:15:00") 指定在当前时间过 5 秒钟开始运行 Saveit 这个过程。
End Sub
Sub SaveIt()
msg = MsgBox("朋友，你已经工作很久了，现在就存盘吗？" & Chr(13) _
& "选择是：立刻存盘" & Chr(13) _
& "选择否：暂不存盘" & Chr(13) _
& "选择取消：不再出现这个提示"， vbYesNoCancel + 64， "休息一会吧！")
“提示用户保存当前活动文档。
If msg = vbYes Then ActiveWorkbook.Save Else If msg = vbCancel Then Exit Sub
Call runtimer “如果用户没有选择取消就再次调用 Runtimer
End Sub
以上只是两个简单的例子，有兴趣的话，可以利用 Application.Ontime 这个函数写出更多更有用的定时程序。

wpip

还可以，但估计VBA对大部分专业性较强的网友来说还比较陌生。

xiaoxiaokedou

谢谢楼主，有实例视频讲解么？那样更便于学习。