主题：[求助]无任何动作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()

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