Makro ile,silinmesi engellenmiş sayfa üzerinden işlem yaptırma..

[krizantem_kasimpati]

Herkese merhaba..

Silinmesini istemediğim çalışma sayfamın kod bölümüne ;

Private Sub Worksheet_Deactivate()
ThisWorkbook.Protect , True
Application.OnTime Now, "UnprotectBook"
End Sub

yazıyorum.

İstediğim bu kodların yazıldığı sayfa üzerinden işlem yaptırmak.
Yalnız makro ile bu sayfa sonrasına yeni bir sayfa açmak istediğimde hata alıyorum.Sayfanın yanına korumasız sayfa açıp korumalı sayfa üzerinden işlem yapabiliyorum fakat bu seferde açılmış olan bu yeni sayfayı silemiyorum.Anladığım kadarı ile yukarıda ki kodları yazdığım sayfa kendisi üzerinden işlem yapılmış diğer yeni açılmış sayfaları etkiliyor.Bunu nasıl çözebilirim? Şimdiden teşekkür ederim.

 

[Muzaffer Ali]

Yukarıdaki kod sayfayı değil Dosyayı koruyor.

Sayfa silme kodunuzdan önce

ThisWorkbook.Protect structure:=False

satırını çalıştırıp korumayı kaldırın. Sonra da

ThisWorkbook.Protect structure:=True

satırını çalıştırıp yeniden koruyun.

 

[krizantem_kasimpati]

Teşekkürler hemen deniyorum.

 

[krizantem_kasimpati]

Merhaba.
Yazdığınız kodları denedim ve gerçekten işe yaradı.Yalnız şunu belirtmek isterim bilgi mahiyetinde,

ThisWorkbook.Protect structure:=False

bu kodu yeni açılan sayfa ile ilgili her sayfa ismi değiştirme ve sayfa silme işlemi öncesinde kullanmak gerekiyor.Şunu farkettim bu kodu her kullanımdan sonra çalışma kitabı kendini otomatik korumaya alıyor yani,

ThisWorkbook.Protect structure:=True

bu kodu kullanmaya gerek kalmıyor.
Teşekkür eder saygılar sunarım..

 

[Muzaffer Ali]

O zaman kitabı korumaya alan başka bir yerde otomatik çalışan kodlar var demektir.