Menülerin Gizlenmesi...

[yağızbaba]

Metin hocamın vermiş olduğu aşağıdaki kodları makro olarak (?) kaydediyorum ama çalışmıyor.Yani menüleri gizleyemiyorum.Yardımcı olursanız sevinirim.


"""....

Sub Makro1()
Application.CommandBars("Worksheet Menu Bar").Visible = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
End Sub

"""....

 

[Ömer]

Merhaba,

Sub Gizle()
Application.ScreenUpdating = False
Application.DisplayFormulaBar = False
    For i = 1 To Application.CommandBars.Count
        Application.CommandBars(i).Enabled = False
    Next i
Application.DisplayFormulaBar = True
Application.ScreenUpdating = True
End Sub

Bu şekilde deneyiniz..

.

 

[vivaayew_ts]

http://www.excel.web.tr/showthread.php?p=136047
Yalnız linkteki dosya indirilmiyor. Eski tarihli olduğu için silinmiş. Elimde de yok ama oradaki kodlar işinizi görür.

Bende aynı soruyu sormuştum burdan sonuç aldım.

 

[yağızbaba]

Ustam olmadı bu kodu düğme açıp makro olarak kaydediyorum ama çalışmıyor..

 

[security]

9.nolu mesajda güncelledim...

 

[yağızbaba]

Kodu ekledim çalışma sayfasını kaydettim.yeniden açtım hiç bir değişme olmadı..Ben 2007 kullanıyorum farkedermi acaba menü olayları..

 

[security]

9.nolu mesajda güncelledim...

 

[yağızbaba]

Ben menü gizleme kodunu çalıştırmak istiyorum yani sadece bir çalışma kitabındaki menüleri gizlemek .teşekkür ederim.

 

[security]

Ekli Dosyayı Deneyiniz...