koşullu hücre kilitleme

[eyazla]

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

 

[leumruk]

Bununla ilgili bir çalışmam vardı. ekli dosyayı inceler misiniz? Kod renkli alanda geçerli. Koruma şifresi: 12345

 

[eyazla]

makrolar devre dışı bırakıldı diyor istediğim aynen böyle bi şey ama formul falan göremiyorum

 

[leumruk]

makrolar devre dışı bırakıldı diyor istediğim aynen böyle bi şey ama formul falan göremiyorum

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.

 

[eyazla]

Bununla ilgili bir çalışmam vardı. ekli dosyayı inceler misiniz? Kod renkli alanda geçerli. Koruma şifresi: 12345

evet ama makrolar devre dışı diyor formul falan yok istediğim aynen böyle bi şey

 

[Kardiyak]

araçlar/makro/güvenlikten ortayı seçin dosyayı tekrar açarken makroların çalıştırılmasına izin verebilirsiniz.

 

[leumruk]

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.

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

 

[eyazla]

tamam makroları açtım ama malesef Visual Basic Düzenleyicisini nasıl kullanacağımı bilmiyorum teşekkürler

 

[leumruk]

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.

 

[eyazla]

çok teşekkür ederim

 

[leumruk]

çok teşekkür ederim

Rica ederim.

 

[eyazla]

Çuvalladım rica etsem Ekteki dosyadaya düzenleme yapabilirmisiniz

 

[leumruk]

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.

 

[eyazla]

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

 

[leumruk]

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.

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.

 

[leumruk]

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.

 

[eyazla]

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

 

[leumruk]

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ışı.

 

[eyazla]

Çok teşekkürler güzel oldu

 

[leumruk]

Çok teşekkürler güzel oldu

Rica ederim.