sayfadan çıkmadan önce korumayı kaldırsın sonra sayfadan çıksın.

[sdegirmenci]

Kıymetli arkadaşlar merhaba;
Konuyla ilgili çok başlık var ama bu şekilde olanını bulamadım.
Sayfa aktif olduğunda sayfa koruma devreye girsin, sayfadan çıkmak için çarpı işaretini tıkladığımızda önce sayfa koruma devreden çıksın, daha sonra sayfadan çıksın.Yani sayfa kapalı durumda iken diğer sayfalardan veri aktarımı yaptığımda sayfa kilidi olmasın .Yardımlarınız için şimdiden çok teşekkür ederim.

 

[Ayhan Ercan]

Merhaba
Aşağıdaki kodların her ikisinide İlgili sayfanın kod penceresine yazıp deneyiniz.

Private Sub Worksheet_Activate()
ActiveSheet.Protect
End Sub

Private Sub Worksheet_Deactivate()
ActiveSheet.Unprotect
End Sub

 

[sdegirmenci]

Sayın Ayhan ERCAN;
İlginize çok teşekkür ederim.Ancak bu şekilde sayfadan çıkmış başka sayfa seçilmiş oluyor.Problem çıkıyor.Önce kilidi kaldır, daha sonra Worksheet_Deactivate olmasını istiyorum.Bu mümkünmü acaba.

 

[Ayhan Ercan]

Sayın Ayhan ERCAN;
İlginize çok teşekkür ederim.Ancak bu şekilde sayfadan çıkmış başka sayfa seçilmiş oluyor.Problem çıkıyor.Önce kilidi kaldır, daha sonra Worksheet_Deactivate olmasını istiyorum.Bu mümkünmü acaba.

Özür dilerim. Kafam karıştı. Sorunuzu anlayamıyorum...

 

[sdegirmenci]

Ben özür dilerim, kod bilgim fazla olmadığından olsa gerek,Şunu demek istiyorum,makro çalıştığında "Private Sub Worksheet_Deactivate()" zaten sayfa deaktif oluyor.Bu bazen diğer sayfaları seçince problem çıkarıyor.Sayfadan çıkmak için çarpı işaretine tıkladığımızda öce sayfayı kilidini açsın; da sonra Worksheet_Deactivate olsun.

 

[Ayhan Ercan]

.Sayfadan çıkmak için çarpı işaretine tıkladığımızda

Çarpıdan işaretine tıklayınca sayfadan nasıl çıkıyorsunuz ki?

Bu durumda tamamen Çalışma Kitabı kapanır.

Sizin Sayfa demek ile kastettiğiniz Tüm Çalışma Kitabımı?

 

[sdegirmenci]

Çok özür dilerim çarpı derken sayfadan çıkmayı kasdetmiştim, sizi meşgu ediyorum kusura bakmayın

 

[Ayhan Ercan]

Deactive olayına yazılan kodlar zaten deactive olurken meydana gelen olaylardır.

Şöyle deneyin...:

Siz hangi sayfadaki kilidin açılıp kapanmasını istiyorsanız o sayfanın adını kullanın.

Örnek:

[LEFT]Private Sub Worksheet_Deactivate()
[COLOR=red][B]Sheets("Sayfa1")[/B][/COLOR].Unprotect
End Sub[/LEFT]

 

[sdegirmenci]

Sayın Ayhan ERCAN ; Çok teşekür ederim, sizi yordum , Bu olabilir ,hemen deneyeceğim. Ben sanki içinde "before" geçen bu tür kod hatırlıyorum ama bulamadım.Hoşçakalın

 

[Ayhan Ercan]

Ben sanki içinde "before" geçen bu tür kod hatırlıyorum ama bulamadım.

BeforeClose olayı az önce bahsettiğim gibi, Çalışma Kitabının olaylarında mevcut.

Worksheet'te değil Workbookta olur yani....

 

[sdegirmenci]

İlginize çok teşekkür ederim.Çalışmalarınız kolay gelsin.