Макрос для определения пользователя

[NickGrava]

Всем добрый день! Подскажите есть ли такой макрос который бы при открытии документа Calc определял имя пользователя под которым он запущен, и выводил его в какую нить ячейку???

Буду очень признателен! Спасибо!

[rami]

Подскажите есть ли такой макрос который бы при открытии документа Calc определял имя пользователя под которым он запущен, и выводил его в какую нить ячейку???

Если вам нужно имя пользователя определённое в "Параметры" —> "Сведения о пользователе", то так:

Код Выделить Развернуть

Sub main
ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("A1").setString(ThisComponent.DocumentProperties.Author)
End Sub

[NickGrava]

Спасибо, но необходимо имя пользователя под которым была загружена винда.

[NickGrava]

Вообщем как найти имя пользователя я сообразил - а вот как сделать так чтобы макрос запускался сам при открытии документа я пока сообразить не могу.

[rami]

Вообщем как найти имя пользователя я сообразил - а вот как сделать так чтобы макрос запускался сам при открытии документа я пока сообразить не могу.

И как найти имя?

[NickGrava]

Вот так получаем папку пользователя Мои Документы - а уж вычленить из имени этой папки самого юзера это можно и без макроса.

Код Выделить Развернуть


Sub DesktopName
Dim a
GlobalScope.BasicLibraries.LoadLibrary("Tools")
a = GetPathSettings("Work")
ThisComponent.CurrentController.ActiveSheet.getCellRangeByName("C12").setString(ConvertFromURL(a))
End Sub


Однако, это решение для случая если настройки папки "мои документы"стандартные (что бывает часто).

[rami]

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

Надо назначить макрос на событие "Открытие файла". "Сервис" —> "Настройки" —> "События"

[NickGrava]

Спасибо!

[kompilainenn]

а если на машине зарегистрировано НЕСКОЛЬКО юзеров?

[rami]

а если на машине зарегистрировано НЕСКОЛЬКО юзеров?

Тогда у каждого должен быть свой Офис. При открытии документа разными пользователями имя пользователя будет меняться соответственно.

[kompilainenn]

Тогда у каждого должен быть свой Офис. При открытии документа разными пользователями имя пользователя будет меняться соответственно.

с чего бы это у каждого должен быть свой офис?

[rami]

с чего бы это у каждого должен быть свой офис?

Не знаю как на винде, но в маке из одной учётной записи нет свободного доступа к другим — это как разные компы в одном корпусе.

[JohnSUN]

Как насчет

Код Выделить Развернуть


Function WhoAmI() As String
WhoAmI = Environ("USERNAME")
End Function Вызов, как обычно - просто пишем в нужную ячейку

Код Выделить Развернуть

=WHOAMI()

rami, не влом проверить как мак отработает? А то в справке тонко намекнули, что "Переменные среды зависят от типа операционной системы"

[rami]

не влом проверить как мак отработает? А то в справке тонко намекнули, что "Переменные среды зависят от типа операционной системы"

Показывает пустую строку.

[JohnSUN]

А $USER вместо USERNAME - без того же результата?