Определить сетевое имя компьютера, с которого открыли файл Excel

[aie.fineff]

Добрый день! Подскажите, пожалуйста, как с помощью VBA Excel определить сетевое имя компьютера, с которого открыли файл Excel?

[aie.fineff]

Извините, по-другому задам вопрос.

Я открыл файл Excel. Хочу с помощью макроса в этом файле определить сетевое имя компьютера, с которого я его открыл.

Подскажите, пожалуйста, какой макрос мне надо написать.

Заранее благодарен.

[Serge_Bliznykov]

простите, если я чего-то не понимаю, но при чём здесь Excel и сетевое имя?
не проще ли запустить ipconfig /all и там посмотреть сетевое имя компьютера?

[aie.fineff]

Суть в следующем.

Есть таблица на одном листе файла Excel (этот файл не в общем доступе). Данная таблица, грубо говоря, разбита на несколько блоков. Каждый из этих блоков должен заполняться разными сотрудниками.

При этом, чтобы они не внесли информацию в блок другого сотрудника (намеренно или случайно), эти блоки для открывшего этот файл сотрудника должны быть защищены от изменений.

Для решения этой задачи задумка предлагается следующая.

При открытии указанного файла макрос должен определить сетевое имя компьютера сотрудника, открывшего этот файл, и заблокировать на изменения блоки, относящиеся к другим сотрудникам.

Как макросом заблокировать другие блоки мне понятно. Но не понятно как определить сетевое имя компьютера.

Можете подсказать возможный вариант?

Буду очень признателен.

[evg_m]

макрос должен определить сетевое имя компьютера сотрудника, открывшего этот файл, и заблокировать на изменения блоки, относящиеся к другим сотрудникам.

а ЕСЛИ ... сотрудник зашел(сел поработать) на другом компьютере ?
его компьютер сломался и запасного настроенного точь-в-точь (с тем же сетевым именем) нет и быть увы не может.
он будет редактировать данные другого пользователя?
и не сможет исправлять свои ?!

для этих целей существуют ПОЛЬЗОВАТЕЛЬ текущий (user current)
GetCurrentUser

[Serge_Bliznykov]

банальное имя пользователя не устроит?

MsgBox "Current user is " & Application.UserName

Сообщение от aie.fineff

Есть таблица на одном листе файла Excel (этот файл не в общем доступе). Данная таблица, грубо говоря, разбита на несколько блоков. Каждый из этих блоков должен заполняться разными сотрудниками.

ох, я бы на вашем месте посмотрел в сторону сетевого решения (банальный веб-сервер + серверная часть + любая БД = решение вашей задачи).

можно и сетевое имя получить.

для Win-64

 
 Private Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As LongPtr) As Long
 
' Main routine to retrieve user name.
Function GetLogonName() As String
 
 ' Dimension variables
 Dim lpBuff As String * 255
 Dim ret As Long
 
 ' Get the user name minus any trailing spaces found in the name.
 ret = GetUserName(lpBuff, 255)
 
 If ret > 0 Then
 GetLogonName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
 Else
 GetLogonName = vbNullString
 End If
End Function

[aie.fineff]

][QUOTE=aie.fineff;1786790]

Если возникнет такая ситуация, думаю, просто в макросе внесу корректировки, чтобы этот сотрудник смог внести изменения в свой блок с другого компьютера.

Спасибо!

[aie.fineff]

Сообщение от Serge_Bliznykov

банальное имя пользователя не устроит?

MsgBox "Current user is " & Application.UserName

ох, я бы на вашем месте посмотрел в сторону сетевого решения (банальный веб-сервер + серверная часть + любая БД = решение вашей задачи).

можно и сетевое имя получить.

для Win-64

 
 Private Declare PtrSafe Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As LongPtr) As Long
 
' Main routine to retrieve user name.
Function GetLogonName() As String
 
 ' Dimension variables
 Dim lpBuff As String * 255
 Dim ret As Long
 
 ' Get the user name minus any trailing spaces found in the name.
 ret = GetUserName(lpBuff, 255)
 
 If ret > 0 Then
 GetLogonName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
 Else
 GetLogonName = vbNullString
 End If
End Function

Спасибо большое! Все работает!