在取消隐藏工作表之前显示用户表单

Question

我的代码显示了一个工作表，告诉用户打开宏，而其他工作表保持隐藏状态。重新打开工作簿后，将显示剩余的工作表，并隐藏告诉用户打开宏的工作表。

我想在显示隐藏的工作表之前显示一个用户表单。

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

我正在使用 Excel 2013。

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

例子：