Butonla menü gizle ve göster

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim küçük video ile göstermeye çalıştım.

Excel sayfama bir buton ekleyerek butona bastığımda üst menü kısmı basitçe gizlenecek, başka butona bastığımı da menüyü göstermek istiyorum.

Makro kaydet ile yapmaya çalıştım, olmadı.
Benim istediğimi Ctrl+F1 benim istediğimi yapıyor ancak bunu da makroya alamadım.

http://dosya.co/7owin5y84dzx/Örnek.rar.html


Forumda değişik birçok kod buldum ancak benim istediğim gibi değil. Bu kodlardan bir tanesi aşağıda.

Sub Gizle()
    Application.DisplayFullScreen = True
    Application.CommandBars("Full Screen").Visible = False
    Application.CommandBars("Formatting").Visible = False
    Application.CommandBars("Standard").Visible = False
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayOutline = False
    ActiveWindow.DisplayZeros = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    ActiveWindow.DisplayWorkbookTabs = False
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
    ActiveWindow.DisplayHeadings = False
    End Sub

Sub Göster()
    Application.DisplayFullScreen = False
    Application.CommandBars("Full Screen").Visible = False
    Application.CommandBars("Formatting").Visible = Trueu
    Application.CommandBars("Standard").Visible = True
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayOutline = True
    ActiveWindow.DisplayZeros = True
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
    ActiveWindow.DisplayWorkbookTabs = True
    Application.DisplayFormulaBar = True
    Application.DisplayStatusBar = True
    ActiveWindow.DisplayHeadings = True
End Sub

 

[ASLAN7410]

Sayın yönetici arkadaşlar konu günceldir.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kodlar işinizi görmez mi?
.

[B][COLOR="Blue"]Sub TAMEKRAN()[/COLOR][/B]
    Application.DisplayFullScreen = [COLOR="Blue"]True[/COLOR]
[B][COLOR="Blue"]End Sub[/COLOR]


[COLOR="Red"]Sub TAMEKRAN_İPTAL[/COLOR]()[/B]
    Application.DisplayFullScreen = [COLOR="Red"]False[/COLOR]
[B][COLOR="Red"]End Sub[/COLOR][/B]

 

[ASLAN7410]

Sayın Ömer Bey ilginize çok teşekkür ediyorum, kodlar için çok teşekkür ediyorum.

Sizin gönderdiğiniz kodlar Ekran Alıntısı1'deki gibi yapıyor.
Benim yapmak istediğimde Ekran Alıntısı2'deki gibi yapmak istemiştim.

Bu şekilde olur mu?

Makro kaydet ile yapmaya çalıştım, olmadı.
Benim istediğimi Ctrl+F1 benim istediğimi yapıyor ancak bunu da makroya alamadım.
.

 

[Ömer]

Merhaba,

İstediğiniz Ctrl+F1 ise aşağıdaki komut ile yapabilirsiniz.

SendKeys "^{F1}"

.

 

[ASLAN7410]

Sayın Ömer Bey ilginiz için çok teşekkür ederim.

Bu kodu nasıl ve şekilde yazmam gerekiyor.

Aşağıdaki gibi yazdım olmadı. Bir örnek gönderebilir misiniz?

Sub Gizle()
SendKeys "^{F1}"
End Sub

 

[Ömer]

Denedim istediğinizi yapıyor. (Yani ctrl f1 ile istediğinizi yapıyor)
Kodları module ekleyin ve botuna bağlayıp çalıştırın.

 

[ASLAN7410]

Sayın Ömer Bey çok teşekkür ederim, aradığım buydu.

Hayırlı çalışmalar hayırlı geceler diliyorum.

 

[ASLAN7410]

Sayın Ömer Bey tekrar rahatsız ediyorum kusura bakmayın.

Kod gerçekten çok işime yarıyor. Ben bu kodu başka bir program içerisine ekledim gayet güzel çalışıyor.
Ancak şöyle bir şey çıkıyor, sayfanın menüsü açıksa gizliyor, tekrar butona bastığımda gizli olan menüyü açıyor.

Yapmak istediğim butona bastığımda eğer menü açıksa gizlesin, kapalı ise kapalı kalsın istiyorum.

 

[Ömer]

Bu şekilde deneyin.

Sub Gizle()
    
    If Application.CommandBars("Ribbon").Height > 60 Then
        SendKeys "^{F1}"
    End If
    
End Sub

.

 

[ASLAN7410]

Sayın Ömer Bey yine aynısını yapıyor.

Butona bastığımda eğer menü açıksa gizlesin,
menü kapalı ise kapalı kalsın istiyorum.

 

[ASLAN7410]

Sayın Ömer Bey aşağıdaki gibi değiştirince oldu. Çok teşekkür ediyorum.
Hayırlı geceler hayırlı çalışmalar.

Sub Gizle()
    If Application.CommandBars("Ribbon").Height > 90 Then
        SendKeys "^{F1}"
    End If
End Sub