Results 1 to 3 of 3

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Oct:2008
    Location:
    Posts: 95

    Excel VBA - SheetBar Headings

    ,

    , Excel. , . (Sheets). SheetsBar , . Sheet. :
    Code:
    Public Sub hide_vsichko()
        ActiveWindow.DisplayWorkbookTabs = False
        ActiveWindow.DisplayHeadings = False
    End Sub
    
    Public Sub show_vsichko()
        ActiveWindow.DisplayWorkbookTabs = True
        ActiveWindow.DisplayHeadings = True
    End Sub
    
    Private Sub Workbook_Open()
        hide_vsichko
    End Sub
    !

  2. #2
    Registered User
    Join Date: Aug:2009
    Location:
    Posts: 265
    , .
    (worksheet), , , , .

  3. #3
    Registered User
    Join Date: Oct:2008
    Location:
    Posts: 95
    Avis, !
    , , :
    Code:
    Public Sub hide_vsichko()
        ActiveWindow.DisplayWorkbookTabs = False
        ActiveWindow.DisplayHeadings = False
    End Sub
    
    Public Sub show_vsichko()
        ActiveWindow.DisplayWorkbookTabs = True
        ActiveWindow.DisplayHeadings = True
    End Sub
    
    Public Sub hiden()
    Dim wsSheet As Worksheet
        Application.ScreenUpdating = False
        For Each wsSheet In Worksheets
            wsSheet.Select
            hide_vsichko
        Next wsSheet
        Application.ScreenUpdating = True
        Worksheets(Array(1)).Select
    End Sub
    
    Private Sub Workbook_Open()
        hiden
    End Sub
    !

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |