Aktif Sayfa koruma hk

[bulentkars]

Arkadaşlar Merhaba

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect Password:="24062003"
If Intersect(Target, [B8:L45]) Is Nothing Then Exit Sub
On Error GoTo son
Cells.Interior.ColorIndex = xlNone
Range(Cells(Target.Row, 2), Cells(Target.Row, 12)).Interior.ColorIndex = 6
son:
ActiveSheet.Protect Password:="24062003"

End Sub

yukarıdakı kodum doğru çalışıyor fakat B8:L45 arasında çalışıyor sorun yok M sutununa veya b8:l45 dışında başka bıryere tıkladığımda korumayı kaldırıyor.burda benım ıstedıgım bilirttiğim alan dışında tıklandığında parola aktif olsun şimdiden teşekkür ederim

 

[leumruk]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect Password:="24062003"
On Error GoTo son
Cells.Interior.ColorIndex = xlNone
Range(Cells(Target.Row, 2), Cells(Target.Row, 12)).Interior.ColorIndex = 6
son:
ActiveSheet.Protect Password:="24062003"
End Sub

Kodu bu şekilde deneyin.

 

[bulentkars]

aktif sayfa

merhaba yapmışssınız fakat a1 e tıkladıgımda renk verıyor belırlı aralıkakadar renk verecek dıerlerıne vermeecek

 

[leumruk]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect Password:="24062003"
Cells.Interior.ColorIndex = xlNone
ActiveSheet.Protect Password:="24062003"
If Intersect(Target, [B8:L45]) Is Nothing Then Exit Sub
ActiveSheet.Unprotect Password:="24062003"
Range(Cells(Target.Row, 2), Cells(Target.Row, 12)).Interior.ColorIndex = 6
ActiveSheet.Protect Password:="24062003"
End Sub

Bu şekilde deneyin.

 

[bulentkars]

YNT

çok teşekkür ederim elinze sağlık

 

[leumruk]

çok teşekkür ederim elinze sağlık

Rica ederim.

 

[ozgretmen]

Sayın Lumrek affınıza sığınarak kodunuzun belirttiğim bölümü şu şekilde olmalıdır:ActiveSheet.Unprotect Password:="24062003"Yoksa B8:L45 içinde de dışında da koruma aktif oluyor.Bu bölgenin içinde koruma olmasın denmişti , eğer , yanlış anlamadıysam...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect Password:="24062003"
Cells.Interior.ColorIndex = xlNone
ActiveSheet.Protect Password:="24062003"
If Intersect(Target, [B8:L45]) Is Nothing Then Exit Sub
ActiveSheet.Unprotect Password:="24062003"
Range(Cells(Target.Row, 2), Cells(Target.Row, 12)).Interior.ColorIndex = 6
[COLOR="Red"][B]ActiveSheet.Protect Password:="24062003"[/B][/COLOR]
End Sub

 

[leumruk]

Sanırım bu kodun öncesi var... Ben bu başlıktaki isteğe göre düzenleme yaptım.
Syn. ozgretmen, hatalı bir durum gördüğünüzde tabiki düzelteceksiniz, kusur ne kelime;aksine teşekkür ederim.