afterOpenProject事件
If Date.Today.Day > 10 Then For Each t As Table In Tables t.AllowEdit = False NextEnd If