Arquivo da Categoria ‘VBA’

Tirando barras e menus do Excel

Quinta-feira, 5 de Junho, 2008

Boa noite galera, meu nome é Herbert Fernando Martins alguns aqui me chamam de HB, sou formado em Ciência da Computação estou trabalhando atualmente com desenvolvimento de planilhas Excel e programação de macros. Estou aqui para tentar passar alguns dos meus conhecimentos e experiências para vocês.

Nesse Primeiro post o que vou apresentar não é bem um tutorial, mas sim uma função que utilizo muito para descaracterizar e caracterizar o Excel. Quem nunca sonhou em deixar o seu pequeno programa em Excel com aquela cara bonita de sistema.

PLAIN TEXT
Visual Basic:
  1. Sub DestroiExcel()
  2.  
  3. Dim CObj As CommandBar
  4.              
  5.     With Application
  6.    
  7.         'Esconde as CommandBars
  8.         For Each CObj In .CommandBars
  9.             CObj.Enabled = False
  10.         Next
  11.        
  12.         .Caption = "Destruindo o Excel "
  13.         .ActiveWindow.Caption = ""
  14.         .DisplayFormulaBar = False
  15.         .DisplayScrollBars = False
  16.         .DisplayScrollBars = False
  17.        
  18.         .ActiveWindow.DisplayWorkbookTabs = False
  19.         .DisplayStatusBar = False
  20.    
  21.     End With
  22.    
  23.     With ActiveWindow
  24.    
  25.         .DisplayOutline = False
  26.         .DisplayFormulas = False
  27.         .DisplayHorizontalScrollBar = False
  28.         .DisplayVerticalScrollBar = False
  29.         .DisplayWorkbookTabs = False
  30.         .DisplayHeadings = False
  31.         .DisplayGridlines = False
  32.         .DisplayHorizontalScrollBar = False
  33.         .DisplayVerticalScrollBar = False
  34.         .DisplayWorkbookTabs = False
  35.        
  36.     End With
  37.        
  38. End Sub

Excel Descaracterizado

PLAIN TEXT
Visual Basic:
  1. Sub ConstroiExcel()
  2.  
  3. Dim CObj As CommandBar
  4.    
  5.     With Application
  6.      
  7.         'Mostra as CommandBars
  8.         For Each CObj In Application.CommandBars
  9.             CObj.Enabled = True
  10.         Next
  11.          
  12.         .Caption = "Destruindo o Excel "
  13.         .ActiveWindow.Caption = ""
  14.         .DisplayFormulaBar = True
  15.         .DisplayScrollBars = True
  16.         .DisplayScrollBars = True
  17.        
  18.         .ActiveWindow.DisplayWorkbookTabs = True
  19.         .DisplayStatusBar = True
  20.    
  21.     End With
  22.    
  23.     With ActiveWindow
  24.    
  25.         .DisplayHorizontalScrollBar = True
  26.         .DisplayVerticalScrollBar = True
  27.         .DisplayWorkbookTabs = True
  28.         .DisplayHeadings = True
  29.         .DisplayGridlines = True
  30.         .DisplayHorizontalScrollBar = True
  31.         .DisplayVerticalScrollBar = True
  32.         .DisplayWorkbookTabs = True
  33.         .DisplayOutline = True
  34.         .DisplayFormulas = True
  35.  
  36.     End With
  37.    
  38. End Sub

Excel Caracterizado

Na categoria VBA | 1 Comentário »

  • Categorias

    • C# (1)
    • CAPA (13)
    • Design (2)
    • Fotografia (3)
    • HTML (2)
    • Links positivos (9)
    • PHP (6)
    • Sem categoria (2)
    • Sharepoint (3)
    • SQL (1)
    • VBA (1)
    • Visual basic (1)

  • Posts Recentes

    • Tabela Tipográfica
    • Design de logos 2009
    • Função para Paginação PHP
    • Color Blender
    • Pulseira USB

  • Páginas

    • Acerca

O + criado com WordPress
RSS Artigos e RSS Comentários.