[Excel] Macro per info sistema

[Roberto183]

Inanzitutto un saluto a tutti

Premetto che non sò nulla di excel, mi è stato chiesto di creare una macro per recuperare il nome del pc da dove il foglio excel viene aperto, qualcuno di voi può aiutarmi nell'impresa?

Grazie a tutti anticipatamente

[cassioli]

Codice: Seleziona tutto

 Private Declare Function api_GetUserName Lib "advapi32.dll" Alias _
          "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
    Private Declare Function api_GetComputerName Lib "Kernel32" Alias _
          "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

    Public Function CNames(UserOrComputer As Byte) As String
    'UserorComputer; 1=User, anything else = computer
    Dim NBuffer As String
    Dim Buffsize As Long
    Dim wOK As Long
       
    Buffsize = 256
    NBuffer = Space$(Buffsize)
       
    If UserOrComputer = 1 Then
        wOK = api_GetUserName(NBuffer, Buffsize)
         CNames = Trim$(NBuffer)
    Else
        wOK = api_GetComputerName(NBuffer, Buffsize)
        CNames = Trim$(NBuffer)
    End If
   
End Function

Codice: Seleziona tutto

Sub StampaDati()
stringa = "Computer " & CNames(2)
 MsgBox (stringa)
stringa = " in uso da parte di " & CNames(1)
 MsgBox (stringa)
End Sub

[Roberto183]

Grazie

Credo che visiterò spesso questo forum

[cassioli]

Grazie. Sono imbattibile con Google e col copia-incolla

Aggiungo un po' "del mio" per semplificare la macro:

Codice: Seleziona tutto

Private Declare Function api_GetUserName Lib "advapi32.dll" Alias _
          "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
    Private Declare Function api_GetComputerName Lib "Kernel32" Alias _
          "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub StampaDati()
    Dim NBuffer As String
    Dim Buffsize As Long
    Dim wOK As Long
       
    Buffsize = 256
    NBuffer = Space$(Buffsize)
   
    wOK = api_GetUserName(NBuffer, Buffsize)
    Utente = Trim$(NBuffer)
    wOK = api_GetComputerName(NBuffer, Buffsize)
    computer = Trim$(NBuffer)
    computer = Left$(computer, Len(computer) - 3) ' Elimina ultimi caratteri (danno fastidio a msgbox)
    MsgBox ("Computer '" & computer & "' in uso da parte di '" & Utente & "'")
End Sub

[Roberto183]

Anch'io ho provato a cercare con google, ma non è così semplice

[cassioli]

Anch'io ho provato a cercare con google, ma non è così semplice

iO ho scoperto un trucchetto per cercare info sulle macro per Access, Excel e Word in Google: aggiungi "VBA" (Visual Basic for Applications) alle ricerche!

"vba excel username"

[Roberto183]

Grazie, ci riprovo, non riesco proprio a trovare quello che sto cercando, cioè quello che trovo non mi funziona come dovrebbe

[cassioli]

Grazie, ci riprovo, non riesco proprio a trovare quello che sto cercando, cioè quello che trovo non mi funziona come dovrebbe

siamo tutt'orecchi