görünüm görec cubugunu pasif yapabilirmiyim?

[mraltin]

arkadaslar
görünüm görec cubugunu pasif yapabilirmiyim
simdiden tsk

 

[bedersu]

Merhaba,
Aşağıdaki kodlar işinizi görecektir:

Sub görünüm_pasif()
MenuBars(xlWorksheet).Menus("View").Enabled = False
End Sub

Sub görünüm_aktif()
MenuBars(xlWorksheet).Menus("View").Enabled = True
End Sub

 

[Haluk]

Merhaba;

Menülerle çalışırken kodun çalıştrılacağı Office versiyonu Türkçe olabilir veya olmayabilir....

Bu durumda en sağlıklı yöntem; menülere "Caption" özelliği ile değil de, "ID" özelliği ile referans vermektir.

CommandBars("Worksheet Menu Bar").FindControl(ID:=30004).Visible = False

 

[bedersu]

merhaba sayın Raider,
Office versiyonu Türkçe ya da farklı bir dilde olabilir demişsiniz.Benim kullandığım Türkçe office 2003.Ama kodlarda Görünüm menüsünü View olarak yani İngilizce olarak verdim ve çalıştı.Nasıl bir problem çıkabilir biraz daha açıklar mısınız?

 

[Haluk]

Merhaba;

Aslında, ben sizin yazdığınız koda çok dikkat etmemişim....

Sanki, aşağıdaki gibi bir şey olduğunu sandım bir an için....

CommandBars("Worksheet Menu Bar").Controls("View").Enabled = False

Sanırım yukarıdaki kodla, siz Türkçe versiyonda hata alırsınız.

Ancak siz, daha değişik bir kod tarzı ile "MenuBars.Menus" uygulamışsınız.

Ve, anlaşılan Türkçe Office için bir problem çıkmıyor.

Deneme şansım olmadığı için ben de bunu sizden öğrenmiş oldum, teşekkürler.

 

[bedersu]

Evet,bu kodlarla değişik dillerde hata verir.Ama kontrollerin İngilizce isimlerini bulamayanlar için faydalı olabilir.Peki sizin verdiğiniz örnekteki kontrol idlerini,yan hücrelerde Türkçeleri olmak kaydı ile nasıl listeleyebiliriz?

 

[Haluk]

Merhaba;

Bu iş için daha önceden hazırladığım ekli dosyaya bakabilirsiniz. Sayfa üzerindeki butona tıklamanız yeterlidir.

Not: Office versiyonunuz Türkçe ise, "Caption" özelliği Türkçe olarak belirecektir.

 

[bedersu]

Yine konuşturmuşsunuz Sayın RAIDER :bravo:

 

[gcanlar2012]

Herkese Selam
Benimde merak ettigim bir seydi bu id ler bir kere sordum.Cevabini ald1m
Birdaha baska id laz1m oldu soramadim.deneyip kendimiz bulal1m diye.Çogunu buldum.Ama bu çalisma varya gerçekten harika bir olay

Sn.Raider Tesekkür ede rim (riz)

Süpersin.

 

[Tarkan VURAL]

Gerçekten harika ve çok işe yarayacak bir çalışma.