1、首先打开需要设置加密码的表格,进入到EXCEL表格里面之后,打开VBE编辑器。
2、然后在表格上面的功能区域里面点击工具,选择下面的VBAProject属性。
3、打开了之后点击保护这个选项,切换到保护的设置界面。
4、在保护界面里勾选查看时锁定工程,并在下面输入需要的密码,点击确定就可以了。
在单位经常是多个人共用一台电脑,这样一来,自己制作的Excel表格,不希望别人查看,我们可以为其设置密码。
1、启动Excel,打开相应的工作簿文档,执行“工具→选项”命令,打开“选项”对话框。
2、切换到“安全性”标签下,在“打开权限密码”右侧的方框中输入密码,按下“确定”按钮,再输入一次密码,确定返回。
3、保存一下文档。
经过这样设置后,如果需要打开该工作簿时,必须输入正确的密码,否则无法打开。
注意:打开“选项”对话框,切换到“安全性”标签下,把“打开权限密码”右侧的方框中的密码清除,确定返回,再保存一下文档,即可清除文档的密码。
1.在“文件”中选择“另存为” 2.在“另存为”对话框的右上角点“工具” 3.在“工具”下拉菜单中选择“常规选项” 4.在打开的对话框中输入密码,点“确定”即可。
打开VBA编辑器,插入用户窗体,设计好界面后,输入代码:
设置属性名称(Name)属性:
用于输入用户名的文本框:txtName
用于输入密码的文本框:txtPassword
确定按钮:btnLogin
退出按钮:btnExit
在窗体模块代码窗口输入:
Option Explicit '本句可有可无
'预存用户名和密码,可以使用其他方式实现
Private Const UserName As String = "UserName"
Private Const PassWord As String = "123456"
Private Sub btnExit_Click()
ThisWorkbook.Close False
End Sub
Private Sub btnLogin_Click()
If txtName.Text = UserName And txtPassword = PassWord Then
MsgBox "用户名或密码错误!请重新输入。"
txtName.SetFocus
Else
Unload Me
End If
End Sub
双击工程管理窗口的 ThisWorkBook 以打开编辑窗口,输入:
Option Explicit
Private Sub Workbook_Open()
frmLogin.Show 1
End Sub
保存后打开即可。不过必须允许运行宏