在日常工作交流中 我们时常需要对工作薄或工作表或者特定的编辑区域进行保护 以防止修改不当造成数据丢失带来的损失 在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应用需要注意的设置,开启宏 还请各位大侠多多指教还望有更好的技巧的各位亲们不吝赐教简单 有料 明了 不晕菜就在咕吧课堂学好 做好 活好 |
|
来自: 群先 > 《EXCEL VBA》