Soru Sayfa Eklemeyi Engellemek

[bulentkars]

Arkadaşlar Merhaba

Excel çalışma kitabında birden fazla sayfalar var. Ben çalışma kitabına sayfa eklemesini makro ile engelleye bilir miyim acaba.
Koruma koyarak yapmak istemiyorum. Çalışma kitabında makrolar sayfa göster ve gizle kodları olduğundan koruma sorun çıkarıyor. Kod ile engellemek mümkün mü aca yardımcı olabilirseniz sevinirim. Şimdiden teşekkürler.

 

[Necdet]

Merhaba,
Aşağıdaki kodları BuÇalışmaKitabı'nın kod bölümüne kopyalayıp deneyiniz.

Private Sub Workbook_NewSheet(ByVal Sh As Object)

    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
        Sh.Delete
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
    MsgBox "Sayfa Ekleme Engellenmiştir....."
   
End Sub

 

[bulentkars]

Necdet Bey Günaydın,

Yurt Dışında olduğumdan ancak test edip dönüş yapabildim. Elinize emeğinize sağlık tam istediğim gibi olmuş