在日常工作交流中
我们时常需要对工作薄或工作表或者特定的编辑区域进行保护
以防止修改不当造成数据丢失带来的损失
在excel中给大家提供了几种保护数据的方式通过设置密码等方式对表格进行保护
但其实VBA也是可以实现这样的功能的可以对整个工作簿进行加密登录
就如同其他应用程序软件在开始时的登录界面
今天我们就来验证一把
工作薄打开事件
Private Sub Workbook_Open()
Application.visible=false '注释:隐藏excel主程序
界面.show '显示登录界面
End Sub
窗体按钮点击事件
Private Sub CommandButton1_Click()
If TextBox1.Text = "loveyou" And TextBox2.Text = "1314520" Then
界面.Hide '界面隐藏
Application.Visible = True '显示excel主程序
MsgBox "登录成功! " '弹窗提醒
Else
MsgBox "用户名或密码错误,请重试!"
End If
End Sub
Private Sub CommandButton2_Click()
ThisWorkbook.Close '关闭工作簿
End Sub
VBA应用需要注意的设置,开启宏
今天的分享就到这里
还请各位大侠多多指教还望有更好的技巧的各位亲们不吝赐教简单 有料 明了 不晕菜就在咕吧课堂学好 做好 活好下期精彩继续 回见!Copyright © 2024 妖气游戏网 www.17u1u.com All Rights Reserved