menüleri silme

[MOONROSE]

merhaba,aşağıdaki kodlar ingilizce ofiste çalışıyor fakat türkçe ofiste tam olarak çalışmıyor.Þöyle ki ilk 4 menüyü siliyor diğerleri kalıyor.
Alternatif kod vermeniz mümkünmü?ID nolarıyla nasıl düzenleyebilirim.
Acil cevap verebilirseniz çok sevinirim.

With MenuBars(xlWorksheet)
.Menus("File").Delete
.Menus("Edit").Delete
.Menus("View").Delete
.Menus("Insert").Delete
.Menus("Format").Delete
.Menus("Tools").Delete
.Menus("Data").Delete
.Menus("Window").Delete
.Menus("Help").Delete


End With

 

[nziya]

Kodunuzun başına On Error Resume Next ilave ediniz

 

[Merhum İdris SERDAR]

Aradığınız öyle bir şey mi?

 

[MOONROSE]

Merhaba,
işime yaradı gibi en azından format.delete satırındaki hatayı atlattım ama Format yani biçim menüsü neden hala silinmiyor?nasıl silebilirim

 

[nziya]

Bir dosya eklermisiniz

 

[MOONROSE]

Dosya ektedir.

Ayrıca 2.sorum olacak.onu da sheet 1.e yapıştırdım. Yardımınız için çok teşekkür edrim

 

[MOONROSE]

Dosya eklenmemiş.

 

[nziya]

yanıt

Hata giderildi sayfada sağ tuş engellendi

 

[MOONROSE]

çok teşekkürler.sayfadaki sağ klik olayı iptal olmuş ama asayfa üstündeyken sağ tıkladığımda araç çubuklarını görebiliyorum (standart,formatting v.b.).sağ klik yaptığımda onların pasif görünmesini nasıl sağlarım