如何实现指定VBA仅运行一次，且永久隐藏MAIN工作表？

一、实现MAIN工作表永久隐藏 #

原代码中Worksheets("MAIN").Visible = False仅为普通隐藏，用户可通过右键工作表标签取消隐藏。要达成永久隐藏效果，需将该行代码替换为：

Worksheets("MAIN").Visible = xlSheetVeryHidden

这种隐藏模式无法通过Excel常规界面取消，仅能通过VBA或开发工具的属性窗口修改，彻底避免误操作恢复可见性。

二、阻止VBA重复执行 #

要让宏仅运行一次，需添加“执行状态标记”，执行前先校验标记，若已执行则直接退出：

方案1：用自定义文档属性记录状态 #

在宏中先检查是否存在名为RFQFormGenerated的自定义属性，若存在且值为True，则提示并退出；若不存在则创建该属性并标记为True：

修改后的完整代码：

Sub PopupBox()
    Dim answer As Integer
    Dim isExecuted As Boolean
    
    ' 检查是否已执行过该宏
    isExecuted = False
    On Error Resume Next
    isExecuted = ThisWorkbook.CustomDocumentProperties("RFQFormGenerated").Value
    On Error GoTo 0
    
    If isExecuted Then
        MsgBox "RFQ表单已生成，无需重复操作！"
        Exit Sub
    End If
    
    answer = MsgBox("确定要生成RFQ表单吗？此操作不可撤销！", vbOKCancel)
    
    If answer = vbOK Then
        Worksheets("RFQ FORM INT").Visible = True
        
        ' 清除公式，仅保留值（替代原复制粘贴操作，更高效）
        With Worksheets("RFQ FORM INT")
            .Range("B15:M54").Value = .Range("B15:M54").Value
            .Range("B2:F4").Value = .Range("B2:F4").Value
        End With
        
        ' 永久隐藏MAIN工作表
        Worksheets("MAIN").Visible = xlSheetVeryHidden
        
        ' 添加执行标记，防止重复运行
        On Error Resume Next
        ThisWorkbook.CustomDocumentProperties.Add _
            Name:="RFQFormGenerated", _
            LinkToContent:=False, _
            Type:=msoPropertyTypeBoolean, _
            Value:=True
        On Error GoTo 0
        
    Else
        Worksheets("RFQ FORM INT").Visible = False
    End If
End Sub

方案2：删除宏模块（彻底禁用） #

若确认生成表单后不再需要该宏，可在执行完成后直接删除宏所在模块：

' 将这段代码添加到MAIN表隐藏的代码之后
ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("你的模块名称")

注意：需在Excel选项中启用“信任对VBA项目对象模型的访问”，此操作才能生效。

三、额外优化：设置工作簿默认打开页 #

若希望打开文件时自动切换到对应工作表，可在ThisWorkbook的Workbook_Open事件中添加以下代码：

Private Sub Workbook_Open()
    Dim isExecuted As Boolean
    On Error Resume Next
    isExecuted = ThisWorkbook.CustomDocumentProperties("RFQFormGenerated").Value
    On Error GoTo 0
    
    If isExecuted Then
        Worksheets("RFQ FORM INT").Activate
    Else
        Worksheets("MAIN").Activate
    End If
End Sub

内容的提问来源于stack exchange，提问作者C L