2022-06-08 excel文档加入密码与自动销毁

针对Excel文档，打开文件时需要正确输入密码，如果密码输入错误则文件会自动销毁。

有5次输入机会，如果超过5次还没有输入正确密码，文件依然会自动销毁。

在“VBA project” 窗口，选择“This workbook”，右键插入<用户窗体>，自己在插入的窗体中添加背景图片，添加<文本框>作为密码框，添加<命令按钮>作为登录按钮，添加<标签>作为计数输入密码的次数。

VBA编辑器两个参数设置为：“workbook”，“open”，插入代码：

Private Sub Workbook_Open()
UserForm1.Show
End Sub

 

插入代码：

 1 Private Sub CommandButton1_Click()
 2     If TextBox1 = 1234 Then
 3         Unload Me
 4         Else
 5         Label1.Caption = Label1.Caption + 1
 6         MsgBox "密码错误 请重新输入"
 7     End If
 8     
 9     If Label1.Caption >= 5 Then
10     ActiveWorkbook.ChangeFileAccess xlReadOnly
11     Kill ActiveWorkbook.FullName
12     Application.Quit
13     End If
14     
15 End Sub
16 
17 Private Sub TextBox1_Change()
18 
19 End Sub
20 
21 Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
22 TextBox1 = ""
23 End Sub
24 Private Sub UserForm_Click()
25 
26 End Sub
27 
28 Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
29 If CloseMode = 0 Then Cancel = 1
30 End Sub
31 
32 Private Sub Label1_Click()
33 
34 End Sub
35 
36 Private Sub UserForm_Activate()
37 Label1.Caption = 0
38 End Sub

输入完后点击保存。

 

posted @ 2022-06-08 22:00  admin-xiaoli  阅读(519)  评论(0)  编辑  收藏  举报