• 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 eyazla
  • Başlangıç tarihi Başlangıç tarihi
E

eyazla

Katılım
27 Kasım 2008
Mesajlar
9
Excel Vers. ve Dili
microsoft office excel 2003
exelde basit sayı değerleri girerek otamatik toplam alan bir tablo oluşturdum. toplanacak değeri girdiğimde o hücrenin otomatik olarak kilitlenmesini istiyorum.Yani bir başkası değerleri değiştirerek toplamı değiştirmesini istemiyorum.Bir de gerekirse ben düzeltme yağabilmeliyim.Buna koşullu hücre kilitleme deniyor galiba ama ben yeniyim anlayabileceğim gibi lütfen
 
Bununla ilgili bir çalışmam vardı. ekli dosyayı inceler misiniz? Kod renkli alanda geçerli. Koruma şifresi: 12345
 
Son düzenleme:
makrolar devre dışı bırakıldı diyor istediğim aynen böyle bi şey ama formul falan göremiyorum
 
eyazla' Alıntı:
makrolar devre dışı bırakıldı diyor istediğim aynen böyle bi şey ama formul falan göremiyorum
Genişletmek için tıkla ...
Formül kullanmadığım için göremiyorsunuz. Makro kodlarını görebilmek için:
Araçlar>Makro>Visual Basic Düzenleyicisi'ne başvurmanız gerekiyor.
 
araçlar/makro/güvenlikten ortayı seçin dosyayı tekrar açarken makroların çalıştırılmasına izin verebilirsiniz.
 
Merhaba,
Kodlarda önemli bir değişiklik yaptım. Bu haliyle dosya daha süratli çalışacaktır. Mutlaka kodları bunlarla değiştirin. Ben yine de dosyayı ekliyorum.
Kod: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B2:G50]) Is Nothing Then Exit Sub
ActiveSheet.Unprotect 12345
If ActiveCell <> "" Then Selection.Locked = True
If ActiveCell = "" Then Selection.Locked = False
ActiveSheet.Protect 12345
End Sub
 

Ekli dosyalar

Son düzenleme:
tamam makroları açtım ama malesef Visual Basic Düzenleyicisini nasıl kullanacağımı bilmiyorum teşekkürler
 
Kod: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [[COLOR="Red"]B2:G50[/COLOR]]) Is Nothing Then Exit Sub
ActiveSheet.Unprotect 12345
If ActiveCell <> "" Then Selection.Locked = True
If ActiveCell = "" Then Selection.Locked = False
ActiveSheet.Protect 12345
End Sub
Syn. eyazla,
VisualBasic hemen öğrenilmez. Şimdi siz benim yönlendirmelerime uyarak kendi dosyanıza kodları uyarlayın.
Öncelikle, son eklediğim dosyayı indirin, çünkü kodlarda çok önemli bir değişiklik yaptım. Sonra açtığınız bu dosyanın sayfa sekmesine sağ tıklayın, açılan pencerenin en altında makro bölümü var buraya tıklayarak kodlara ulaşın ve yukarıda kırmızı renkle belirttiğim aralığı kendi dosyanızın aralığına uygulayın. Başka bir şey yapmanıza gerek yok.
 
Son düzenleme:
Çuvalladım rica etsem Ekteki dosyadaya düzenleme yapabilirmisiniz
 

Ekli dosyalar

Ekli dosyayı inceleyiniz.
Çuvallamanız iyi olmuş, bu sayede kodda bir eksiklik buldum; kodların birleşmiş hücrelerde çuvalladığını farkettim. Kodda yine ufak bir değişiklik yaptım.
7 nolu msjdaki örnek kodu ve dosyayı da güncelledim.
 

Ekli dosyalar

Son düzenleme:
Dostum iyi güzelde sayfadaki koruma aç butonu nedir ki hiç bi etkisi yok kısa yol gibi bişeymi acaba ama tık yok her seferinde sayfa korumasından mı açacağız
 
eyazla' Alıntı:
toplanacak değeri girdiğimde o hücrenin otomatik olarak kilitlenmesini istiyorum.Yani bir başkası değerleri değiştirerek toplamı değiştirmesini istemiyorum.
Genişletmek için tıkla ...
Değer girildiğinde hücrenin otomatik kilitlenmesini istemişsiniz. Hücre kilitleme kodu bu isteğinizi yerine getiriyor.
Koruma aç butonuna yeniden bakayım.
 
13 nolu mesajdaki dosyayı güncelledim, yeniden deneyip bilgi verir misiniz?
Korumayı açtıktan sonra istediğiniz hücrelerde değişiklik yapabilirsiniz. Koru butonuna bastığınızda dosyanız eski haline döner ve veri girdikçe hücre kilitlenir.
 
evet istediğim buydu elerinize sağlık bi istek daha mümkünse,
veri olmayan hücrelerde kilitleniyor koru dediğimizde sadece veri olan hücreleri kilitlese bi de meraktan soruyorum bu tür işlemlerde düğme şartmı mesala hücreye çirt tıkladığımızda şifre sorsa
 
Ekli dosyayı inceleyiniz. Belirttiğiniz alanlardaki dolu hücrelere çift tıkladığınızda şifre sorgusu gelir. Hücre kilitlerini açtım, tablo dışındaki hücreler, koruma dışı.
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst