sayfa silinmesi engelleme

[spacebar]

değerli üstadlarım, konuyu araştırdım ama soruna çözüm bulamadım. çalışma kitabında bazı sayfaların silinmesi nasıl engellenebilir. belki de excel versiyonumdan dolayı çalışma kitabını koru ile yapamadım. şöyle bir kod buldum ama bu kodları bir kez kullanınca (dosyayı kapatınca bile) bundan sonra hiçbir zaman silmeye izin vermiyor :

Private Sub Worksheet_Activate()

For Each Ctrl In Application.CommandBars.FindControls(ID:=847)

Ctrl.Enabled = False

Next Ctrl

End Sub



Private Sub Worksheet_Deactivate()

For Each Ctrl In Application.CommandBars.FindControls(ID:=847)

Ctrl.Enabled = True

Next Ctrl

End Sub

teşekkürler...

 

[Korhan Ayhan]

Çalışma Kitabı koruması uygulayarak sayfa silinmesini engelleyebilirsiniz.

 

[spacebar]

üstad excel versiyonumdan mı çözemedim o şekilde yapamadım. bir de sadece belli sayfaları yapmak istiyordum.

 

[Seceren]

Hiç bir program kullanmadan Dener misin? Bir şeyleri eksik yapıyorsunuzdur.

Çalışma Kitabı koruması uygulayarak sayfa silinmesini engelleyebilirsiniz.

Denilen şekilde yapıldı. Şifresi sayfa1_ A1 de yazılı.

 

[muratboz06]

Birde şunu deneyin;
Silinmemesi istediğiniz sayfaların kod bölümüne aşağıdaki kodu ekleyiniz.

Private Sub Worksheet_Activate()

ThisWorkbook.Protect "şifre"

End Sub


Private Sub Worksheet_Deactivate()

ThisWorkbook.Unprotect "şifre"

End Sub

 

[spacebar]

üstad süper çalışıyor. ellerinize sağlık. teşekkür ederim. sağlıklı günler dilerim...