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

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

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

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

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

Private Sub Workbook_Open()
UserForm1.Show
End Sub

 

插入代码：

Private Sub CommandButton1_Click()
    If TextBox1 = 1234 Then
        Unload Me
        Else
        Label1.Caption = Label1.Caption + 1
        MsgBox "密码错误 请重新输入"
    End If
    
    If Label1.Caption >= 5 Then
    ActiveWorkbook.ChangeFileAccess xlReadOnly
    Kill ActiveWorkbook.FullName
    Application.Quit
    End If
    
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = ""
End Sub
Private Sub UserForm_Click()

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = 1
End Sub

Private Sub Label1_Click()

End Sub

Private Sub UserForm_Activate()
Label1.Caption = 0
End Sub

输入完后点击保存。