SEÇENEKLER MENÜSÜNÜ PASİF VE AKTİF YAPMAK

[ahm11]

SEÇENEKLER MENÜSÜNÜ PASÝF VE AKTÝF YAPMAK

Araçlar menüsünde bulunan seçenekler alt menüsünü pasif ve aktif yapan macro nasıl yazılabilir.

teşekkür ederim.

 

[Levent Menteşoğlu]

Eğer seçenekleri kaldırmak istiyorsanız,şu şekilde deneyin.
Görünüm-araç çubukları-özelleştiri tıklayın daha sonra excelin en üst sırasında bulunan araçlar menüsünden seçenekleri mouseniz ile tutun ve sayfanın ortasına doğru sürükleyin. Seçenekler in kaldırıldığını göreceksiniz.

 

[ahm11]

Üstadım, amacım seçenekleri kaldırmak değil;
İş yerindeki çaliştığım bilgisayarda seçenekler pasif durumda olduğundan herhangi bir işlem yapamıyorum.Bu nedenle aktif hale getirmek istiyorum.

 

[danersin]

[vb:1:aed837f8a4]Application.CommandBars("Worksheet MenuBar").Controls("Tools").Controls("Options...").Enabled = True[/vb:1:aed837f8a4]

True yerine False yaparak tekrar eski haline ggetiebilirsiniz.

 

[danersin]

Tabi türkçe ise exceliniz şu değişiklikleri yapın.

"Worksheet MenuBar" > "Çalışma Sayfasi Menü Çubuğu" > yada tırnak olmadan 1

Tool > Araçlar >Yada kaçıncı sırada ise sayın

"Options..." > "Seçenekler..." > yada kaçıncı sırada ise sayın.

 

[Haluk]

Türkçe veya İngilizce Office için alternatif:

[vb:1:5f02b819c7]Sub DisableToolsOptions()
CommandBars.FindControl(ID:=522).Enabled = False
End Sub
'
Sub EnableToolsOptions()
CommandBars.FindControl(ID:=522).Enabled = True
End Sub
[/vb:1:5f02b819c7]

 

[ahm11]

Sayın,Denersin ve Raider vermiş olduğunuz bilgiler için teşekkür ederim.
Vemiş olduğunuz kodlar evdeki bilgisayarda çalıştı ise de işyerindeki bilgisayarda çalışmadı.Sanırım sistem yöneticisi farklı bir yolla kısıtlama yapmış.
Tekrar teşekkürler...

 

[ahmtcn19]

Selamlar sayın excel üstadları.Benim sorunum Araçlar menüsü pasif

Selamlar sayın excel üstadları.
Benim sorunum Excel deki bir çalışma dosyasında, Araçlar menüsü pasif, Bunu nasıl aktif hale getirebirim.Birde Biçim menüsünde sayfa da ''göster '' i nasıl aktif hale getirebilirim. Acil yardım gerekiyor. Yardımlarınız için şimdiden teşekkürler.

 

[VahitM]

Seçenekler menüsünü pasif etmek istediğimde
Sub DisableToolsOptions()
CommandBars.FindControl(ID:=522).Enabled = False
End Sub
'
Sub EnableToolsOptions()
CommandBars.FindControl(ID:=522).Enabled = True
End Sub

Modüle ekledim ama sonuç alamadım yardımcı olurmusunuz

Saygılar

 

[cems]

Bu çalışır hale getirme , modüldeki dosyayı kapatma tuşu altındaki kodlara ya da açmak istediğiniz bölüme ait kodların başında

 call EnableToolsOptions

ekleyerek düzelebilir, deneyiniz.