Belirli Hücreleri Kilitleme / Belirli Ad Tanımlamalarına Göre Hücre Kilidi Açma

[emre_yaka]

Merhaba ,

Örnek çalışma üzerinde gri renkli hücrelerin değiştirilmemesi için kilitli olması gerekmekte. Ayrıca sabit çalışma sayfasındaki bir değerin örneğin; "ÖZEL TEKNE TURU" diye bir giriş sağlanırsa ilgili satırdaki hücrelerin kilidinin otomatik açılmasını istiyorum (manuel giriş yapılabilmesi için). Böyle bir formül mümkün olur mu ? Yardımlarınız rica olunur.

örnek çalışmam ;
http://s8.dosya.tc/server/nq7b3d/emre_yaka-TUR_CHARTI2.xlsx.html

 

[Orion1]

Dosyanız ektedir.

DOSYAYI İNDİR

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range, sh As Worksheet, adr As String
If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
Set sh = Sheets("BELEK TUR REZERVASYON TAKİP ")
Set k = sh.Range("C9:C" & sh.Cells(Rows.Count, "C").End(xlUp).Row) _
        .Find(Target.Value, , xlValues, xlWhole)
sh.Unprotect
sh.Cells.Locked = True
sh.Protect
If Not k Is Nothing Then
    sh.Unprotect: adr = k.Address
    Do
        sh.Range("A" & k.Row & ":T" & k.Row).Locked = False
        Set k = sh.Range("C9:C" & sh.Cells(Rows.Count, "C").End(xlUp).Row).FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
    sh.Protect
End If

End Sub

 

[emre_yaka]

geri dönüşünüz için teşekkür ederim fakat ekte bütün hücreler korumalı olarak geldi. Yani sadece gri kısımları korumalı yapıp; bir de bahsetmiş olduğum gibi özel bir veri girişine göre koruma açılması yapamaz mıyız ? Bir de o vermiş olduğunuz kodu eklemem mi gerekiyor ?

 

[Orion1]

geri dönüşünüz için teşekkür ederim fakat ekte bütün hücreler korumalı olarak geldi. Yani sadece gri kısımları korumalı yapıp; bir de bahsetmiş olduğum gibi özel bir veri girişine göre koruma açılması yapamaz mıyız ? Bir de o vermiş olduğunuz kodu eklemem mi gerekiyor ?

Kod zaten ekli.
Sabit sayfasında A sütununa bir işlem adı girdiğinizde onu BELLEK TUR REZERVASYON TAKIP sayfasında C sütununda buluyor ve o satırların kilitini açıp sayfayı korumaya alıyor.Diğer satırlar kiltleniyor.Sorunuzdan anladığım kadarı ile bunu istemiştiniz.

 

[emre_yaka]

Kod zaten ekli.
Sabit sayfasında A sütununa bir işlem adı girdiğinizde onu BELLEK TUR REZERVASYON TAKIP sayfasında C sütununda buluyor ve o satırların kilitini açıp sayfayı korumaya alıyor.Diğer satırlar kiltleniyor.Sorunuzdan anladığım kadarı ile bunu istemiştiniz.

ben derdimi anlatamıyorum galiba çok yardımcı oluyorsunuz teşekkürler fakat ben şu an excel i açtığımda bütün satırlar/hücreler korumalı oluyor ,, yani benim istediğim gri renkli sütunların korumalı olması (formül içerdiğinden dolayı) yalnız ben Sabit sayfasında belirleyeceğim özel tanımlara göre örneğin ÖZEL TUR vs. gibi tanımlara istinaden bu tanım Belek sayfasında C sütununa girildiği zaman sadece ilgili satırdaki gri renkli (formüllü hücrelerin) kilidi açılabilmeli manuel giriş izni gibi yani. Bu mümkün müdür ?

Düzenleme ,, şu an sadece gri hücreleri kilitlemeyi başardım (hücre biçimlendir / hücre kilidini kaldır / sayfayı koru ) şeklinde yaptım .. Şu an tek ihtiyacım bahsetmiş olduğum gibi Özel bir veri girildiği zaman kilitli hücreleri açabileceğim bir formül lazım =?