Can'；t在Excel中显示受保护的工作表

我使用以下代码保护了几张隐藏的图纸（只是一个示例）：

不幸的是，我无法将隐藏和保护的工作表变为可见，我得到了相应的错误“1004”。如何使用VB解决这个问题？使图纸可见的代码是：

For I = 3 To 7

Worksheets(I).Activate
Sheets(I).Visible = xlSheetVisible

Next I

---

可以在不解除工作表保护的情况下使其可见？

在循环中，解除工作表保护，使其可见，然后重新进行保护。此外，您不需要激活它以使其可见。如果工作簿受保护，请取消对工作簿（而不是工作表）的保护，只有部分工作表受保护。运行以下操作：

MsgBox-ActiveWorkbook.ProtectStructure

。如果设置为TRUE，则工作簿将受到保护，您必须取消对其的保护

For I = 3 To 7

Worksheets(I).Activate
Sheets(I).Visible = xlSheetVisible

Next I