Mevcut sayfalar dışında yeni sayfa eklenmesin

Katılım
27 Haziran 2010
Mesajlar
394
Excel Vers. ve Dili
Türkçe 2010 Ofis
Selamlar arkadaşlar, bir Excel kitabına sayfa eklenmesini kısıtlamak veya mevcut olanlarla sabit kalmasını yani sayfa eklenmemesini sağlamak mümkün mü.
Aslında öğrenmek istediğim şu; Userformla çalışan 2 kullanıcıdan biri kendi uf da çalışırken yeni bir sayfa açarak, makroları sağ tıkla vb.bir butona atayabilir mi?Yapabilir ise sıkıntı olmaz mı, bunu yapamaması için ne yapılabilir.Teşekkürler arkadaşlar.
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,165
Excel Vers. ve Dili
2019 Türkçe
Merhaba.

Sayfa ekleme ve silme kısıtlaması ile diğer söyledikleriniz arasında nasıl bir bağlantı var anlayamadım.

Sayfa Ekleme ve silme engellemek için "Gözden Geçir" sekmesinde bulunan "Çalışma Kitabını Koru" seçerek engelleyebilirsiniz.

Diğer sorunuzu daha açık ifade ederseniz iyi olur pek bir şey anlamadım.
 
Katılım
27 Haziran 2010
Mesajlar
394
Excel Vers. ve Dili
Türkçe 2010 Ofis
Selamlar hocam, bağlantı şu, korumalı sayfalarda makro çalıştıramayan biri yeni sayfa ve buton ekleyip butona da makro atarsa bu güvenliği aşabilir,
Acaba bunu engellemek mümkün mü değil ise sayfa ekletmeyerek bunun önlemini almak istiyorum telefondan yazdığım için kısa bir açıklama oldu affola hocam.
 

Muzaffer Ali

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,165
Excel Vers. ve Dili
2019 Türkçe
Amacınız dosyanıza kod eklenmesini engellemekse VBA koruması yapabilirsiniz.

VBA açın Tools / VBAProject Properties seçin
Açılan pencerede Prorection seçin Lock ... ... İşaretleyin. Aşağıdaki boş kutulara şifrenizi yazın.
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,642
Excel Vers. ve Dili
Pro Plus 2021
BuÇalışmaKitabı (ThisWorkbook) kod bölümüne yapıştırın. Sayfa1 ve Sayfa2 haricinde sayfa oluşturulmaması lazım.
Kod:
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Application.DisplayAlerts = False
    Sh.Delete
    Application.DisplayAlerts = True
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Select Case Sh.Name
        Case "Sayfa1", "Sayfa2"
        Case Else
            Application.DisplayAlerts = False
            Sh.Delete
            Application.DisplayAlerts = True
    End Select
End Sub
 
Katılım
27 Haziran 2010
Mesajlar
394
Excel Vers. ve Dili
Türkçe 2010 Ofis
Muzaffer Ali hocam sorunum VBA şifrelemek değil, yardımın için teşekkürler hocam.
 
Katılım
27 Haziran 2010
Mesajlar
394
Excel Vers. ve Dili
Türkçe 2010 Ofis
Veysel Emre hocam deneyeceğim teşekkür ediyorum
 
Üst