Hücre Kilitleme macro ile

[hgenc545]

Merhaba,

İlk kez bir sorunumun bu kadar uzun süredir çözmlenemediğini gördüm.
Dikkatimi çeken se bu konuyla ilgli forumda 3 başlık daha açıldı...
Destek olursanız bir çok kişinin işi çözülecek gibi....
Biraz araştırdım kilitleme konusunu, unprotect ve protect yordamı var...

Sorumu bir öneri getirerek sormak istiyorum, dosya ektedir;
D4:AH4 aralığında 31 hücre var. Sadece 18 hücre dolu olabilir, 19 olamaz.
Birisi 19.uncu hücreyi doldurduğunda hücreler kilitlenmeli, 19uncu veri silinmeli.

Öneri:
macro ile ıf komutu kullansak,
D4:AH4 aralığına her veri girildiğinde bu aralıkta dolu hücreleri saydırsak,
18den büyükse TÜM SAYFAYI ActiveSheet.protect ile kilitlesek,
Ardından bir uyarı çıksa "Gün sınırını aştınız, artık vardiya giremezsiniz!" dese..
Sonra o uyarı kapatılsa ve bir uyarı daha çıksa "devam etmek için tıklayın" dese
Tıklandığında TÜM SAYFA KİLİDİ unprotect ile kaldırılsa, (sifre 1234 olabilir)...
Ve son girilen 19.uncu dolu hücre silinse.

Bu yada sizlerin yöntemleri ile konuyu çözebilirsek sevinirim.

Destek ricası ile...

 

[Muzaffer Ali]

Merhaba.
İstediğiniz şey veri doğrulama ile yapılabilir.

D4:AH4 hücre aralığını seçin.

Veri / Veri Doğrulama açın.
İzin verilen Değer = Özel seçin
Formül kısmında da aşağıdaki formülü kopyalayın.

=EĞERSAY($D4:$AH4;"<>")<19

Hata Uyarısı kısmına uyarı mesajını yazabilirsiniz.
Tamamı tıklatın.

D4:AH4 aralığını kopyalayıp diğer alanlara yapıştırarak veri doğrulamanın orada da geçerli olmasını sağlayabilirsiniz.