Рабочий лист Excel открыт только для определенного контроллера домена

Question

Я хотел бы узнать, как избежать открытия рабочего листа, отличного от моего контроллера домена enviromente.

E.g My netbios DC - contoso.com. Если кто-то поймает такой файл и попытается открыть его в другом месте, рабочий лист не откроется. Или аутентификация постоянного тока перед открытием. Я слишком много работал над созданием кода.

Я пробовал https://support.microsoft.com/en-us/kb/326340. Не работает.

Заранее спасибо.

Answer 1

Проверьте команду Environ, которая дает VBA доступ к переменным среды Windows на локальном компьютере. Существует переменная среды, называемая LOGONSERVER, которая возвращает имя компьютера контроллера домена, используемого для входа в систему текущего пользователя. Для доступа из использования VBA:

Sub Test() 
    Dim strDomainController As String 
    strDomainController = Environ("LOGONSERVER") 
    Debug.Print strDomainController 
End Sub