强制打开宏，然后显示一次宏的用户表单

Question

我有一个问题，但不知道它是否可以工作。我正在使用Excel 2013，并且我有一些代码来强制宏被打开。它显示一个工作表，使用户打开宏并隐藏其他工作表。重新打开工作簿后，将显示其余工作表并隐藏宏表。我想要做的是显示宏表来告诉用户打开宏。一旦工作簿被重新打开，我想在打开工作簿之前显示一个用户窗体。我强迫用户打开宏的代码如下：

Option Explicit 
Const origsave As String = "C:\SDK Engineering\iMudCalc Software" 
Const origwrkbksave As String = "C:\SDK Engineering\iMudCalc Software\iMudCalc.xlsm" 

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
Dim ws As Worksheet 

'don't display workbook 
Application.Visible = False 

'Unhide the Starting Sheet 
Sheets("Warning").Visible = xlSheetVisible 

For Each ws In ThisWorkbook.Worksheets 
    If ws.Name <> "Warning" Then 
     ws.Visible = xlVeryHidden 
    End If 
Next ws 

If Len(Dir(origsave)) > 0 Then 
    MkDir (origsave) 
Else 
    ActiveWorkbook.SaveCopyAs (origwrkbksave) 
End If 
End Sub 

Private Sub WorkBook_Open() 
Dim ws As Worksheet 

Application.Visible = False 

    For Each ws In ThisWorkbook.Worksheets 
     ws.Visible = xlSheetVisible 
    Next ws 

    Sheets("Warning").Visible = xlVeryHidden 

    'this is where I need the workbook to stay invisible and display a userform if macros are enabled... 
    frmOnLoad.Show 

End Sub 

任何人都可以帮助解决这个问题吗？希望我解释得很好。

Answer 1

我相信你正在寻找这样的东西。

根据需要进行修改。

在ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
Sheets("Warning").Visible = xlSheetVisible 
Dim ws 
For Each ws In ThisWorkbook.Worksheets 
    If ws.Name <> "Warning" Then ws.Visible = xlVeryHidden 
Next ws 
ThisWorkbook.Save 
End Sub 
Private Sub Workbook_Open() 
Dim ws 
For Each ws In ThisWorkbook.Worksheets 
    If ws.Name <> "Warning" Then ws.Visible = xlSheetVisible 
Next ws 
Sheets("Warning").Visible = xlVeryHidden 
End Sub 

实例地点：