Araçlar Menüsünden Koruma Komutunu kaldırma

[gecemavisi]

Saygıdeğer arkadaşlar;
Hepinizi selamlıyorum.
Benim sorum:
"Araçlar" Menüsünün altındaki "KORUMA" kısmı menüsünün "Disable olması laızm. Çalışma kitabı kapandığında ise "Enable" olması lazım. Bu işleminde sadece bu çalışma sayfası için olması lazım. Sizce yapılır mı?
Yardımınız için şimdiden teşekkürler.

 

[Seyit Tiken]

Bu kod belki farklı bir fikir verebilir.

Sub Düğme2_Tıklat()
MenuBars(xlWorksheet).Menus("tools").Enabled = 0
End Sub

 

[Zeki Gürsoy]

Sub auto_open()
Commandbars(1).controls(6).controls(9).enabled=False
End Sub

Sub auto_close()
Commandbars(1).controls(6).controls(9).enabled=True
End Sub

 

[gecemavisi]

Saygıdeğer Arkadaşlar;
İkinize de teşekkürlerimi sunuyorum. Gerçekten çok faydalı oldu.

 

[gecemavisi]

Bir küçük olay kaldı. Mesela auto close makrosu sayfayı kapatma istediğimde çalışıyor ve menüde kaydetmek istiyor musunuz diye sorunca iptale basınca gene tools menüsü görünüyor. Bu olayı sizce nasıl hallederiz.
Saygılar...

 

[sbayyigit]

Sub auto_close()
Commandbars(1).controls(6).controls(9).enabled=True
Workbooks("DOSYA ADI").Save
Application.Quit
End Sub

 

[gecemavisi]

Olmadı ne yazık ki Sn sbayyigit,
farklı bir yöntem yok mu acaba. Kaydetmeden iptale basınca gene araçlar kısmı disable olmalı.

 

[gecemavisi]

Saygıdeğer dostlar,
O olaydan nedense vazgeçtim ama en azından Sadece aktif çalışma kitabım için bu işlem olamaz mı. Diğer çalışma kitablarına bir etkisi olmasın.

Saygılarımla..

 

[gecemavisi]

Arkadaşlar save as komutunu da disable yapmanın bir yolu yok mu acaba,
ama sadece ornek.xls dosyası için mesela. diğerlerinde aktif olacak...