Sayfa Silmeyi Engelleme

[hakki83]

Merhaba

Excelde
Sayfayı Koru ya da
Çalışma Kitabını Koru dışında,
kullanıcı tarafından sayfa silinmesini kodlarla nasıl engelleyebiliriz?

 

[dEdE]

Merhaba,
Aşağıdaki kodlar aslında Sayfayı koru işlevini görür ama kullanıcı bunun farkına varmaz. Umarım işe yarar.
Sayfanın kod bölümüne

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

Bir modüle

Sub KorumaYok()
    ThisWorkbook.Unprotect
End Sub

Yapıştırarak dener misiniz?

 

[hakki83]

Değerli Dede Hocam teşekkürler.

Diğer kodlardan dolayı hata verdi.
Hatta bütün kodlarda hep Protect-UnProtect kullanıyordum önceden. Çakışmalar başlayınca tamamını kaldırdım.

Şu an gerçek dosyalarımda hiçbir hata/çakışma vs yok,

Eğer sayfa silmeyi engellemeyi de çakışmadan ekleyebilirsem, kullanacağım. Hata oluşursa, hiç karıştırmayacağım hocam.

 

[dEdE]

Merhaba,
Yukarıdaki kod sayfa aktif değilken devreye girer ve sayfayı korur. Sayfa aktif olunca koruma devreden çıkar. Yani sayfada işlem yapmak istendiğinde koruma yoktur. Diğer kodlarınızla çakışan durumları/hatayı görmeden yorum yapamam.