我们看如下代码:Private sh As WorksheetPrivate Sub Workbook_BeforeClose(Cancel As Boolean) '第21讲 如何做到如果禁用VBA将无法继续工作 Sheets('空白').Visible = True For Each sh In ThisWorkbook.Sheets If sh.Name <> '空白' Then sh.Visible = xlSheetVeryHidden End If NextActiveWorkbook.SaveEnd SubPrivate Sub Workbook_Open() '第21讲 如何做到如果禁用VBA将无法继续工作 For Each sh In ThisWorkbook.Sheets If sh.Name <> '空白' Then sh.Visible = xlSheetVisible End If Next Sheets('空白').Visible = xlSheetVeryHiddenEnd Sub 代码截图