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は、シートを選択するために使用され、シート間のタブではありません。実際には複数のシートを選択している場合でも、タブを押すことができます。

複数のシートを選択したコードを実行すると、1つを保護できなくなります。

CTRL+PGUPを使用してシート間をタブで移動できます

于 2012-10-19T15:02:32.517 に答える