Shift+F11 de sayfa eklemesin

[gcanlar2012]

Merhabalar,
Benim yapmış olduğum çalışmada 10 sayfa var.10 sayfadan sonra başka sayfa eklenmesini istemiyorum.Bununla İlgili olarak forumdan bulduğum kodlar işime yarıyor ama sonradan öğrendiğim bir sayfa ekleme kısayolu daha varmış bunu nasıl iptal edemiliriz.Yardımlarınızdan dolayı şimdiden Teşekkür ederim.


Sub sayfaekleme()
CommandBars(1).Controls(4). _
Controls(4).Enabled = False
Application.CommandBars.FindControl(ID:=945).Enabled = False
End Sub

 

[hamitcan]

This Workbook kısmına ekleyin.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
 Application.DisplayAlerts = False
    MsgBox "Daha fazla sayfa ekleyemezsiniz", vbInformation
    Sh.Delete
 Application.DisplayAlerts = True
End Sub

 

[gcanlar2012]

Sn Hamitcan Çok Teşekkür ederim.Çok işme yaradı çok sağolun.