koşullu sayfa koruması

[HKMTYLMZ]

Arkadaşlar,
Teknik malzeme temini ile ilgili bir tablo hazırladım. Tabloda H sütünündan sonraki her iki sutun bir aya ait. A1 hücresinde bu gün ki tarih var. H sünunun dan sonraki tüm sütunların birinci satırında tarihi ve ilgili ayı kontrol eden bir eğerli formül yazdım. Bu Formül sonucu sütünların ilk satırında 1 olan sütunların kilitsiz diğer tüm sütunların kilitli olmasını sağlayacak bir macroya ihtiyacım var. Şimdiden göstermiş olduğunuz ilgi ve alakaya teşekkür ederim.

Saygılarımla,

Hikmet YILMAZ

 

[Orion1]

I sütünunda 1 olan hücreler kiltli değil
1 den başka değer olan hücreler kilitli.

Sub kilit()
ActiveSheet.Unprotect
For i = 1 To Cells(65536, 9).End(xlUp).Row
    If Cells(i, 9).Value = 1 Then
        Cells(i, 9).Locked = False
        Else
        Cells(i, 9).Locked = True
    End If
Next
MsgBox "İ Ş L E M   T A M A M"
End Sub

 

[HKMTYLMZ]

I sütünunda 1 olan hücreler kiltli değil
1 den başka değer olan hücreler kilitli.

Sub kilit()
ActiveSheet.Unprotect
For i = 1 To Cells(65536, 9).End(xlUp).Row
    If Cells(i, 9).Value = 1 Then
        Cells(i, 9).Locked = False
        Else
        Cells(i, 9).Locked = True
    End If
Next
MsgBox "İ Ş L E M   T A M A M"
End Sub

Sezar kardeş konuyu tam anlatamadım galiba. Makro Tablonun 1. satırına bakacak 1. satırda 1 yazan sütünlar hariç diğer sütunlararı kilitleyecek. Sadece tablonun birinci satırında 1 yazan sütunun altındaki hücrelere veri girişi düzeltmesi ve silme işlemi yapılacak diğer sütunlara sokmayacak.

 

[HKMTYLMZ]

arkadaşlar bu konunun aciliyeti var. Şu konuya bir el atıp halletsek...

 

[Orion1]

Merhaba.
Hangi Aralık taki sütunlar kontrol edilecek?
Onu söylerseniz.Kodu hemen revize edeyim.

 

[Orion1]

Merhaba.
Aşağıdaki kodla sayfanın bütün sütunları kontrol ediliyor. eğer 1'nci satırda 1 varsa hücrelerin kiliti açılıyor.Bir yoksa hücreler kilitleniyor.
1'nci satırlar kilitlenmiyor.

Sub kilit()
ActiveSheet.Unprotect
For i = 1 To 256
    If Cells(1, i).Value = 1 Then
        Range(Cells(2, i), Cells(65536, i)).Locked = False
        Else
        Range(Cells(2, i), Cells(65536, i)).Locked = True
    End If
Next
MsgBox "İ Ş L E M   T A M A M"
ActiveSheet.Protect
End Sub

 

[HKMTYLMZ]

Merhaba.
Hangi Aralık taki sütunlar kontrol edilecek?
Onu söylerseniz.Kodu hemen revize edeyim.

birinci satırda 1 yazan sütunlar haricindeki tüm sütunlar kilitlenecek...

yani A sütunundan XFD sütununa kadar.

 

[Orion1]

Önceki mesajımda kodu yazdım.

 

[Orion1]

Profillere girip hangi excel versiyonunu kullandığınızı yazmanız dağa doğru olacaktır.Ben cevabı Excel-2003'e göre verdim.

 

[HKMTYLMZ]

benim kullandığım excel de 2003. Fakat kodu becerip çalıştıramadım.

Sub kilit()
ActiveSheet.Unprotect
For i = 1 To 256
If Cells(1, i).Value = 1 Then
Range(Cells(2, i), Cells(65536, i)).Locked = False
Else
Range(Cells(2, i), Cells(65536, i)).Locked = True
End If
Next
MsgBox "İ Ş L E M T A M A M"
ActiveSheet.Protect
End Sub

kodunu sayfanın kod bölümünemi yoksa modül e mi ekleyeceğim...

 

[Orion1]

kodunu sayfanın kod bölümünemi yoksa modül e mi ekleyeceğim...

Boş bir modüle ekleyiniz ve run makro ile çalıştırınız.

 

[HKMTYLMZ]

Run-time error '1004':
Range sınıfının Locked özelliği kurulamıyor

hatası veriyor.

 

[HKMTYLMZ]

ben eb iyisi excel tablomuda ekleyeyim...

birinci satırdaki 1 olan sütünlar açık diğer sütunlar kilitli olacak...

 

[Orion1]

Merhaba.
Birleştirilmiş hücreler nedeni ile hata veriyordu.
Birleştirilmiş hücreleri normale getirdim.Şimdi çalışıyor.
Dosyanız ekte.

 

[HKMTYLMZ]

teşekkür ederim. Tabloda birleştirilmiş hücre kullanmayacağız o zaman... Kötü ama yapacak bir şey yok galiba...

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[HKMTYLMZ]

Kodda şöyle bir sorun var. Manuel çalışıyor. dosyayı her açışta makroyu yeniden update etmesi ve her sayfa geçişinde makroyu yeniden çalıştırmak gerekiyor.
Bunu otomatiğe nasıl bağlarız?

 

[Orion1]

Kodda şöyle bir sorun var. Manuel çalışıyor. dosyayı her açışta makroyu yeniden update etmesi ve her sayfa geçişinde makroyu yeniden çalıştırmak gerekiyor.
Bunu otomatiğe nasıl bağlarız?

Tamam.
O şekildede yaparız .Siz canınızı sıkmayın yeterki.Olur onlar.

 

[HKMTYLMZ]

sürpersin
Söyleyecek söz bulamıyorum.
Teşekkürler....

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz .