Question

所以我试图在我公司提供的Excel工作簿中修复一些旧代码。目标是打印出每个工作表的某个部分（使用print-all＆＃34;按钮＆＃34;），但由于某种原因，我不断收到一条错误，指出我无法解除对工作簿的保护。

一个奇怪的怪癖是，只有当有多个页面要打印时才会出现这种情况。只需一页就可以了。

        Worksheets(ws.name).Select (False)
        With Worksheets(ws.name).PageSetup
            .PrintTitleRows = ""
            .PrintTitleColumns = ""
        End With

        Worksheets(ws.name).Unprotect
        'ActiveSheet.Unprotect
        Worksheets(ws.name).PageSetup.PrintArea = "$A$1:l" & ActiveSheet.Range("B10").CurrentRegion.Rows.Count + 10

编辑：当我将空白密码添加到Unprotect行时，它将转到下一行

Worksheets(ws.name).PageSetup.PrintArea = "$A$1:l" & ActiveSheet.Range("B10").CurrentRegion.Rows.Count + 10

我收到错误消息，说我无法在受保护的工作表上使用此命令

工作表类的Unprotect方法失败（仅在多个工作表上）

0 个答案: