1、首先我们打开一个工作样表作为例子。
2、工作样表中的工作表标签，一个是5月工资，一个是sheet1默认工作表名称，我们使用vba来修改工作表名称，并且在每次默认打开时就会修改掉。
3、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：
Private WithEvents xla As Application
4、我们输入了这段代码是在thisworkbook对象中输入。
5、thisworkbook是整个工作薄对象，其有一个workbook类属性，大家都知道，在输入withevents是指新建一个应用程序类，对其可设置其方法。
6、我们这里设置其为新建工作表。
7、在sub过程中输入以下代码：
dim i as integer
for i =1 to wb.sheets.count
wb.sheets(i).name = ＂我是新工作表" & i
next
8、最后，我们需要将Private Sub xla_NewWorkbook(ByVal Wb As Workbook)过程放入workbook类中去，在打开工作薄时自动运行。set xla as application
