Abaixo estou disponibilizando algumas macros simples do Excel VBA mas que podem ser muito útil no dia a dia.
Identificar o usuário logado
Esta macro identifica o usuário logado, o domínio da rede e o nome do computador. Armazena todos em uma variável e exibe em uma caixa de texto.
Esta macro é útil quando precisamos bloquear acesso à alguma planilha, limitar algumas ações e etc.
Sub Usuário_logado()
Usuário = Environ("username") 'Recebe o nome do usuário que está logado
Dominio = Environ("userdomain") 'Recebe o domínio da rede
Computador = Environ("computername") 'Recebe o nome do computador
MsgBox ("Usuário: " & Usuário)
MsgBox ("Dominio: " & Dominio)
MsgBox ("Computador: " & Computador)
End Sub
Ocultar Barras no Excel VBA
Esta macro oculta e reexibe os objetos window do Excel.
Sub Ocltar()
Application.DisplayFullScreen = True 'Exibe em Modo de Leitura (tela cheia)
ActiveWindow.DisplayHeadings = False 'Oculta o Cabeçalho (Letras das colunas)
Application.DisplayFormulaBar = False 'Oculta a barra de Formulas
ActiveWindow.DisplayHorizontalScrollBar = False 'Oculta a barra de rolagem Horizontal
ActiveWindow.DisplayVerticalScrollBar = False 'Oculta a barra de rilagem Vertival
ActiveWindow.DisplayWorkbookTabs = False 'Oculta as Tabs para mudar de Folha
Application.DisplayStatusBar = False 'Oculta a barra do Status
Application.DisplayAlerts = False 'Desabilita a exibição de avisos do sistema
End Sub
Sub Reexibir()
Application.DisplayFullScreen = False 'Sai do Modo de Leitura
ActiveWindow.DisplayHeadings = True 'Mostra o Cabeçalho
Application.DisplayFormulaBar = True 'Mostra a barra de Formulas
ActiveWindow.DisplayHorizontalScrollBar = True 'Mostra a barra de rolagem Horizontal
ActiveWindow.DisplayVerticalScrollBar = True 'Mostra a barra de rolagem Vertival
ActiveWindow.DisplayWorkbookTabs = True 'Mostra as Tabs para mudar de Folha
Application.DisplayStatusBar = True 'Mostra a barra do Status
Application.DisplayAlerts = True 'Habilita a exibição de avisos do sistema
End Sub
