Adı Olmayan ve Seçilemeyen Araç çubuğu??

[dEdE]

Merhaba,
Forumda araç çubukları ile ilgili soru soran bir arkadaşı yanıtlarken farkına vardım.
Resimde görüldüğü gibi, araç çubukları arasında biri varki;Aktif yapılamıyor ve silinemiyor. Adı da yok. Belki orjinal haline döner diye Sıfırla dedim ama bir şey değişmedi.

Bu ne ne olabilir?

 

[AS3434]

Aynı boş kutucuk bende de var. Bir süre önce epey bir uğraştım. Ama bir türlü yok edemedim. Tahminim, indirmiş olduğumuz bir programdan kaynaklanıyor. Programı silmeme rağmen, boş kutu kaldı gibi. Excel Yardımdan Algıla ,Onar dedim değişen birşey olmadı.

 

[Necdet]

Merak ettim bende de var, demekki aynı dosyayı indirmişiz

 

[dEdE]

Bu forum dışında başka hiçbir yerden excel dosyası indirmiyorum!!!!
Acaba hangi dosya??? Onu bulabilirsek kodlarını inceleme imkanımız olur.
Yosa bu -daha önceden farkına varmadığımız- excel-2003 e ait bir özellik mi ?

 

[AS3434]

Tahminim, indirmiş olduğumuz bir programdan kaynaklanıyor.

Yanlış yönlendirmiş olmayayım.

Yosa bu -daha önceden farkına varmadığımız- excel-2003 e ait bir özellik mi ?

Belki böyle birşeydir !?

 

[Necdet]

Aşağıdaki kod ile menu çubuklarını listeleyebiliyoruz

Public Sub Menu_Cubuklarini_Goster()
For i = 1 To CommandBars.Count
    Cells(i, 1) = CommandBars(i).Name
    Cells(i, 2) = CommandBars(i).NameLocal
    Cells(i, 3) = CommandBars(i).Index
Next
End Sub

Boş olan menü çubuğunun sıra numarası (index) bende 122
aşağıdaki kodlarla silmeye çalıştım ama silmedi. Kendi eklediğim bir çubuğun index numarasıyla silmeme izin verdi.

Sonuçta anlamadım

Silmek için :

Public Sub Bos_Menu_Cubugu_Sil()
Application.CommandBars([COLOR=red][B]122[/B][/COLOR]).Delete
End Sub

 

[dEdE]

Sayın Yesertener,
Kod lar için teşekkürler. Bende de 122 nolu araç çubuğu ve silinmiyor.
Dikkat edilirse;Özelleştir penceresinde SİL tuşu aktif hale gelmiyor.
Bu önemli bence. Kendi oluşturduğumuz araç çubuğu seçilince SİL tuşu aktif oluyor ama bunda olmuyor.
Sanki sisteme (excel) ait bir araç çubuğu gibi duruyor.

Excel-2003 kullanan arkadaşların tümünde durum böyle mi acaba.
Bekleyip göreceğiz. Sanırım pazartesi günü herkes burada olur.
Saygılar.

 

[İdris SERDAR]

Bende yok. Yani Excel 2003'e ait bir özellik değil.

122 Built-in Menus - Yerleşik Menüler'e ait

Eklemeye çalışın.


.

 

[Seyit Tiken]

Aktif ediliyor mu, edilmiyor mu? bilmiyorum ama, aktif ediliyorsa; o menüye isim verilip silme işlemi olur mu acaba?

 

[Levent Menteşoğlu]

Bendede mevcut, benimde ilk defa dikkatimi çekti, bence excele ait bir özellik, yüklenen bir eklentiden kaynaklanıyor olabilir.

 

[Necdet]

VBA nın yardımıyla bulduğum kodlar ile, bu boş araç çubuğunu ortaya çıkartmaya çalıştım.

Public Sub Goster()
foundFlag = False
For Each cb In CommandBars
    If cb.Name = " " Then
        cb.Protection = False
        cb.Visible = True
        foundFlag = True
    End If
Next cb
End Sub

Fakat hala silmeyi başaramadım

 

[kombo]

Ben de siteden ve internetten epey bir eklenti indiriyorum. Çoğunu da kullanmıyorum ve siliyorum. Şu anda 4 eklentim var ve buradan indirdim.
Aynı boş kutu bende de var.

Sayın Necdet_Yesertener'in yazdığı kodları uyguladım, bende 127. sırada boş bir menü çubuğu gözüküyor.
Ortaya da çıkarttım fakat bende silemedim.

EKLEME: Bazı şeyleri sildim, sıra nosu 123'e düştü.

 

[Seyit Tiken]

Bende öyle bir sorun yok. Aslında olma ihtimali yüksek; ama, Deep Freeze programı C'de kurulu olduğu için, bir şekilde paçayı kurtarıyoruz.

 

[enteresan]

Bende de var ve Sayın Necdet hocamın tarifi ile silmeye çalıştığımda silinmedi. İnşallah sisteme zararı yoktur.

 

[Levent Menteşoğlu]

Arkadaşlar telaş etmeye gerek yok bu excelin kendi araç çubuğu ama ne işe yaradığını bilmiyorum. Aşağıdaki kod ile bu kutuyu kaldırabilirsiniz. Excelin kendi araç çubuklarını silemez ancak kaldırabilirsiniz. Silme işlemi ancak dışarıdan eklenen veya kendi oluşturduğunuz araç çubukları için geçerlidir.

Not: eğer kendi excelinizde index, 122 ise kod içinde 123 yerine 122 kullanın.

Application.CommandBars(123).Enabled = False

Bir ek bilgi daha vereyim. Eğer aşağıdaki komutta sonuç true çıkıyorsa o araç çubuğu excelindir. Bunu bir özel araç çubuğu ekleyerek test edebilirsiniz.

msgbox Application.CommandBars(123).BuiltIn

yada aşağıdaki kodu bir boş excel sayfasında çalıştırarak araç çubukları listesini elde edebilirsiniz.

Sub listele()
On Error Resume Next
For a = 1 To Application.CommandBars.Count
c = c + 1
Cells(c, "a") = Application.CommandBars(a).Name
Cells(c, "b") = Application.CommandBars(a).Index
Cells(c, "c") = Application.CommandBars(a).BuiltIn
Next
End Sub

 

[Necdet]

Geçenlerde bir dosyayı incelerken bu araç çubuğu dikkatimi çekti ama üzerinde durmamıştım. Sonra yok olduğunu sanmıştım ama bu konu açılınca karşıma çıktı.

Sayın Levent Bey'in önerileriyle Excel tarafından görünmemesine rağmen, listele makrosunda yine çıkıyor, yani tam olarak silemedik henüz, en azında bende durum bu

Araç çubuklarının değişik özelliklerini listeleyen dosya üzerinde çalışmıştım, yayınlayım.

Public Sub CommandBars_Liste()
Dim c As CommandBar
Dim i As Long
[A3:G2000].ClearContents
i = 2
For Each c In Application.CommandBars
    i = i + 1
    Cells(i, 1) = c.Index
    Cells(i, 2) = c.Enabled
    Cells(i, 3) = c.Visible
    Cells(i, 4) = c.Type
    Cells(i, 5) = c.Name
    Cells(i, 6) = c.BuiltIn
    Cells(i, 7) = c.Position
Next c
End Sub

 

[kombo]

Sayın Levent Bey'in önerileriyle Excel tarafından görünmemesine rağmen, listele makrosunda yine çıkıyor, yani tam olarak silemedik henüz, en azında bende durum bu

Bende de durum aynı.