Formul Gizli ve kilitliyken data girebilmek

[kutup000]

Merhabalar,
Daha önce forumda VBA ile formulleri saklama üzerine almış olduğum alttaki koda bir ekleme konusunda yardım rica ediyorum.

Sub kilitle()
Cells.Locked = True
Cells.FormulaHidden = True
ActiveSheet.Protect 123
End Sub

Bu kod ile yeni bilgi girmek istediğimde Ctrl D yaparak alt satıra formul eklenemiyor.

Yardımlarınız için teşekkür ederim.

 

[Orion1]

Merhabalar,
Daha önce forumda VBA ile formulleri saklama üzerine almış olduğum alttaki koda bir ekleme konusunda yardım rica ediyorum.

Sub kilitle()
Cells.Locked = True
Cells.FormulaHidden = True
ActiveSheet.Protect 123
End Sub

Bu kod ile yeni bilgi girmek istediğimde Ctrl D yaparak alt satıra formul eklenemiyor.

Yardımlarınız için teşekkür ederim.

alttaki kod ile önce şifreyi giripp korumayı kaldırın

Activesheet.unprotect 123