Makroyu "korumalı" sayfada kullanmak?

[sdn123]

Merhaba arkadaşlar. Aşağıdaki kodu netten buldum. Bir Excel çalışmasında kullanıyorum. Hazırladığım tabloda bazı hücrelerin içeriği değişmesin diye korumalı.

Aşağıdaki Makro’yu uyguladığımda hata veriyor. Korumayı kaldırdığımda ise sorun çözülüyor. Acaba bu Mako’yu korumalı hücrelerin olduğu bir çalışma sayfasında nasıl kullanabiliriz?

NOT: makrodan hiç anlamıyorum

kod:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
If Intersect(Target, [A1:Q100]) Is Nothing Then Exit Sub
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Interior.ColorIndex = 40
End Sub

 

[Orion1]

Buyurun.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect "şifreniz"
Cells.Interior.ColorIndex = xlNone
If Intersect(Target, [A1:Q100]) Is Nothing Then ActiveSheet.Protect "şifreniz": Exit Sub
Range(Cells(Target.Row, 1), Cells(Target.Row, 12)).Interior.ColorIndex = 40
ActiveSheet.Protect "şifreniz"
End Sub

 

[sdn123]

çok sağolun hocam; beni büyük bir dertten kurtardınız

 

[pilihoz]

aynı sorun benım ıcınde gecerli benimde cok bilgim yok makrodan acaba dosyamı eklesem yardımcı olurmusunuz.

 

[Emir Hüseyin Çoban]

. . .

sub kod_başlığı
ActiveSheet.Unprotect "şifreniz"

kodlarınız...
...
...
...

ActiveSheet.Protect "şifreniz"
end sub

. . .

 

[pilihoz]

hüseyin bey yardımınız için çok teşekkür ederim ama beceremedim dediğiniz gibi yaptım olmuyor hata veriyor size zahmet olmazsa benim göndermiş olduğum dosyada uygulama yapabilirmisin çok teşekkürler şimdiden.

 

[pilihoz]

yok mu acaba bana yardım edenn!!!!