sadece istenilen satıra kilit

[limanC34]

Selam Arkadaşlar
Dosyadaki örnek olarak renklendirilmiş satırlardaki gibi E sütununda ÜCR (yada istenilen bir kelime)yazılır ise otomatik olarak o satır kilitlenebilir mi?Eğer olursa açmak için şifre soran uyarı çıkabilir mi?
Teşekkürler.

 

[N.Ziya Hiçdurmaz]

Yanıt

Şifre açmak için hücreye çift tıklayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim DEG As String
DEG = InputBox("Şifrenizi giriniz.")
If DEG = "123" Then
ActiveSheet.Unprotect "123"
Else
MsgBox "Yanlış şifre girdiniz.", vbInformation
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim SUT As Integer
ActiveSheet.Unprotect "123"
If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
For SUT = 1 To Cells(65536, "E").End(3).Row
Cells(SUT, "E").EntireRow.Locked = False
If Cells(SUT, "E") = "ÜCR" Then
Cells(SUT, "E").EntireRow.Locked = True
End If
Next
ActiveSheet.Protect "123"
End Sub

 

[ziya]

Merhaba,
Umarım istediğiniz gibi olmuştur.
Yöntem,
-Veri
-Doğrulama

Selamlar,

 

[limanC34]

Sayın N.Ziya Hiçdurmaz
çift tıklayıp arka arkaya tamam derseniz tek tıkla bir hüreye gelip istenilen veriler değiştirilebiliyor.

 

[limanC34]

Sayın ziya
Çözümünüzde A5 satırı tamam.Fakat siz veri doğrulamayı biraz açarsanız bende sonrasını kendim halletmeye çalışırım.En azından size fazla yük olmam.
Teşekkürler.

 

[ziya]

Sn. limanC34
Ben denemiş ve çalıştığını görmüştüm. Sizin istediğiniz doğrultusunda yapılacak işlemi adım adım tarif etmeye çalışayım.

Her defasında tıkla demek istemiyorum.
-Veri
-Doğrulama
Açılan menüden, Özel
Özel altına formül girmeniz gerekiyor, sizin örneğinize göre , $E$5="ÜCR" ise 0,1 (İkinci örnekte "ÜCR" yerine "XXX")
Tamam.
Ve bu işlemi kopyalayarak, aynı staırdaki diğer hücrelere
-Özel Yapıştır
-Doğrulama
seçerek yapıştırınız.
E5 için $ işareti kullandığımız için E9 ve E13 hücrelerinde benzeri çalışmayı yapmalısınız.

İşlem tamam olacaktır.
Ayrıca sizin dosyanız üzerinde uygulamalı bir çalışma yaptım , dosya ekte inceleyiniz.
Son olarak, 3 nolu mesaja eklediğim dosyayı indirdim ve inceledim. Çalışmayan satır yok.
Selamlar.

 

[Ömer]

Merhaba,

A2:D13 ve F2:N13

aralığını aynı anda secerek, Veri / Doğrulama / Özelden ,

=EĞER($E2="ÜCR";0;1)

Formülünü yazarsanız daha pratik olacaktır..

 

[ziya]

Sn espiyonajl
limanC34 5,9 ve 13 ncü satırların kilitlenmesini istiyor, o satırların da E sütununa (Örnek, E5,E9 ve E13 hücreleri) yazacağı ÜCR kelmesine bağlamak istiyor. Mesela, E9 hücresine ÜCR yazmadı ise 9.ncu satır kilitlenmeyecek.
Selamlar,

 

[Ömer]

Sn espiyonajl
limanC34 5,9 ve 13 ncü satırların kilitlenmesini istiyor, o satırların da E sütununa (Örnek, E5,E9 ve E13 hücreleri) yazacağı ÜCR kelmesine bağlamak istiyor. Mesela, E9 hücresine ÜCR yazmadı ise 9.ncu satır kilitlenmeyecek.
Selamlar,

Selam Arkadaşlar
Dosyadaki örnek olarak renklendirilmiş satırlardaki gibi E sütununda ÜCR (yada istenilen bir kelime)yazılır ise otomatik olarak o satır kilitlenebilir mi?

Sayın Ziya, uyarı için teşekkür ederim.

Bende yanlış algılamış olabilir tabi. Ama sizin söylediğinizle benim verdiğim formül aynı işlemi yapmıyor mu?

=EĞER($E2="ÜCR";0;1)

Eğer E sütunundaki satırlarda ÜCR var ise o satıra (belirtilen aralığa) veri girişi engelleniyor.

 

[ziya]

A2:N13 aralığını seçip,

Merhaba Sn. espiyonajl
Benim söylemek istediğim, limanC34 belli satırlar için istiyor bu işlemi.
Yine de haddimi aşmak istemem, belki ben sizin demek istediğinizi tam anlayamadım.
Selamlar,

 

[Ömer]

Yine de haddimi aşmak istemem

Sayın Ziya, bu tür şeyler düşünmeyin lütfen, sonuçta karşılıklı olarak bilgi paylaşıyoruz. Çözümde bir yanlış anlaşılma var ise onu ortadan kaldırmaya çalışıyoruz beraber. Esasında ikimizde aynı şeyden bahsediyoruz fakat bir detayı farklı algılıyoruz.
Ekte örnekte anlatmaya çalıştım.

İyi çalışmalar..

 

[ziya]

Merhaba,
İşte fark burada, bir konuyu bilmek yetmiyor. Bunun tanımı "tecrübe"
Sanki $ 'ı satır sayısında da kullanmam gerekiyor. Ve işin kötüsü $ 'ı excel otomatik eklemiyor ben acemi ekliyorum ama hem sütuna hem satıra. Şu anda gülüyorum kendime.
İlginize teşekkür ederim.
Selamlar,

limanC34 ' e not : 11 nolu mesaj, tam istediğiniz çözüm. Hiçbir şeyi kopyalamanız, yapıştırmanız gerekmiyor.

 

[Ömer]

Merhaba,

Ben teşşekkür ederim Ziya bey..

İyi çalışmalar..