Sayfalar arası geçişi tamamen engellemek

[masumturk]

Arkadaşlar excelde acemiyim.Excel 2007 kullanıyorum..Benim istediğim bir sayfadan diğerine geçme olayını engellemek. Kullanıcının sadece ilk açılan sayfada kalmasını istiyorum..Sayfa sekmelerini kaldırdım ama excelden anlayanlar Ctrl+PageUP ya da Ctrl+PageDown tuş kombinasyonlarıyla sayfalar arasında gezebiliyor.Ben bunu istemiyorum..Kullanıcının sadece ilk açılan sayfayı görmesini istiyorum..Birde forumda arkadaşlar sayfa kodlarından bahsetmiş..Benim sorunum kod marifetiyle çözülecekse o kodları nereye yazacağımı da lütfen belirtin..Naparsın cehalet zor iş ama öğrencem inşallah bu exceli..

 

[Skorpiyon]

Sayın masumturk,

Ben 2003 kullanıyorum. 2007'de çalışıp çalışmayacağı konusunda birşey diyemiyeceğim. (2003'te çalışıyor)

Aşağıdaki kodları bir deneyiniz.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "Sayfa1" Then
Sheets("Sayfa1").Select
End If
End Sub

 

[nadirornek]

Kod g&#252;zel &#231;al&#305;&#351;&#305;yor te&#351;ekk&#252;rler

 

[Zeki Gürsoy]

Tu&#351; kombinasyonlar&#305; i&#231;in &#351;unlar&#305; deneyin..
Bo&#351; bir module yap&#305;&#351;t&#305;r&#305;n.

Sub Locked()
    Application.OnKey "^{PGDN}", ""
    Application.OnKey "^{PGUP}", ""
End Sub

Sub reset()
    Application.OnKey "^{PGDN}"
    Application.OnKey "^{PGUP}"
End Sub