注意，必须选用后缀为.xlsm的文件格式存盘，选用其他文件格式会导致程序丢失。
有些较低版本的Excel 没有*.xlsm文件类型选项，那么就按照正常方式存盘即可。
（4）打开已保存的程序在Excel中点选主菜单的“文件”→“打开”，选择刚才保存的“老鼠走迷宫.xlsm”。文件打开后，通常会有一个安全警告，如下图黄色背景部分：
这是为了防止未知文件中的宏病毒。我们已知这个文件是安全的，所以点击“启用内容”按钮即可。
对于较低版本的Excel，安全警告可能是个对话框，同样选择“启用宏”按钮。
启用后，请按组合键 Alt F11 打开编程窗口，即可看到上次编写的程序了。尝试运行一下程序，检查是否正常。
如果打开程序或运行程序出现问题，请跳回到上面的第五步：设置安全级别。
以上是Excel VBA编程的基本入门。下面我们进入实质编程阶段。
03 画迷宫首先在Excel表格中，画一个三行三列的迷宫。
我们把迷宫的左上角，也就是起点，放在整张表格的第4行，第2列。
因为这两个数字在后面的程序中会经常用到，我们定义两个常量代表这两个数字。定义常量的方法如下：
Const 迷宫头行 = 4 '迷宫左上角的行号
Const 迷宫头列 = 2 '迷宫左上角的列号
这样定义完以后，只要在程序中使用[『迷宫头行』，就代表数字4，使用『迷宫头列』 就代表数字2。
我们把定义常量的代码放在Sub过程外面，编程窗口的最顶端。如下图所示。
这样做的原因是：在Sub过程外面定义的常量或变量，所有Sub过程都可以使用。
然后，我们开始编写第二个过程“画迷宫”，写在第一个Sub 初始化()过程的下面（如上图）：
Sub 画迷宫()
End Sub
接着在这个新的Sub过程里面，写入以下代码：
Dim 迷宫行号 As Integer '迷宫内部的相对行号
Dim 迷宫列号 As Integer '迷宫内部的相对列号
Dim 迷宫编号 As Integer '迷宫内单元格的编号
这三条语句定义了三个变量，写在Sub过程内部，称为“局部变量”。它们与定义在Sub过程外部的变量不同，局部变量只在Sub过程内有效，别的Sub过程不能使用。另一方面，在不同的Sub过程内可以定义的相同名字的变量，它们之间互不影响。
变量的含义在后面的注释语句中已经写了。我们以后用到它们的时候再详细解释。
接着写入以下代码：
'以下画迷宫边框，并设置迷宫区域的字体属性
With Range(Cells(迷宫头行, 迷宫头列), Cells(迷宫头行 2, 迷宫头列 2))
.BorderAround LineStyle:=xlDouble '在迷宫四周画出双线边框
.HorizontalAlignment = xlCenter '设字符居中显示
.Font.ColorIndex = 15 '设字体为灰色
.Font.FontStyle = "Bold" '设字体为粗体
End With
以With开头的第一个语句中，Range()语句的功能是定义一个矩形区域，括号里的两个Cells()分别为矩形区域的左上角和右下角的单元格。
Cells()里使用了我们刚定义的两个常量『迷宫头行』和『迷宫头列』，分别代表4和2。也就是说，它的实际含义是：
Range(Cells(4, 2), Cells(6, 4))
即以第4行第2列的单元格为左上角，以第6行第4列的单元格为右下角，组成的3行3列的矩形方块。如下图：
可以看出，Cells()语句内的行号,列号可以写成数字、常量、变量或表达式，非常灵活。这就是编程的特点，大部分代码都可以这样用。
有人会问：为什么在程序里不直接写Cells(4, 2), Cells(6, 4)，而要用那么长的名字呢？
这样做是为了以后需要改变数字时，便于修改。
接着看With语句下面的4句代码，功能是画出这个矩形四个边框，并设置字体属性。其中的英文字符，都是Excel手册规定的，查出来使用即可，没必要记。
代码的开头或中间有一个或多个小句点，其含义是：小句点后面的对象属于前者。
比如，中国.北京，含义是：中国的北京。
如果写成“中国.华盛顿”，就是错的，因为中国没有这个对象。
每个对象还可以有自己的子对象，因此，可以用多个句点连着写多级。比如：
中国.北京.清华大学.法学院.某某班.某某人.年龄=20。
最后一级的对象通常是前面对象的属性，比如某人的年龄、身高、体重、学习成绩等等都是属性。
在VBA 中，单元格、矩形块、表格等都称为对象。这种“面向对象”的表达方式，使归属关系非常清晰，即使有重名的对象也不会造成混乱。
通常，当一个对象有多个属性需要设置或使用时，就可以用With语句。
以With开头，以End With结束。用法如下：
