excel hücresini nasıl pasif yapabilirim..

[ordulu82]

merhabalar arkadaşlar benim bir sorum olucaktı..eklediğim dosyadada anlatmaya çalıştım. ben onay kutusu ile bazı hücrelerin pasif hale gelmesini istiyorum. mesela onay kutusunu işaretlediğimde belirlemiş olduğum hücreler pasif hale gelsin(görüntü soluk şekilde).. bunu yapabilirmiyiz..yardımcı olucak varsa çok sevinriim..

 

[N.Ziya Hiçdurmaz]

yanıt

x konulduğunda istenilen hücreleri kilitler

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a3:a100]) Is Nothing Then Exit Sub
Dim sat As Long
Application.ScreenUpdating = False
    For sat = 3 To 100
        If Cells(sat, "a") = "x" Then
            ActiveSheet.Unprotect
            Range(Cells(sat, "b"), Cells(sat, "e")).Locked = True
            ActiveSheet.Protect
        End If
         If Cells(sat, "a") <> "x" Then
            ActiveSheet.Unprotect
            Range(Cells(sat, "b"), Cells(sat, "e")).Locked = False
            ActiveSheet.Protect
        End If
    Next
Application.ScreenUpdating = True
End Sub

 

[ordulu82]

kardeş teşekkür ederim çok zahmet verdim..ama belirttiğim şekilde yani onay kutusu ve hücrelerin pasif hale gelmesi mümkün mü.. yoksa fazla mı bir şey istiyorum..

 

[muygun]

Merhaba;
Alternatif olsun.
İşlevlerle yapılmış bir hücre kilitleme örneği olarak inceleyin.
İyi çalışmalar.

 

[ordulu82]

teşekkürler

Merhaba;
Alternatif olsun.
İşlevlerle yapılmış bir hücre kilitleme örneği olarak inceleyin.
İyi çalışmalar.

çok teşekkür ederim tam istediğim gibi.. sizin gibi üstatlar olmasa halimiz haraptır. çok teşekkür ederim. kardeş ben bu hücreleri kopyaladığımda onay kutularını teker teker tekrardan düzenlemem mi gerekecek. yani yeni bir satır açtığımda formülü tekar mı yazmam lazım.

 

[muygun]

Merhaba;
Üstteki dosyayı kullanacaksanız;
C,D,E sütunlarını aşağı doğru çoğaltacak ve ilgili satırda onay kutucuğunu oluşturduktan sonra onay kutucuğuna sağ tıklayıp denetimi biçimlendir sekmesinden hücre bağlantı adresini düzenlemeniz gerekir.
Ekli tabloda aynı mantık ama farklı bir dizayn ile tabloyu çoğaltmak için koylamama haricinde yapılacak işlem yok
Birde bunu deneyin.
Not: kodlar alıntıdır.
İyi çalışmalar.

 

[mekist]

Merhaba;
Üstteki dosyayı kullanacaksanız;
C,D,E sütunlarını aşağı doğru çoğaltacak ve ilgili satırda onay kutucuğunu oluşturduktan sonra onay kutucuğuna sağ tıklayıp denetimi biçimlendir sekmesinden hücre bağlantı adresini düzenlemeniz gerekir.
Ekli tabloda aynı mantık ama farklı bir dizayn ile tabloyu çoğaltmak için koylamama haricinde yapılacak işlem yok
Birde bunu deneyin.
Not: kodlar alıntıdır.
İyi çalışmalar.

Üstad,

HÜcreler Pasif hale geliyor yani soluk hale geliyor,
Soluk haleale gelen hücreler kilitlenebilir mi,
yani onay kutusunu tıklayınca soluk hale gelsin ve hücreleri değiştirme veya silme şansımız olmasın, aktif hale gelince istediğimizi yapabilelim,
bu şekilde olabilir mi???

 

[ordulu82]

arkadaşlar hepinize çok teşekkür ederim yardımlarınız için..

 

[mekist]

Yardımcı olabilecek arkadaş varmı acaba??
Pasif yapılan hücreler kilitlenebilir mi???

 

[mekist]

yokmudur acaba bir çöüzümü hücreleri kilitleyemez miyiz,

 

[orgatu]

merhabalar: konunun hala açık kalmasına sevindim, zira ilave bir sorum olacak:
onay kutusu işaretlenip satırdaki hücreler kilitlendikten sonra, onay kutusundaki işareti kaldırmak için tıklandığında parola sorulması sağlanabilirmi? yardımlarınızı bekliyorum. teşekkürler.

 

[tahsinanarat]

Sayfanın kod bölümüne aşağıdaki kodu yapıştırınız, yapıştırmadan önce bütün sayfayı seçip hücre kilidini kaldırın, sonra kodları apıştırın.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect
For sat = 3 To Cells(65536, "a").End(xlUp).Row
If Cells(sat, "a") = "x" Then
Range(Cells(sat, "b"), Cells(sat, "d")).Locked = True
ActiveSheet.Unprotect
Else
ActiveSheet.Unprotect
Range(Cells(sat, "b"), Cells(sat, "d")).Locked = True
End If
Next
ActiveSheet.Protect
End Sub