Ув. Гуру. Подскажите как реализовать в VBA, чтобы велся список авторов изменивших книгу с датой. По ячейкам это будет: U3 Дата изменения (тут вопрос: чем воспользоваться чтобы не перезаписывать ячейку, а перескакивало на следующую?); V3 Автор (А тут собственно, есть ли какой-нибудь готовый макросик?). Спасибо!
Ув. Гуру. Подскажите как реализовать в VBA, чтобы велся список авторов изменивших книгу с датой. По ячейкам это будет: U3 Дата изменения (тут вопрос: чем воспользоваться чтобы не перезаписывать ячейку, а перескакивало на следующую?); V3 Автор (А тут собственно, есть ли какой-нибудь готовый макросик?). Спасибо!amikrage
Практически самое то. Спасибо! Может быть я просто многого хочу, но), мы в доменах в описаниях учеток указываем практически всю необходимую информации о сотрудникам в компании, в том числе и ФИО, интересует возможность выдергивания данного сегмента, да бы не нарушать безопасность естественно не из домена, а и стандартной инфы описания файла, снизу приложил. Наводят размышления, что это возможно)
Практически самое то. Спасибо! Может быть я просто многого хочу, но), мы в доменах в описаниях учеток указываем практически всю необходимую информации о сотрудникам в компании, в том числе и ФИО, интересует возможность выдергивания данного сегмента, да бы не нарушать безопасность естественно не из домена, а и стандартной инфы описания файла, снизу приложил. Наводят размышления, что это возможно)amikrage
Вообще-то, вариантов идентификации пользователя или компьютера масса. Вот только несколько из них: Если информация хранится в BuiltinDocumentProperties, то можно считать непосредственно оттуда. Вот пример: В[vba]
Код
Sub BuiltinDocumentProperties_VIEW_ALL() ' просмотр всех имеющихся BuiltinDocumentProperties Dim DocProp As DocumentProperty, sDocPropVal$ On Error Resume Next Debug.Print "ThisWorkbook contains " & ThisWorkbook.BuiltinDocumentProperties.Count & " BuiltinDocumentProperties :" For Each DocProp In ThisWorkbook.BuiltinDocumentProperties sDocPropVal = "Empty": sDocPropVal = DocProp.Value Debug.Print DocProp.Name & " = " & sDocPropVal Next End Sub
[/vba] Можно обратиться к операционной системе и спросить, на кого она зарегистрирована:[vba]
Код
Sub OS_UserName_() Dim xOS With GetObject("WinMgmts:{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2") For Each xOS In .ExecQuery("Select * from Win32_OperatingSystem") Debug.Print "OS RegisteredUser: " & xOS.RegisteredUser Next End With End Sub
[/vba]Можно узнать сетевое имя или имя пользователя Офиса:[vba]
Код
Sub Net_UserName() Debug.Print CreateObject("Wscript.Network").UserName Debug.Print Application.UserName End Sub
[/vba]
Вообще-то, вариантов идентификации пользователя или компьютера масса. Вот только несколько из них: Если информация хранится в BuiltinDocumentProperties, то можно считать непосредственно оттуда. Вот пример: В[vba]
Код
Sub BuiltinDocumentProperties_VIEW_ALL() ' просмотр всех имеющихся BuiltinDocumentProperties Dim DocProp As DocumentProperty, sDocPropVal$ On Error Resume Next Debug.Print "ThisWorkbook contains " & ThisWorkbook.BuiltinDocumentProperties.Count & " BuiltinDocumentProperties :" For Each DocProp In ThisWorkbook.BuiltinDocumentProperties sDocPropVal = "Empty": sDocPropVal = DocProp.Value Debug.Print DocProp.Name & " = " & sDocPropVal Next End Sub
[/vba] Можно обратиться к операционной системе и спросить, на кого она зарегистрирована:[vba]
Код
Sub OS_UserName_() Dim xOS With GetObject("WinMgmts:{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2") For Each xOS In .ExecQuery("Select * from Win32_OperatingSystem") Debug.Print "OS RegisteredUser: " & xOS.RegisteredUser Next End With End Sub
[/vba]Можно узнать сетевое имя или имя пользователя Офиса:[vba]
Код
Sub Net_UserName() Debug.Print CreateObject("Wscript.Network").UserName Debug.Print Application.UserName End Sub
Забыл поблагодарить, извините! Alex_ST, Большое спасибо. Идею реализовал, но особого восхищения от сотрудников не получил (осталось всё по старинке, каждый сотрудник отсылает корп почтой, а затем уже конкретный человек всё в одно собирает), поэтому, забил на это... А такие планы по автоматизации были, эх... =))
P.S. Закрыть
Забыл поблагодарить, извините! Alex_ST, Большое спасибо. Идею реализовал, но особого восхищения от сотрудников не получил (осталось всё по старинке, каждый сотрудник отсылает корп почтой, а затем уже конкретный человек всё в одно собирает), поэтому, забил на это... А такие планы по автоматизации были, эх... =))