返回目录：excel表格制作
VBA里面使百用Name可以直接修改文件名，例如下度面的代码（测专试成功）属：
Option Explicit
Sub YgB()
Name "e:\TEMP\文件\exp\123.txt" As "e:\TEMP\文件\exp\456.txt"
End Sub
1、打开知一个Excel文件，鼠标右击下面的工作表（如sheet1）。选择“查看代码”，就可以打开VBA编辑界面；
2、选择搜索框的下拉菜单，选择“worksheet”选项功能；
3、选择BeforeDoubleClick，也就是在本工作表道鼠标双击（之前），将触发下面的代码程序；
4、选择完成后，这样会看到版下面出现了两条代码；这俩条代码其实是在声明权一个函数；
5、将鼠标放置在这两行代码之间，这时写上执行语句：Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)；
6、然后点击保存，回到Excel的原始界面。在cells（1,1）和cells（1,2）中输入两个数值；
7、在sheet1的工作表中，双击鼠标会发现，cells（1,3）的值变成了cells（1,1）和cells（1,2）的和。
进入VBA，双击thisworkbook对象，复制以下代码：
Private Sub Workbook_Open()
Dim Sht As Worksheet, PW As String
'利用循环语句将除了Sheet1外的所有工作表隐藏,这样防止有人通过禁用VBA来绕过验证程序而看到文件,Sheet1为一个空的工作表
For Each Sht In ThisWorkbook.Worksheets
If Sht.Name <> "Sheet1" Then Sht.Visible = xlSheetHidden
Next
'以下开始验证
PW = InputBox("请输入创建人身份证号：", "登录验证")
If PW <> "XXXXXXXXXXXXXXXXXX" Then
'复制以上代码后，请用实际的身份证号替代上面的XXXXXXXXXXXXXXXXXX
ThisWorkbook.Close SaveChanges:=False '如果输入不符，e799bee5baa6e59b9ee7ad94333就退出工作薄
Else
'如果输入相符，就恢复被隐藏工作表的全部显示
For Each Sht In ThisWorkbook.Worksheets
Sht.Visible = xlSheetVisible
Next
End If
End Sub
结果如下图：