1、首先打开需要设置加密码的表格,进入到EXCEL表格里面之后,打开VBE编辑器。
2、然后在表格上面的功能区域里面点击工具,选择下面的VBAProject属性。
3、打开了之后点击保护这个选项,切换到保护的设置界面。
4、在保护界面里勾选查看时锁定工程,并在下面输入需要的密码,点击确定就可以了。
添加两个按扭command1,command2和两个文本框text1,text2和两个窗体form1和form2command1的default属性设置为True
然后复制代码!
Private Sub Command1_Click()
If Text1.Text = "" And Text2.Text = "" Then MsgBox "请先输入帐号和密码!", vbCritical, "错误": Exit Sub
If Text1.Text = "" Then MsgBox "请输入帐号!", vbCritical, "错误": Exit Sub
If Text2.Text = "" Then MsgBox "请输入密码!", vbCritical, "错误": Exit Sub
If Text1.Text = "这里是可以帐号自己设置" And Text2.Text = "这里是密码可以自己设置" Then
Form2.Show
Me.Hide
Unload Me
Else
MsgBox "帐号或密码错误,请重新输入!", vbCritical, "错误"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Command1.Caption = "登入"
Command2.Caption = "退出"
End Sub
EXCEL设置密码是在工具-选项-安全性,里面可以设置打开权限密码和修改权限密码。ActiveWorkbook.Password = "09"
ActiveWorkbook.WritePassword = "09"
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)