• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

koşullu hücre kilitleme

  • Konbuyu başlatan Konbuyu başlatan recep
  • Başlangıç tarihi Başlangıç tarihi
R

recep

Katılım
22 Nisan 2005
Mesajlar
245
a1 hücresi ne 1 yazılınca a2 hücresi kilitkensin istiyorum bunu nasıl yapabilirim
:dua:
 
dosyayı inceleyin.

İyi çalışmalar
 
merhaba,
itediğiniz sayfa kitleme yöntemiyle yapılmaz bildiğim kadarıyla,
ama şu dosyaya bir göz adtın.
makro kullanarak bir deneme yaptım.

eğer a1 de 1 varsa a2 aktif olmuyor,
a2 seçilmek istenirse a1'e gidiyor.
 
Sn:recep makroların içerikleri visual basic sayfalarında varda excelde şifreleme işlemine fazla güvenme makroları etkinleştirme denirse veya öyle bir dene
Lütfen emeği geçen arkadaşlar yanlış anlamasın onlara tek kelimem yok çalışmalarını taktir ederim
 
Merhaba

vba şifrelemesi yok.

Sheet1 de iken
alt+F11 tuşuna basın makro önünüze gelecek
 
ben yanlışlıkla verigirilmesini engellemek için bunu sordum çalışmam ekte.
sınıfların okudukları dersler farklı yanlışlıkla veri girilmesi sonucunda ders ortalaması değişibilir :hey:
 
Zannedersem sorunuz devam ediyor ama tam olarak ne yapmaya çalıştığınızı ben anlamadım. Formül bulnan hücreleri korumaksa amaç değer girilecek hücrelerin hücre özelliklerinden kilitli kutusundaki şaretleri kaldırıp sonra sayfayı koruduğunuzda formüller korunmuş oluyor.
Dosyanızda hangi sayfada neresi korunacak? ve hepmi kilitli olacak veya neye bağlı olarak kilitlenecek?
 
sorun

1.2.3.4.5. ta okutulan dersler farklıdır. ama hazırlanacak not girişi genel olacağından eger sınıf bölmesinde 1 yazıyorsa sadece 1 sıfın derslerine not girişi yapılbilmesini istiyorum. ayrıca bir sorundaha var. not girişindeki makro düzenlenmesi gerekiyor. butona bastığımda 2 dönemin notları birden aktarıyor. 2 buton olsa ve 1 birinci dönemi diğeri ikinci dönemi aktarırsa çok iyi olur. teşk
 
Merhaba.
Ekli dosyayı inceleyiniz.
Kodlarda aşağıdadır.:cool:
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
On Error GoTo son
If Target.Value = 1 Then
    Range("A2").Locked = True
    ActiveSheet.Protect
Else
ActiveSheet.Unprotect
End If
son:
End Sub
 
işte bu ...
Çok teşekkür ederim tam aradığım şey....

Ellerinize sağlık...
 
Sezar' Alıntı:
Merhaba.
Ekli dosyayı inceleyiniz.
Kodlarda aşağıdadır.:cool:
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
On Error GoTo son
If Target.Value = 1 Then
    Range("A2").Locked = True
    ActiveSheet.Protect
Else
ActiveSheet.Unprotect
End If
son:
End Sub
Genişletmek için tıkla ...


Birader bir şey daha soracağım. A2 hücresi yerine B sütununu kilitlemek için ne kullanabilirz.
 
Merhaba.
Kod: 
Range("A2").Locked = True
Yukarıdaki kodun yerine Aşağıdaki kodu koyun.
Ama önce bir kere A2 hücresinin kilidini baştan açın.
Ondan sonra kodu çalıştırın.:cool:
Kod: 
Range("B:B").Locked = True
 
her hangı bır hucre de 2 basamaklı rakamdan fazla yazmaması ıcın ne yapmam gerek cok acıl 2 basamaklı dan fazla yazdıgımda uyarı versın yada yazmasın
 
eklentileri indiremiyourz sistemde sorunmu var :(
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst