[DonVik]

А точнее как мне в VBA использовать функу GetUserNameA.
Если не сложно легинький примерчик попрошу.

Вот мои наработки:

Код:

[Выделить все]

Declare Sub GetUserNameA Lib "User" (ByVal usr As String, n As Integer)

Private Sub UserForm_Activate()
Dim u As String

If GetUserName(u, 100) Then
 EdRazrab.Text = u
End If
 
 
End Sub

Пишет мол "Constants error strings not allowed as public members of object modules"

Где я туплю?

[fixo]

Попробуй объявлять как Private

Код:

[Выделить все]

Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub UserForm_Activate()
Dim u As String
    'создаем буфер размером 100 знаков
    u = String(100, Chr$(0))
    'получаем имя  пользователя
 If GetUserName(u, 100) Then
  'очищаем буфер от пробелов
  u = Replace(u, " ", Chr(160))
  'выводим результат в окно
  EdRazrab.Text = u
End If
 
End Sub

Кстати у меня в библиотеке user32 нет такой функции
См. advapi32.dll

~'J'~

[DonVik]

Во спасибо, я бейсик не фонтан знаю )

Кстати у меня в библиотеке user32 нет такой функции

Упс... провтыкал )