Araç Çubuklarının Tamamı ile iptal etmek

[isarican]

ARkadaşlar bu makro kodunu kulandığımda iştediğim sonuca ulaşıyorum.

Sub auto_open()
'
' Makro3 Makro
' Makro x tarafından 26.08.2007 tarihinde kaydedildi.
'

'
    Application.CommandBars("Standard").Visible = False
    Application.CommandBars("Formatting").Visible = False
    Application.CommandBars("Drawing").Visible = False
    Application.CommandBars("Task Pane").Visible = False
End Sub

ANcak Ana araç çubugu olan(dosya-düzen-görünüm vb.) saklayamadığımdan kullanıcı araclar/araç çubugundan ilgili araç çubugunu tekrar çıkartabiliyor. Bunu engellenemenin bir yolu vardı sanırım?

 

[Levent Menteşoğlu]

"visible" yerine "enabled" yazın.

 

[Seyit Tiken]

Aynı tuşla Çalışma Sayfası Menü Çubuğunu gizleme/gösterme işlemini gerçekleştirebilirsiniz.

Sub Makro1()
CommandBars("Worksheet Menu Bar").Enabled = CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

 

[Araştırıcı]

Dosya Düzen Menüsünün altındaki tüm bar kayboldu.

İsarican için yapılan uygulamaları kullandım ancak Dosya-Düzen...barının altındaki tüm bar kayboldu ve geri gelmiyor. Aşağıdki makroyu çalıştırmıştım.

Nasıl düzelir dosyalarım. Yeni excel dosyası dahi bu şekilde açılıyor.
Nasıl eski hale dönecek.?

Sub auto_open()
'
' Makro3 Makro
' Makro x tarafından 26.08.2007 tarihinde kaydedildi.
'

'
Application.CommandBars("Standard").Enabled= False
Application.CommandBars("Formatting").Enabled= False
Application.CommandBars("Drawing").Enabled= False
Application.CommandBars("Task Pane").Enabled= False
End Sub

 

[Valuer]

False leri True ile değiştirip deneyin.

 

[isarican]

ARkadaşlar teşekkürler tamamdır. Bütün sorunlarımı çözdügünüz gibi buda çözüldü. Forum iyi geceler...

 

[Ercan_ÇELİKOĞLU]

Verilen kodları

Aynı tuşla Çalışma Sayfası Menü Çubuğunu gizleme/gösterme işlemini gerçekleştirebilirsiniz.

Sub Makro1()
CommandBars("Worksheet Menu Bar").Enabled = CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Kodları modüle koydum olmadı worksheet'e koydum olmadı sayfalara koyuyurum olmuyor benim isteğim araçlar menüsünü ve diğer menüleri gizlemek ama makrolar devre dışı kalsa bile görünmüyecek?

 

[Orion1]

Önce çalışma sayfasına 2 tane buton koyunuz.
Aşağıdaki kodları butona atayınız.

Sub Gizle()
CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub Goster()
CommandBars("Worksheet Menu Bar").Enabled = true
end sub

 

[Ercan_ÇELİKOĞLU]

Sayın Orion2

Önce çalışma sayfasına 2 tane buton koyunuz.
Aşağıdaki kodları butona atayınız.

Sub Gizle()
CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub Goster()
CommandBars("Worksheet Menu Bar").Enabled = true
end sub

Tamamda butonsuz gizlememnin ve exceli açılışta makroları devre dışı bırak desem bile menülerin gözükmemesini sağlamanın en iyi yolu ne zira buton koyduktan sonra gizlemenin anlamı ne?

 

[Ercan_ÇELİKOĞLU]

Tüm menüleri gizlemek

Bakın istediğim şu excel açılışta makroları devre dışı bırak denilse bile programı açan kişi hiç bir şekilde menüleri göremicek bunu butonsuz çözmenin bir yolu yokmu tek bir makro kodu ile ve o kod nereye konulacak lütfen arkadaşlar çok önemli!

 

[Ercan_ÇELİKOĞLU]

Lütfen çözüm yolu gösterin

10 nolu mesajda belirttiğim konuya cevap lütfen arkadaşlar.

 

[Orion1]

Bir modüle aşağıdaki kodları yapıştırınız.

Sub Auto_Open()
CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub Auto_Close()
CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

 

[Ercan_ÇELİKOĞLU]

makroları devre dışı bırak deyince

Bir modüle aşağıdaki kodları yapıştırınız.

Sub Auto_Open()
CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub Auto_Close()
CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

Kodlar açılışta çalışıyor fakat makroları devre dışı bırak deyince yine aynı şey oluyor menü görünüyor devre dışı bıraksa bile görünmemesini sağlamnın yolu yokmu

 

[ocamsul]

Kodlar açılışta çalışıyor fakat makroları devre dışı bırak deyince yine aynı şey oluyor menü görünüyor devre dışı bıraksa bile görünmemesini sağlamnın yolu yokmu

Sn: harbiyiğit meslektaşım. bildiğim kadarıyla excel de bu mümkün değil. zamanında bende epey uğraşmıştım. Ancak en nihayetinde bu menü ve diğer araç çubukları mutlaka bulunabiliyor. belki çalışmanıza sertifika yükleme ile işi biraz zorlaştırabilirsiniz. Yanlışım var ise üsdatlarım düzeltsin lütfen.