sayfayı aç & gizle

[k0081]

Merhaba arkadaşlar;

' Klavye Kısayolu: Ctrl+e
'
Sheets("Profil ve saclar").Visible = True

profil ve saclar adlı excel sayfasını açan ve aynı tuş kombinasyonu (ctrl+e) ile gizleyen bir kod oluşturulabilirmi?

yardımcı arkadaşa şimdiden teşekkürler..

 

[Murat OSMA]

Module yazıp deneyiniz;

Sub Auto_Open()
    Application.OnKey "^e", "Gizle"
End Sub

Sub Auto_Close()
    Application.OnKey "^e", ""
    Sheets("Profil ve saclar").Visible = True
End Sub

Sub Gizle()
    Sheets("Profil ve saclar").Visible = False
End Sub

 

[k0081]

[QUOTE=Murat OSMA;

murat hocam teşekkürler kod için. ama gizlemeyi ctrl+e ile yapıyor.ok.. fakat açmıyor..

 

[Murat OSMA]

Ctrl + E ile gizleyin - Ctrl + W ile gösterin olmaz mı ?

Sub Auto_Open()
    Application.OnKey "^e", "Gizle"
    Application.OnKey "^w", "Goster"
End Sub

Sub Auto_Close()
    Application.OnKey "^e", ""
    Application.OnKey "^w", ""
End Sub

Sub Gizle()
    Sheets("Sayfa3").Visible = False
End Sub

Sub Goster()
    Sheets("Sayfa3").Visible = True
End Sub

 

[k0081]

Hocam çok teşekkürler.. tabi bu şekilde de olabilir.. ben tek tuşa bağlayabilirmiyiz diye sormuştum.. çok sağolun yardımınız için.. saygılar..

 

[Murat OSMA]

Rica ederim, iyi akşamlar...