menü göster/gizle örneği

[mustafateknetas]

Selamlar sevgili excel hocalarım.
Ekte yollamış oldugum dosyamda menü gizleme kodu var.
menü gizli şekilde kaydettiğim zaman, diğer tüm dosyalarımda menü gizli açılıyor.
Sadece mevcut dosyanın menüsünü gizlemek için kod'da ne gibi degişiklik yapmalıyım.
Yardımlarınız için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Çalışmanızın Thisworkbook bölümündeki kodları aşağıdaki şekilde değiştirip denermisiniz.

Option Explicit
 
Private Sub Workbook_Activate()
    Dim CBar As CommandBar
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each CBar In Application.CommandBars
    CBar.Enabled = False
    Next
    Application.CommandBars("Standard").Visible = False
    Application.CommandBars("Formatting").Visible = False
    Application.CommandBars("Drawing").Visible = False
    Application.CommandBars("Control Toolbox").Visible = False
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
    With Application
        .DisplayFormulaBar = False
        .ShowWindowsInTaskbar = False
    End With
    Application.ScreenUpdating = True
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    MENÜ_DÜZELT
    ThisWorkbook.Save
End Sub
 
Private Sub Workbook_Deactivate()
    MENÜ_DÜZELT
End Sub
 
Private Sub Workbook_Open()
    Dim CBar As CommandBar
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each CBar In Application.CommandBars
    CBar.Enabled = False
    Next
    Application.CommandBars("Standard").Visible = False
    Application.CommandBars("Formatting").Visible = False
    Application.CommandBars("Drawing").Visible = False
    Application.CommandBars("Control Toolbox").Visible = False
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
    With Application
        .DisplayFormulaBar = False
        .ShowWindowsInTaskbar = False
    End With
    Application.ScreenUpdating = True
End Sub
 
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Cancel = False
End Sub

 

[mustafateknetas]

çok teşekkürler teşekkürler sayın korhan hocam