Koşullu bilgi girişi

[sward175]

Selamlar,

Belirlenmiş 2 hücreye bilgi girişi yapılmadan sayfa üzerinde başka hücrelere bilgi girişi yapılmamasını içeren bir dosya hazırlamak istiyorum yardımlarınızı rica ederim.

Saygılarımla,

sward175

 

[Muzaffer Ali]

Sayfa1'in kod editörünü açın ve aşağıdaki kodları yazın

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target.Address = "$C$2" Or Not Target.Address = "$P$2" Then
        If Range("C2").Value = "" Or Range("P2").Value = "" Then
            Protect
        Else
            Unprotect
        End If
    End If
End Sub

Ama öncelikle Adı soyadı ve Tarih hücrelerinin kilitleri kaldırılması gerekiyor

hücreyi sağ tıklat
Hücreleri Biçimlendir
Koruma tabını seç ve kilitli'nin yanındaki onay işaretini temizle

 

[sward175]

sayın :dalgalikur,

Tarif ettiğiniz gibi uyguladım fakat sonuç elde edemedim dosya üzerinde uygulamanızı rica edebilirmiyim ?

sward175

 

[YUSUF44]

Kodları sayfanın kod sayfasına yapıştırdıktan sonra dosyayı makro içerebilen excel dosyası olarak farklı kaydedin. Bir hücreye veri girin. Makro çalışmaya başlayacaktır.

 

[Muzaffer Ali]

Dosya ekte

 

[sward175]

sayın:yusuf44 ve dalgalikur,

ayrı ayrı teşekkürler ediyorum,

Hoşçakalın,

sward175