como controlo el accesso... ayuda..!!

esta funcion que escribes, que es lo que hara y donde lo hara?

"KL" escribió:

Mostrar la cita

Hola Santiago,

Si te refieres a detectar el nombre de usuario de la red (Network User Name) entonces habria q usar las llamadas API. Por ejemplo, podrias usar la funcion que te pongo a continuacion.

Saludos,
KL

'--Inicio Codigo
Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long


Public Function ReturnUserName() As String
Dim rString As String * 255, sLen As Long, tString As String
tString = ""
On Error Resume Next
sLen = GetUserName(rString, 255)
sLen = InStr(1, rString, Chr(0))
If sLen > 0 Then
tString = Left(rString, sLen - 1)
Else
tString = rString
End If
On Error GoTo 0
ReturnUserName = UCase(Trim(tString))
End Function
'--Fin Codigo




"División Capacitación" wrote in message news:uQO%
> hola amigos:
> necesito controlar, con una macro, en una hoja de excel, que personas
> acceden al mismo.
> sabe alguien como hacerlo?
> saludos.
> santiago
>
>

Hola Age,

Esta funcion devolvera el nombre de usuario de red. Por ejemplo: si copias
el codigo en un modulo normal y luego lanzas un macro como el siguiente
obtendras el nombre:

Sub test()
MsgBox ReturnUserName
End Sub

Saludos,
KL
"Age" wrote in message
news:
Mostrar la cita

esta funcion que escribes, que es lo que hara y donde lo hara?

"KL" escribió:

Mostrar la cita

Hola Santiago,

Si te refieres a detectar el nombre de usuario de la red (Network User
Name) entonces habria q usar las llamadas API. Por ejemplo, podrias usar
la funcion que te pongo a continuacion.

Saludos,
KL

'--Inicio Codigo
Public Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long


Public Function ReturnUserName() As String
Dim rString As String * 255, sLen As Long, tString As String
tString = ""
On Error Resume Next
sLen = GetUserName(rString, 255)
sLen = InStr(1, rString, Chr(0))
If sLen > 0 Then
tString = Left(rString, sLen - 1)
Else
tString = rString
End If
On Error GoTo 0
ReturnUserName = UCase(Trim(tString))
End Function
'--Fin Codigo




"División Capacitación" wrote in message
news:uQO%
> hola amigos:
> necesito controlar, con una macro, en una hoja de excel, que personas
> acceden al mismo.
> sabe alguien como hacerlo?
> saludos.
> santiago
>
>