Sekme Sayısını Sınırlamak

[em.mehmetaliates]

Hayırlı Sabahlar,

Excel sayfama en fazla 26 adet sekme açılmasını daha fazlasının uyarı vermesini istiyorum.

Böyle bir sınırlama mümkün müdür?

Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Dosyanızı açın.
Kod penceresini açın. (ALT+F11)
Sol taraftan "ThisWorkbook" ya da "BuÇalışmaKitabı" bölümünü bulun.
Bulduğunuz bölüm üzerine çift tıklayın. Sağ tarafa beyaz bir pencere açılacaktır.
Aşağıdaki kodu bu pencereye uygulayın.

Son olarak çalışmanıza yeni sayfa ekleyip denemeler yapın.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim Say As Byte
    Say = ThisWorkbook.Sheets.Count
    If Say > 26 Then
        MsgBox "Sayfa ekleme sınırını aştınız!" & Chr(10) & _
               "Yeni eklenen sayfa silinecektir.", vbCritical, "Uyarı!"
        Application.DisplayAlerts = False
        Sh.Delete
        Application.DisplayAlerts = True
    End If
End Sub

 

[em.mehmetaliates]

Kod çalıştı. Teşekkür ederim.

 

[baydeniro]

Teşekkürler sayın Korhan Ayhan. Satır ve Sütun sayısını sınırlamak için kodu nasıl değiştirmeliyiz !!

 

[Korhan Ayhan]

Forumda ScrollArea ifadesi ile arama yapınız.

 

[ark123]

Merhaba,

Dosyanızı açın.
Kod penceresini açın. (ALT+F11)
Sol taraftan "ThisWorkbook" ya da "BuÇalışmaKitabı" bölümünü bulun.
Bulduğunuz bölüm üzerine çift tıklayın. Sağ tarafa beyaz bir pencere açılacaktır.
Aşağıdaki kodu bu pencereye uygulayın.

Son olarak çalışmanıza yeni sayfa ekleyip denemeler yapın.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim Say As Byte
    Say = ThisWorkbook.Sheets.Count
    If Say > 26 Then
        MsgBox "Sayfa ekleme sınırını aştınız!" & Chr(10) & _
               "Yeni eklenen sayfa silinecektir.", vbCritical, "Uyarı!"
        Application.DisplayAlerts = False
        Sh.Delete
        Application.DisplayAlerts = True
    End If
End Sub

Korhan bey teşekkür ederim. ilaç gibi geldi