SEÇENEKLER Sayfasının Komutla kapatılması !

[ERMAN SAYINALP]

Merhabalar,

Bildiğiniz üzere, EXCEL > Dosya > Seçenekler, sayfasından Excel'e ilişkin hemen her türlü İzin verme, İzni Kaldırma, Ayarı değiştirme, vs. işlemleri yapılabilmektedir. Diğer taraftan, yapılan ayarların, formullerin, biçimlerin vs. bozulmaması için Çalışma Sayfası Kilitlenip, Parola/Parolasız Koruma altına alınmaktadır. İlave olarak da yapılan Makroların, değiştirilmemesi için VBA Sayfası da Parola ile kapatılabilmektedir.

Ancak, bazen tüm bunlar bile bazı ayarların EXCEL > Dosya > Seçenekler marifetiyle değiştirilmesine engel değildir. Örneğin, "Sayfa Sekmelerini Göster" işlevi, Komutla Pasif hale getirilse bile, EXCEL > Dosya > Seçenekler'den, bir başka kullanıcı tarafından Aktif hale getirilebilmektedir.

Özetle, arzu ettiğim şey, EXCEL > Dosya > Seçenekler'in Komutla kapatılarak, kullanılmasının engellenmesine yöneliktir.

Yardımlarınızı rica ederim.

 

[turist]

Boş bir Excel dosyasında aşağıdaki kodları bir Module'e yazıp deneyin.

Sub KAPAT()
    On Error Resume Next
        With Application
           .DisplayFullScreen = True
        End With
    On Error GoTo 0
End Sub

Sub AC()
    On Error Resume Next
        With Application
           .DisplayFullScreen = False
        End With
    On Error GoTo 0
End Sub

 

[ERMAN SAYINALP]

Maalesef bu çözüm olmadı, zira ESCAPE ile çıkılabiliyor. Yani SEÇENEKLER'e ulaşmak mümkün. Oysa, hiçbir şartta, SEÇENEKLER sayfasına ulaşılamaması gerekiyor.

Öte yandan, yazdığınız kodlama TAM EKRAN yapmaya yönelik. Bu kadar uzun kodlama yerine,

Application.DisplayFullScreen = True

kodlaması da aynı işi yapmaktadır.

 

[turist]

With Application
.DisplayFullScreen = True
.OnKey "{ESC}", ""
End With

ile deneyin.

 

[ERMAN SAYINALP]

With Application
.DisplayFullScreen = True
.OnKey "{ESC}", ""
End With

ile deneyin.

Şimdi oldu, çok teşekkür ederim.

 

[turist]

Sağ olun, kolay gelsin.