ロックされたシートのロックされていないセルの色を変更する

Question

私は奇妙な問題に取り組んでいます。

私のコードでは、ロックされていないセルがいくつかあり、ロックされたシートが作成されます。

コードでは、Worksheet_Changeサブが作成され、編集されたセルの内部色が変更されます。

それは正常に動作しますが、私は、ファイルを閉じて再度開いたときに、ロック解除セルが編集可能であるものの、Worksheet_Changeサブ色を変更するためのエラーを与える：

「アプリケーション定義またはオブジェクト - 定義されたエラー "です。

---

iの値は、サブの色のinsted変更しようとした場合、それは仕事をしました。

シートのロック：

ThisWorkbook.Sheets(atar).Cells(exlRow, 7).Locked = False 
Worksheets(atar).Protect UserInterfaceOnly:=True, Password:="shani" 'lock sheet 

作成したサブ：

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 

    Target.Interior.Color = RGB(0, 255, 0) 

End Sub 

Answer 1

あなたは細胞が着色できるようにするAllowFormattingCells:=Trueする必要があります：

Worksheets(atar).Protect UserInterfaceOnly:=True, AllowFormattingCells:=True, Password:="shani"