Lengkapnya :    Application.DisplayFullScreen = True
    Worksheets("sheet1").ScrollArea = "$A$1:$I$77"
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
        .DisplayHeadings = True 'False
        Range("A1:I1").Select
        .Zoom = True
    End With
    
    With Worksheets("sheet1")
        Range("J1").Select
        Range(Selection, Selection.End(xlToRight)).Select
        Selection.EntireColumn.ColumnWidth = 0
        
        Range("A78").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.EntireRow.RowHeight = 0
    End With

 To: belajar-excel@yahoogroups.com
From: jkss...@hotmail.com
Date: Mon, 27 Feb 2012 07:50:12 +0000
Subject: RE: [belajar-excel] Macro-lock zoom-out dan page width vie default


















 



  


    
      
      
      


untuk zoom sesuai area  :
 
    Range("A1:I1").Select
    ActiveWindow.Zoom = True

 
To: belajar-excel@yahoogroups.com
From: jkss...@hotmail.com
Date: Mon, 27 Feb 2012 07:47:09 +0000
Subject: RE: [belajar-excel] Macro-lock zoom-out dan page width vie default


















 



  


    
      
      
      


    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
        .DisplayHeadings = False
   End With

 
To: belajar-excel@yahoogroups.com
From: ql...@inbox.com
Date: Sun, 26 Feb 2012 10:18:52 -0800
Subject: [belajar-excel] Macro-lock zoom-out dan page width vie default


















 



  


    
      
      
      Be Exceler



Apakah VBA code untuk:

1. mengunci zoom-out dan ketika file ini dibuka width view default-nya hanya 
dari cell A1:I1 (VBA)

2. menyembunyikan row & column header (VBA)

3. menyembunyikan horizontal & vertical scroll bar (VBA)

4. menyembunyikan sheet tab (VBA)

5. pada file ini column header hanya sampai I1, bagaimana membuat row header 
hanya sampai A77 (VBA)



br

andre


    
     

    
    






                                          



    
     

    
    






                                          


    
     

    
    






                                          

Reply via email to