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

在《总览》表无任何动作10分钟后秒执行

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()

这样的代码怎么写？先谢了

项目的SystemIdle设置代码：  

If (Date.Now - myDate).TotalSeconds > 600 Then
    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

       怎样才能在锁定后重新输入密码仍然能打开？

 糊涂了！

 "主界面"窗口是一个独立窗口 

此主题相关图片如下：独立窗口.png

 

感谢狐爸启发式指导，容易理解又简单：

"主界面"窗口 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()

        Mydate=Date.Now
    Else
        MessageBox.Show("密码错误")
    End If
    e.Sender.Value = ""
End If