主题：[求助]无任何动作10分钟后锁定系统

If (Date.Now - 变量名).TotalSeconds > 10 Then

   '你的代码，这里打开一个模式窗口，相当于自定义登录界面，输入正确的密码点击确定按钮进入，同时通过确定按钮解除锁定（恢复相应的功能、菜单）

End IF

也就是按照楼上打开模式窗口，把您的这一段代码放入确定按钮中，最外层嵌套判断密码语句：

if  ...........

    For Each t As RibbonMenu.Tab In RibbonTabs '隐藏菜单
        t.Visible = False
    Next
    For Each t As Table In Tables
        t.Visible = False
    Next
    Forms("主界面").Open()
    Forms("操作选项").Close()
End IF

有一个不足就是10分钟（600秒）锁定后，在Forms("主界面").Open()重新输入密码打开后又立即锁定，不能再打开了，必须关闭系统重新启动。

     "主界面"窗口 KeyDown事件：
If e.KeyCode = Keys.Enter Then
    If e.Sender.Text = "123" Then
        For Each t As RibbonMenu.Tab In RibbonTabs
            t.Visible = True
        Next
        For Each t As Table In Tables
            t.Visible = True
        Next
        e.Form.Close
        MainTable = Tables("总览")
        forms("操作选项").open()
        forms("数据加载").open()
    Else
        MessageBox.Show("密码错误")
    End If
    e.Sender.Value = ""
end if