Saberexcel - o site das macros excel

Esta  macro do Aplicativo Microsoft Excel VBA, retorna informações do computador

Sub PCInformation()
Dim msg
  sbMsg = "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 sbMsg, , "Mostrando informações: Saberexcel"
End Sub

'Esta macro retorna o nome de quem esta logado
Sub Retorna_Logon_Nome()

Dim wshNetwork As Object
Dim LogonName As Variant

Set wshNetwork = CreateObject("WScript.Network")
LogonName = "Logon Nome = " & wshNetwork.UserName
MsgBox LogonName

End Sub



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel