Sayfa Sekmeleri Menüsünde Bazı Komutlar Pasif

[dumanibo]

Hernasılsa Excel'de alttaki çalışma sayfaları sekmeleri üzerine sağ fare tıklamasıyla çıkan menüde Sil ve Yeniden Adlandır komutları pasif oldu. Bu durumu nasıl düzeltebilirim?

 

[htsumer]

Bunu bir deneyin.
Application.CommandBars.FindControl(ID:=847).Enabled = True
Application.CommandBars.FindControl(ID:=889).Enabled = True

 

[hasan.doru]

merhaba sayın dumanibo
daha önce aynı sorun bende de olmuştu.aşağıdaki makro ile düzeldi.makroyu forumdan aratarak bulmuştum. kolay gelsin.sonucu bildirirseniz memnun olurum.(olumlu veya olumsuz)
Sub Gorunum_Arac_Cubuklari_Reset()
Dim Cmbr As CommandBar
For Each Cmbr In Application.CommandBars
On Error Resume Next
Cmbr.Reset
Next Cmbr
End Sub

 

[dumanibo]

Teşekkürler arkadaşlar. Sorun halledilmiştir. Kodlar işe yarıyormuş

 

[AYHAN55]

kardeşlerim merhaba..bende de aynı sorun oldu yalnız ben halledemedim..Yardım etme şansınız varmı..

 

[antonio]

kardeşlerim merhaba..bende de aynı sorun oldu yalnız ben halledemedim..Yardım etme şansınız varmı..

Merhaba,
Adım adım aşağıdaki yönergeyi izleyiniz.
1-Excel sayfasını açın.
2-Kod penceresini açın. Bunun için aşağıdaki seçeneklerden biri ile yapabilirsiniz:
a) Alt tuşunu basılı tutarak F11 e basmak suretiyle,
b) Sayfanın sekmesine sağ tık >> "Kod görüntüle" seçeneğine tıklamak suretiyle.
3- Açılan Kod penceresine, size sunulan kodları aşağıdaki şekliyle yapıştırınız:

Sub menuleri_aktiflestir()
    Application.CommandBars.FindControl(ID:=847).Enabl ed = True
    Application.CommandBars.FindControl(ID:=889).Enabl ed = True
End Sub

4- Farenin imlecini Sub ile end sub arasında bir yerde iken (Kodların herhangi bir yerinde iken), F5 tuşuna basınız.
Böylece kodlarınız çalışmış olacaktır.