“ThisWorkbook.Worksheets（”Sheet1“）。Visible = xlSheetVisible”does not work always

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