Hücre Kilitleme

[sirkülasyon]

Selamün Aleyküm;
E1 Hücresinde Ortaöğretim yazısı varsa H8:W19 arasını kilitleyecek X8:AE19 arasını açacak
E1 Hücresinde İlköğretim yazısı varsa X8:AE19 arasını kilitleyecek H8:W19 arasını açacak
Kilitleme başka hücrelerde uygulanmayacak.

Yardımlarınız için teşekkür eder saygılarımı sunarım.

 

[numan şamil]

Selamün Aleyküm;
E1 Hücresinde Ortaöğretim yazısı varsa H8:W19 arasını kilitleyecek X8:AE19 arasını açacak
E1 Hücresinde İlköğretim yazısı varsa X8:AE19 arasını kilitleyecek H8:W19 arasını açacak
Kilitleme başka hücrelerde uygulanmayacak.

Yardımlarınız için teşekkür eder saygılarımı sunarım.

Merhaba

Sub kilitle()
ActiveSheet.Unprotect Password:=""
Cells.Locked = False
If Range("E1") = "Ortaöğretim" Then Range("H8:W19").Locked = True
If Range("E1") = "İlköğretim" Then Range("X8:AE19").Locked = True
      ActiveSheet.Protect Password:=""
End Sub

 

[antonio]

Selamün Aleyküm;
E1 Hücresinde Ortaöğretim yazısı varsa H8:W19 arasını kilitleyecek X8:AE19 arasını açacak
E1 Hücresinde İlköğretim yazısı varsa X8:AE19 arasını kilitleyecek H8:W19 arasını açacak
Kilitleme başka hücrelerde uygulanmayacak.

Yardımlarınız için teşekkür eder saygılarımı sunarım.

Kodu olduğu gibi yapıştırın. Sayfanın change olayı daha kullanışlıdır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E1]) Is Nothing Then Exit Sub
Dim sh As Worksheet, kilit As Range, oo As Range, io As Range
Set sh = ActiveSheet
Set kilit = sh.Range("E1")
Set oo = sh.Range("X8:AE19")
Set io = sh.Range("H8:W19")
Application.ScreenUpdating = False
sh.Unprotect Password:=""
    kilit.Locked = False
If kilit.Value = "Ortaöğretim" Then
    oo.Locked = False
    io.Locked = True
ElseIf kilit.Value = "İlköğretim" Then
    oo.Locked = True
    io.Locked = False
End If
sh.Protect Password:=""
Application.ScreenUpdating = True
End Sub

 

[sirkülasyon]

Sayın Numan Şamil
Sayın antonio

Her ikinize de ayrı ayrı teşekkür ederim. Sağolun

 

[antonio]

Sayın Numan Şamil
Sayın antonio

Her ikinize de ayrı ayrı teşekkür ederim. Sağolun

Rica ederim.
Kolay gelsin.

 

[ayk27]

bir sorunum var arkadaşlar. Ben güncel tarihe göre renk değiştirme olayını yaptım. Fakat sorun şu ki bir hücreye veri girdiğimde o rengin sabit kalmasını değişmemesini istiyorum. Bunu yapabilir miyim? Yardımcı olabilecek biri var mı ?

 

[Korhan Ayhan]

Merhaba,

Rengin sabit kalmasını istiyorsanız makro kullanmanız gerekir. Dosyanızı eklerseniz yardım almanız kolaylaşır.

Not: Takip ettiğim kadarıyla farklı başlıklar altına aynı soruyu tekrar tekrar sormuşsunuz. Bu şekilde davranırsanız uyarı alırsınız. Lütfen bu konuya dikkat ediniz.