interior sınıfının colorindex özelliği kurulamıyor

[GÜRAY2]

hem dolu hücreleri korumak hemde üzerinde bulunduğumuz hücre için aşağıdakileri yazdığımızda exceli kaydet dediğimizde intrior sınıfının colorindex özelliği kurulamıyor diye hata mesajı veriyor.yardımcı olussanız çok sevinirim




Private Sub Workbook_Open()

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 7

End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
ActiveSheet.Unprotect "123"
Cells.Locked = False
Cells.SpecialCells(xlCellTypeConstants, 23).Locked = True
ActiveSheet.Protect "123"
End Sub
sayfayı kaydettiğimde en baştaki hata mesajını alıyorum

 

[Orion1]

workbooks_open prosedürünede koruma kaldır ve şifreyide yazınız.
İsterseniz sonuna korumayı koy kodunuda koyabilirsiniz.