korumaya aldığımda çalışmıyor

[otelci01]

Merhaba, Aşağıdaki makroyu sayfayı korumaya aldığımda çalışmıyor.
koruma makrosu
Dim sifre As String
sifre = InputBox("ekranı korumak için bir şifre veriniz:", "ŞİFRE GİR")
ActiveSheet.Protect sifre

çalışmayan makro

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [D8:E102]) Is Nothing Then Exit Sub
If Target <> "" And IsNumeric(Target) = True Then
Target.Offset(0, 3) = Target.Offset(0, 3) + Target
Target.Offset(0, 6) = Target.Offset(0, 6) + Target

End If
Son:
End Sub

 

[uzmanamele]

merhaba

sayfayı korumadan önce hangi hücrelerin korunacağını belirlemelisiniz.
eğer sayfanın tamamı korunuyorsa kod tabiiki çalışmayacaktır.