Userform sayfalar ve menü çubuğu

[abtani]

Bir excel çalışmasında otomatik user formda açılıyorsa bu çalışmada ile ilgili sayfalara ve gizlenmiş menu çubuğuna nasıl ulaşılabilir.
Örnek: (Sanırım çalışma şifreli değil)
http://www.excel.web.tr/showthread.php?t=15138

 

[Korhan Ayhan]

Selamlar,

Eklediğiniz linkteki örnek dosya için aşağıdaki kodu bir butona atayıp çalıştırırsanız istediğiniz menüler tekrar aktif hale gelir.

Sub MENÜLER_AKTİF()
    Sheets("ANA").Select
    Worksheets(1).ScrollArea = "A1: B1"
    Worksheets(2).ScrollArea = "A10: I65000"
    Worksheets(4).ScrollArea = "A10: I65000"
    Worksheets(6).ScrollArea = "A10: I65000"
    Worksheets(8).ScrollArea = "A10: H65000"
    Worksheets(10).ScrollArea = "A10: H65000"
    Worksheets(12).ScrollArea = "A10: H65000"
    Application.ScreenUpdating = False
    For i = 1 To Application.CommandBars.Count
    Application.CommandBars(i).Enabled = True
    Next i
    Application.ScreenUpdating = True
    Application.DisplayFullScreen = False
    Application.DisplayFormulaBar = True
    Application.DisplayFormulaBar = True
    With ActiveWindow
    .DisplayHorizontalScrollBar = True
    .DisplayVerticalScrollBar = True
    .DisplayWorkbookTabs = True
    End With
End Sub

 

[abtani]

Sayın Korhan Ayhan;
Dediklerinizi uyguladım ve istediğim gibi oldu.Sayenizde yeni bir şey daha öğrendim.Teşekkür ederim.Saygılarımla...