SaberExcel - Aprenda Excel VBA, Site sobre macros, funções, fórmulas e planilhas do Excel VBA planilhas prontas e apostilas para download

'Esta  macro do aplicativo Microsoft excel vba,  retorna informações do computador, usuario, nome da maquina, dominio, etc...
Sub PCInformation()
Dim msg
  msg = "UserName" & vbTab & Environ$("username") & vbNewLine _
      & "UserProfile" & vbTab & Environ("UserProfile") & vbNewLine _
      & "Computer" & vbTab & Environ$("ComputerName") & vbNewLine _
      & "Logon Server" & vbTab & Environ$("Logonserver") & vbNewLine _
      & "UserDomain" & vbTab & Environ$("UserDomain")
  MsgBox msg, , "Ambiente de variaveis - saberexcel"
End Sub

' - - - - - - - - - - - - - - - - - - -
Este macro também retorna no usuario logado.
Sub Retorna_Logon_Nome()
Dim wshNetwork As Object
Dim LogonName As Variant
  Set wshNetwork = CreateObject("WScript.Network")
  LogonName = "Logon Name = " & wshNetwork.UserName
  MsgBox LogonName
End Sub
' - - - - - - - - - - - - - - - - - - -

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.