哦吼
哦吼
发布于 2024-01-16 / 54 阅读
0
0

Excel实现达到设定时间自动禁止编辑表格,通过密码解锁。

Private Sub Workbook_Open()
    ' 设置禁止编辑的时间,例如:2022年1月1日 00:00:00
    Dim lockTime As Date
    lockTime = #1/1/2022#

    ' 检查当前时间是否超过设定的禁止编辑时间
    If Now() > lockTime Then
        Dim password As String
        password = "your_password_here"

        ' 显示输入密码对话框
        Dim inputPassword As String
        inputPassword = InputBox("请输入密码以解锁编辑:", "解锁编辑", "")

        ' 检查输入的密码是否正确
        If inputPassword = password Then
            ' 允许编辑工作表
            ActiveSheet.Unprotect password:=password
        Else
            ' 禁止编辑工作表
            ActiveSheet.Protect password:=password, UserInterfaceOnly:=True

            ' 显示提示信息
            MsgBox "密码错误,您无法编辑此工作表。", vbCritical, "错误"

            ' 退出工作簿以强制实施禁止编辑
            ThisWorkbook.Close SaveChanges:=False
        End If
    End If
End Sub


评论