Çalışma Kitabı Korumalı İken Sayfa Eklesin Ama Sayfa Silmesin

[baydeniro]

Merhaba arkadaşlar. Çalışma Kitabı Koruma altındayken Yeni Sayfa Eklenebilmesi mümkün olsun ancak mevcut bir sayfanın silinmesinin engellenmesi sağlanabilir mi ? Örnek dosya ekte.

 

[Korhan Ayhan]

Merhaba,

Çalışmanızın ThisWorkbook bölümüne aşağıdaki kodu uygulayın.

Option Explicit
 
Private Sub Workbook_Activate()
    Application.OnKey "+{F11}", "SAYFA_EKLE"
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "+{F11}", ""
End Sub
 
Private Sub Workbook_Deactivate()
    Application.OnKey "+{F11}", ""
End Sub

Boş bir modüle aşağıdaki kodu uygulayın.

Option Explicit
 
Sub SAYFA_EKLE()
    ActiveWorkbook.Unprotect "[COLOR=red]12345[/COLOR]"
    Sheets.Add
    ActiveWorkbook.Protect "[COLOR=red]12345[/COLOR]", Structure:=True, Windows:=False
End Sub

Çalışma kitabı koruması işlemini yapıp dosyanızı kaydedip kapatın. Tekrar açıp SHIFT+F11 tuşuna basın yeni sayfa eklenecektir.

Kırmızı bölümler koruma şifresidir. Kendinize göre değiştirin.

 

[baydeniro]

Çok teşekkür ederim sayın Korhan Ayhan. Harika bir çalışma oldu. Sağlıcakla kalın.

 

[Korhan Ayhan]

Merhaba,

Üstteki mesajımdaki tuş kombinasyonunu SHIFT+F11 olarak değiştirdim. Excelin kendi sayfa ekleme kısayol tuşlarıdır. Bu şekilde daha orjinal oldu.

 

[baydeniro]

Süpersiniz, gerçekten böyle daha da güzel oldu. Elleriniz dert görmesin.