Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Такой себе вопросик? (узнать логин юзера и время запуска файла) / 7 сообщений из 7, страница 1 из 1
02.07.2004, 11:46:16
    #32586772
AKhludeyev
AKhludeyev
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Такой себе вопросик? (узнать логин юзера и время запуска файла)
Привет всем!
Можно ли в ВБА узнать и записать в какую нибуть ячейку логин юзера и время запуска файла? Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2004, 12:13:12
    #32586857
Yanis
Yanis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Такой себе вопросик? (узнать логин юзера и время запуска файла)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function getCurLoginName() As String
    Dim strName As String
    strName = Space$( 20 )

    If GetUserName(strName, Len(strName)) Then
        getCurLoginName = strName
    Else
         ' никто не вошел в сеть или система не поддерживает эту функцию
 
        getCurLoginName = ""
    End If
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.07.2004, 12:33:40
    #32586917
Yanis
Yanis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Такой себе вопросик? (узнать логин юзера и время запуска файла)
Насчет времени запуска предлагаю в каком-нить автозапуске это время фиксировать, а потом использовать по мере надобности.
Либо можно использовать ActiveDocument.BuiltInDocumentProperties, но я там не увидел время последней сессии редактирования документа
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.07.2004, 09:44:06
    #32607361
Beginner_1
Beginner_1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Такой себе вопросик? (узнать логин юзера и время запуска файла)
Где поставить строку ?

Код: plaintext
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

я начинающий, СПАСИБО
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.07.2004, 10:28:09
    #32607456
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Такой себе вопросик? (узнать логин юзера и время запуска файла)
alt-f11 - insert - module и туда.
хотя для этих целей есть св-во
application.UserName
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.07.2004, 10:29:39
    #32607460
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Такой себе вопросик? (узнать логин юзера и время запуска файла)
по поводу времени а чем NOW не устраивает ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.07.2004, 11:54:20
    #32607711
Jojo
Jojo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Такой себе вопросик? (узнать логин юзера и время запуска файла)
MsgBox "User:" & Application.UserName & Chr(13) & "Time Run:" & Now

Scio me nihil scire

<<Jojo®>>
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Такой себе вопросик? (узнать логин юзера и время запуска файла) / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 386ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2186719]:
 0ms
get settings:
 11ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 33ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 239ms
total:  386ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]