Kaybolan Menüler

[Emsdmr]

selamün aleyküm üstadlar kandiliniz mübarek olsun.

excelde bulunan menülerimin tümü kayboldu ve macro güvenlik seviyesi en üst düzeyde bu yüzden kodlarım aktif olmuyor ve menülerde olmadığı için güvenlik seviyesini düşüremiyorum. tam olarak ne yapmalıyım yardımcı olurmusunuz lütfen.

Private Sub workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Enabled = True
  Application.CommandBars("Visual Basic").Enabled = True
  Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Standard").Enabled = True
    Application.CommandBars("Formatting").Enabled = True
    Application.CommandBars("3-D Settings").Enabled = True
       Application.CommandBars("Drawing").Enabled = True
    Application.CommandBars("Drawing Canvas").Enabled = True
    Application.CommandBars("Control Toolbox").Enabled = True
    Application.CommandBars("External Data").Enabled = True
    Application.CommandBars("Diagram").Enabled = True
    Application.CommandBars("Circular Reference").Enabled = True
    Application.CommandBars("Forms").Enabled = True
    Application.CommandBars("Formula Auditing").Enabled = True
    Application.CommandBars("Shadow Settings").Enabled = True
    Application.CommandBars("Watch Window").Enabled = True
    Application.CommandBars("Chart").Enabled = True
    Application.CommandBars("Reviewing").Enabled = True
    Application.CommandBars("Stop Recording").Enabled = True
    Application.CommandBars("Borders").Enabled = True
    Application.CommandBars("Protection").Enabled = True
    Application.CommandBars("Organization Chart").Enabled = True
    Application.CommandBars("List").Enabled = True
    Application.CommandBars("Text To Speech").Enabled = True
    Application.CommandBars("PivotTable").Enabled = True
    Application.CommandBars("Picture").Enabled = True
    Application.CommandBars("Exit Design Mode").Enabled = True
    Application.CommandBars("Visual Basic").Visible = True
    Application.CommandBars("Web").Enabled = True
    Application.CommandBars("WordArt").Enabled = True
    Application.CommandBars("full screen").Enabled = True
    Application.CommandBars("Compare Side by Side").Enabled = True
End Sub

BU KODU KULLANIYORUM AMA GÜVENLİK SEVİYESİ YÜKSEK OLDUĞU İÇİN İŞE YARAMIYOR...

 

[Emsdmr]

arkadaşlar biraz aceleci davrandığımı biliyorum herkez problemine acil çözüm bekliyor bunu da biliyorum yinede bir öncelik tanımanızı rica ediyorum hiç olmazsa bir fikir verin lütfen.

 

[S.Yiğit]

Merhaba,

Arama yaptınız mı bilmiyorum ama aşağıdaki linki inceleyebilirsiniz..


Menüler Kayboldu

 

[Emsdmr]

sayın s.yiğit
arama yapmıştım fakat dosyaların bazıları silindiği için çözüme ulaşamadım

 

[N.Ziya Hiçdurmaz]

yanıt

Dosya exeye çevrilmiştir makro güvenlik seviyesini kendi düşürür büyük ihtimal işe yarar bir deneyiniz.

 

[Emsdmr]

sayın N.Ziya Hiçdurmaz bu Mübarek günde yardımıma yetiştiniz allah gönlünüzün istediğini hayırlısıyla versin inşallah teşekkür ederim

 

[N.Ziya Hiçdurmaz]

yanıt

Birşey değil.