0

我有以下一段代码，它调用了几个不同的子：

Sub DropDown2_Change()
 'Packtype/Brand-packtype change
  Sheets("planning interface").unprotect
  Application.ScreenUpdating = False
  Call clear_data
  If Sheets("load").range("Q1") = True Then
    packtypeform.Show
  End If
  If Sheets("load").range("Q1") = False Then
    brandpacktypeform.Show
  End If
  Call formatting
  With Sheets("planning interface")
    .Protect
    .EnableSelection = xlUnlockedCells
  End With
  application.screenupdating = true
End Sub

除非我按下ctrl+shift+pageup（或向下翻页）在我正在查看的工作表之间切换并使用下拉菜单返回工作表，否则它会很好用。

我得到一个Run-time error '1004': Unprotect method of worksheet class failed 已知的原因为什么使用切换工作表ctrl+shift+pageup会破坏我拥有的不受保护的代码？

4

1 回答 1

0

CTRL+SHIFT+PGUP 用于选择工作表，而不是它们之间的选项卡 - 因此，尽管您实际上是在选择多个工作表，但您使用选项卡。

当您运行代码时，您选择了多张工作表，这会阻止您保护一张。

您可以使用 CTRL+PGUP 在工作表之间切换

于 2012-10-19T15:02:32.517 回答