VBA 工具 新建空白文件的模板

文档说明

这是根据个人使用习惯 新建一个空白文件写入的代码
目的是 If Now() < 99999 Then对时间进行判断 将工具借用给他人时候 代码加密用的

Thisworkbook’

Option Explicit
'关闭文件前操作: 关闭警告和刷新 保存文件
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    Application.ThisWorkbook.Save
End Sub
'打开文件后操作: 循行窗体 至于如和运行 将逻辑转交为 sub Test
'理由是 sub Test 会不断被用户 快捷键运行 写在这里是一种重复
Private Sub Workbook_Open()
    UserForm0.Show (0)
End Sub

模组 MyTest’

Option Explicit

Sub Test()
If Now() < 99999 Then
    '对时间进行判断: 运行窗体 至于如和运行 将逻辑转交为 窗体激活 程序
    '理由是 sub(窗体激活) 会有一次 运行 可以不需要重复
    UserForm0.Show (0)
Else
    '对时间进行判断: 不符合时间 将文件可见 基本操作
    Application.ThisWorkbook.Activate
    Application.ActiveWindow.Visible = True
    Application.Visible = True
    MsgBox "过期"
End If
End Sub

主窗口’

Option Explicit
Private Sub UserForm_Activate()
    '窗体激活 1. 命名文件 2. 表格不可视
    Me.Caption = Environ("username") & " " & Now()
    Application.ThisWorkbook.Activate
    Application.ActiveWindow.Visible = False
    Application.Visible = False
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    '窗体激活 1. 表格可视
    Application.ThisWorkbook.Activate
    Application.ActiveWindow.Visible = True
    Application.Visible = True
End Sub
Private Sub CommandButton1_Click()
    '调用子窗口 1. Unload Me 2.子窗口.Show (0)
    Unload Me
    字典.Show (0)
End Sub

子窗口’

Option Explicit
Private Sub UserForm_Activate()
    '窗体激活 1. 命名文件 2. 表格不可视
    Me.Caption = "字典" & Application.WorksheetFunction.Text(Now(), "00") & " " & Now()
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    '调用母窗口 1. Unload Me 2.母窗口.Show (0)
    Unload Me
    UserForm0.Show (0)
End Sub