Excelde Sağ Tuşu Engelleme

Bu şablon, Excel çalışma sayfasında sağ tuşla açılan kısayol menüsünü engellemek için hazırlanmış küçük bir makro örneğidir. Sağ tık kapatıldığı gibi klavyedeki Shift+F10 kısayolu da devre dışı bırakılır; her iki durumda kullanıcıya bir uyarı mesajı gösterilir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar etkinleştirilmezse engelleme çalışmaz.

Dosyanın içeriği​

• Sheet1: Boş bir sayfadır, hücrelerde veri veya formül yoktur. Sağ tık engeli bu sayfaya tanımlıdır.
• ThisWorkbook: Dosya açılırken ve kapanırken çalışan olay kodlarını içerir.
• Module1: Shift+F10 tuşunu yöneten üç makro bulunur.

Makrolar​

• Worksheet_BeforeRightClick (Sheet1): Sayfada sağ tuşa basıldığında menünün açılmasını iptal eder ve "Kısayol Menüsü Kullanılamaz." mesajını gösterir. Kendiliğinden çalışır.
• Workbook_Open: Dosya açıldığında SetupNoShiftF10 makrosunu çağırır.
• SetupNoShiftF10: Application.OnKey ile Shift+F10 tuşunu NoShiftF10 makrosuna yönlendirir.
• NoShiftF10: Shift+F10 basıldığında menü yerine bir bilgi mesajı gösterir.
• Workbook_BeforeClose: Dosya kapanırken TurnOffNoShiftF10 makrosunu çağırır.
• TurnOffNoShiftF10: Shift+F10 tuşunu varsayılan işlevine döndürür; böylece diğer dosyalarda bu tuş normal çalışır.

Kodda dosya silme, dışarıya bağlantı veya benzeri zararlı bir işlem yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sheet1 üzerinde herhangi bir hücrede sağ tuşa basarak engeli deneyin.
3. Shift+F10 tuşunu deneyin; bilgi mesajı görüntülenir.
4. Aynı engeli kendi dosyanıza uygulamak için Sheet1 sayfasındaki olay kodunu ilgili sayfanın koduna, Module1 ve ThisWorkbook kodlarını kendi dosyanızdaki aynı yerlere aktarın.

Engel yalnızca Sheet1 için tanımlıdır; başka sayfalarda sağ tık menüsü açılmaya devam eder. Diğer sayfalar için aynı olay kodu o sayfanın koduna eklenir.