menü çubuğu gizlemek için kod giriyorum.hata veriyor.

[abdullah016]

merhaba
merhaba menü çubuğunu gizlemek için kod giriyorum.
fakat Ambiguous name dedected:auto open uyarısı veriyor.
menü çubuğu yok olmuyor.
örnek dosya ekte.
yardımcı olursanız sevinirim.

 

[Skorpiyon]

Sayın abdullah016,

Dosyanızda 2 adet Autpen makrosu mevcut. Kendi kodlarınızı alarak, Sayın Haluk Hocamın kodlarında bulunan Autpen makrosundaki "Call SpecialCellMenu" yazan satırın üzerine ekleyin. Sorun çözülecektir.

 

[abdullah016]

Sn.şaban sertkaya
ilginiz için teşekkür ederim.
Bahsettiğiniz odlara nasıl ulaşabilirim.

 

[Ömer]

Merhaba,

VBA ekranında,

Modul1,

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

Modul6,

Sub Auto_Open()
    Call SpecialCellMenu
End Sub

Bu iki kodu birleştirmelisiniz..

Örnek Modul1 deki kodları silin, modul6 daki ilgili kodu aşağıdaki gibi değiştiriniz..

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

.

 

[abdullah016]

sn.ömer çok teşekkür ederim.
kaç zamandır uğraşıyordum.
çözememiştim.
tekrar teşekkür.

 

[abdullah016]

diğer dosyaların menü çubuğu da yok oluyor.

menü çubuğu kodunu girdim sorunsuz çalışıyor.
fakat başka dosyaların menü çubuğu da yok oluyor.
sadece ilgili dosyanın menü çubuğunu gizleyemiyormuyuz.

 

[Skorpiyon]

Sayın abdullah016,

For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = True
Next i
Application.DisplayFormulaBar = True

Üstteki kodun tersi. Yalnızca bunu formunuzun ÇIKIŞ butonundaki kodların, En Sonuna ekleyin. Bir form veya çıkış butonu yok diyorsanız ;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = True
Next i
Application.DisplayFormulaBar = True
Application.ScreenUpdating = True
End Sub

şeklinde yazabilirsiniz.

 

[abdullah016]

sn.şaban sertkaya uzun süre açamamıştım.
ilginiz için çok teşekkür ederim.
çok sağolun.
iyi çalışmalar diliyorum