“ThisWorkbook.Worksheets（”Sheet1“）。Visible = xlSheetVisible”总是不起作用

Question

我创建了2张。 Sheet1有消息

现在代码shud变得隐藏但是这总是不会发生。有时仍然可见，Sheet1仍然隐藏。为什么会这样？

抱歉，我忘了提一个细节。工作表包含一个按钮。按下按钮时，它会打开输入框。现在的问题是，当我选择选项1查看列表然后按下按钮并选择选项4并单击确定时，它会抓住工作簿，但它不会隐藏跟踪器，即使在您建议的更改后也可以使Sheet1可见。我上传了这张表，请看一下谢谢

Answer 1

确保可见工作表选中，然后再保存：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim ws As Worksheet
        ThisWorkbook.Worksheets("Sheet1").Visible = xlSheetVisible
        ThisWorkbook.Activate
        Worksheets("Sheet1").Select
        For Each ws In ActiveWorkbook.Worksheets
            If ws.Name <> "Sheet1" Then
                ws.Visible = xlVeryHidden
            End If
        Next ws
    ThisWorkbook.Save
    Application.DisplayAlerts = True
End Sub