データ検証を追加するときのランタイムエラー1004

Question

現在、保護されたドキュメントにドロップダウンリストを追加しようとしています。

私が使用しているコードは次のとおりです。

Private Sub AddDropDown_Click() 
    ActiveSheet.Unprotect 

    Dim currCell As Range 
    Dim lastRow As Long 
    With ActiveSheet 
     lastRow = ActiveSheet.Cells(1048576, 1).End(xlUp).Row 
    End With 
    For Each currCell In Range("K4:K" & lastRow) 
     With currCell.Validation 
      .Delete 
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=INDIREKT(J" & currCell.Row & ")" 
      .IgnoreBlank = True 
      .InCellDropdown = True 
      .InputTitle = "" 
      .ErrorTitle = "" 
      .InputMessage = "" 
      .ErrorMessage = "" 
      .ShowInput = True 
      .ShowError = True 
     End With 
    Next currCell 
    ActiveSheet.Protect 
End Sub 

をしかし、私はそれが.Addがexcecutedされる行でエラー1004をスローするコードを実行しようとします。

パラメータの大部分は、私はデバッグ中にそれらをwhatchingしようとすると同じエラーをスロー：

誰もがこれを引き起こすもののアイデアを持っていますか？

Answer 1

ドイツの公式はOKです。しかし、デバッグにこれらのポイントを以下試してください。

1. は何か他のものに名前を変更cell
次のエラー履歴書上で削除します。例えば。 myCellまたは rngCell。
3. をFor Each cell In Range("K4:K" & lastRow)の前に置きます。
4. 先頭にOption Explicitを置き、コードをコンパイルしてみてください。