Sayfa Taşı veya kopyala engellemesini geri almak

[ceycey72]

Selamlar
Aşağıdaki kodu kullanarak Sayfa Taşı veya Kopyala özelliğini devre dışı bırakmıştım

Kod:
For Each Ctrl In Application.CommandBars.FindControls(ID:=848) 'Move or Copy Sheet
Ctrl.Enabled = MyBoolean
Next Ctrl

bu kodun tam tersini yapacak, yani Sayfa Taşı Veya Kopyala özelliğini aktif hale getiren kodu nasıl yazabilirim ?

Yardımcı olabilecek arkadaşlara şimdiden teşekkürler..

 

[Recep İpek]

MyBoolean yerine False yazarak deneyebilirmisiniz?

 

[ceycey72]

denedim fakat olmadı

engellemeyi kaldırabilen şu şekilde bir kod buldum :

Application.CommandBars("Worksheet Menu Bar"). _
Controls(2).Controls("Sayfayı Taşı veya Kopyala...").Enabled = True

ancak bu kod taşı veya kopyala özelliğini sadece menüden aktif hale getirebiliyor (düzen menüsünden)

sayfa sekmesine sağ tıkladığımda bu özellik halen aktif değil

 

[ceycey72]

.

sevgili ripek

false değilde true yapınca düzeldi.

yardımın için çok teşekkür ederim.