Dim myFso, myFile
Const fileSpec = "c:\temp\virt.htm"
Set myFso = CreateObject("Scripting.FileSystemObject")
Set myFile = myFso.GetFile(fileSpec)
MsgBox "Last Accessed: " & myFile.DateLastAccessed
Пользуются ли моим файлом?
У меня следующий вопрос.
Есть заказчик информации. Я ее делаю (Excel), выкладываю на общий диск и обновляю с какой-либо переодичностью. Заказчик благодарит и говорит, что пользуется этой инфой чуть ли не каждый день. Но есть подозрения, что он нагло врет и мои усилия по обновлению напрасны!
Вопрос: как фиксировать точку открытия, закрытия файла, и лицо производившее эти действия.
P.S. Задача решена в случае, когда человек открывая мой файл запускает макросы, но как быть если на компе стоит высокая степерь безопасности и макросы при открытии не работают!?
Сейчас это делается так:
Sub Auto_Open()
путь = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
Application.ScreenUpdating = False
Workbooks.Open Filename:= _
"G:\Shared\Projects\Sales Leadership\Working Materials\Models\Ðîññèÿ\Commission model NEW statistic.xls" _
, Password:="123"
perem = WorksheetFunction.CountA(Columns("a"))
Cells(perem + 1, 1) = perem
Cells(perem + 1, 2) = Application.UserName
Cells(perem + 1, 3) = Date
Cells(perem + 1, 4) = Time
Cells(perem + 1, 7) = путь
ActiveWorkbook.Save
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub
и
Sub Auto_close()
Application.ScreenUpdating = False
Workbooks.Open Filename:= _
"G:\Shared\Projects\Sales Leadership\Working Materials\Models\Ðîññèÿ\Commission model NEW statistic.xls" _
, Password:="123"
Cells(perem + 1, 5) = Date
Cells(perem + 1, 6) = Time
ActiveWorkbook.Save
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub
Есть заказчик информации. Я ее делаю (Excel), выкладываю на общий диск и обновляю с какой-либо переодичностью. Заказчик благодарит и говорит, что пользуется этой инфой чуть ли не каждый день. Но есть подозрения, что он нагло врет и мои усилия по обновлению напрасны!
Вопрос: как фиксировать точку открытия, закрытия файла, и лицо производившее эти действия.
P.S. Задача решена в случае, когда человек открывая мой файл запускает макросы, но как быть если на компе стоит высокая степерь безопасности и макросы при открытии не работают!?
Сейчас это делается так:
Sub Auto_Open()
путь = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
Application.ScreenUpdating = False
Workbooks.Open Filename:= _
"G:\Shared\Projects\Sales Leadership\Working Materials\Models\Ðîññèÿ\Commission model NEW statistic.xls" _
, Password:="123"
perem = WorksheetFunction.CountA(Columns("a"))
Cells(perem + 1, 1) = perem
Cells(perem + 1, 2) = Application.UserName
Cells(perem + 1, 3) = Date
Cells(perem + 1, 4) = Time
Cells(perem + 1, 7) = путь
ActiveWorkbook.Save
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub
и
Sub Auto_close()
Application.ScreenUpdating = False
Workbooks.Open Filename:= _
"G:\Shared\Projects\Sales Leadership\Working Materials\Models\Ðîññèÿ\Commission model NEW statistic.xls" _
, Password:="123"
Cells(perem + 1, 5) = Date
Cells(perem + 1, 6) = Time
ActiveWorkbook.Save
ActiveWindow.Close
Application.ScreenUpdating = True
End Sub
А если он не будет открывать файл на месте, а перекопирует его себе?
И кстати, где это общая директория находится?
И кстати, где это общая директория находится?
Цитата:
Originally posted by Ilya_26
открытия, закрытия файла, и лицо производившее эти действия.
открытия, закрытия файла, и лицо производившее эти действия.
обратись к системному администратору. пусть настроит аудит на доступ к файлу. или сделай сам, если имеешь полномочия. я надеюсь система, где лежит файл не Windows 9x? :)
Цитата:
Originally posted by Ilya_26
Вопрос: как фиксировать точку открытия, закрытия файла, и лицо производившее эти действия.
Вопрос: как фиксировать точку открытия, закрытия файла, и лицо производившее эти действия.
Код:
Попробуйте вот этот сценарий. Он позволяет узнать дату последнего обращения к файлу.
Что касается пользователя, то хотелось бы знать следующее:
- как организована сеть?
- как заказчику предоставляется ресурс?
- какие ОС используются у Вас, у заказчика и на компьютере, где хранится рабочая книга?
А лучше - настройте аудит, как советует squirL, если, конечно, есть такая возможность.
Цитата:
Originally posted by SergeySV
А если он не будет открывать файл на месте, а перекопирует его себе?
И кстати, где это общая директория находится?
А если он не будет открывать файл на месте, а перекопирует его себе?
И кстати, где это общая директория находится?
Вариант с перекопированием файла не рассматривается.
Общая директория находится там же, где лежит и сам файл. Файл со сбором статистики запаролен и лежит рядом с исходной инфой.
Цитата:
Originally posted by Dmitrii
Попробуйте вот этот сценарий. Он позволяет узнать дату последнего обращения к файлу.
Что касается пользователя, то хотелось бы знать следующее:
- как организована сеть?
- как заказчику предоставляется ресурс?
- какие ОС используются у Вас, у заказчика и на компьютере, где хранится рабочая книга?
А лучше - настройте аудит, как советует squirL, если, конечно, есть такая возможность.
Код:
Dim myFso, myFile
Const fileSpec = "c:\temp\virt.htm"
Set myFso = CreateObject("Scripting.FileSystemObject")
Set myFile = myFso.GetFile(fileSpec)
MsgBox "Last Accessed: " & myFile.DateLastAccessed
Const fileSpec = "c:\temp\virt.htm"
Set myFso = CreateObject("Scripting.FileSystemObject")
Set myFile = myFso.GetFile(fileSpec)
MsgBox "Last Accessed: " & myFile.DateLastAccessed
Попробуйте вот этот сценарий. Он позволяет узнать дату последнего обращения к файлу.
Что касается пользователя, то хотелось бы знать следующее:
- как организована сеть?
- как заказчику предоставляется ресурс?
- какие ОС используются у Вас, у заказчика и на компьютере, где хранится рабочая книга?
А лучше - настройте аудит, как советует squirL, если, конечно, есть такая возможность.
Насчет настройки аудита - проще заставить заказчика включать макросы, сделав какую-нибудь кнопку, по которой якобы пересчитываются данные (он в этом не понимает).
Отвечу на вопросы:
вся сеть работает в Windows2000, ресурс лежит на общем диске (если речь об этом), несчет организации сети я не силен, но каждый сотрудник имеет свое UserName.
Цитата:
Originally posted by Ilya_26
Насчет настройки аудита - проще заставить заказчика включать макросы, сделав какую-нибудь кнопку, по которой якобы пересчитываются данные (он в этом не понимает).
Отвечу на вопросы:
Насчет настройки аудита - проще заставить заказчика включать макросы, сделав какую-нибудь кнопку, по которой якобы пересчитываются данные (он в этом не понимает).
Отвечу на вопросы:
это не проще. это неправильный подход. проще и правильнее - выставить аудит средствами системы. это гарантия от всяческих неожиданностей типа заказчика, раскусившего вашу "какую-нибудь кнопку".
политика "он в этом не понимает" - ущербна. на смену непонимающему может придти другой. который понимает лучше вас.
Спасибо всем за участие!
Самое важное было понять, возможно ли решить данную задачу средствами VBA, но как я понял, увы, это невозможно.
Самое важное было понять, возможно ли решить данную задачу средствами VBA, но как я понял, увы, это невозможно.
Цитата:
Originally posted by Ilya_26
Спасибо всем за участие!
Самое важное было понять, возможно ли решить данную задачу средствами VBA, но как я понял, увы, это невозможно.
Спасибо всем за участие!
Самое важное было понять, возможно ли решить данную задачу средствами VBA, но как я понял, увы, это невозможно.
ну почему невозможно. видимо возможно. на VBA же пишут программы для системного администрирования. наверняка, если порыться в MSDN можно нарыть функцию, которая получает имя юзера, открывшего макрос и т. п. просто надежнее, ИМХО, так как я сказал.
Цитата:
Originally posted by Ilya_26
Спасибо всем за участие!
Самое важное было понять, возможно ли решить данную задачу средствами VBA, но как я понял, увы, это невозможно.
Спасибо всем за участие!
Самое важное было понять, возможно ли решить данную задачу средствами VBA, но как я понял, увы, это невозможно.
Если вести речь только о собственных средствах VBA, то - невозможно. Да и вообще, здесь нужен не VBA, а VBS, средствами которого уже надо будет обращаться к инструментарию WSH и (или) WMI (возможно понадобится и что-то ещё). Ведь Вы по сути хотите организовать собственную систему аудита за доступом к объекту файловой системы.
Кроме того, Вы не являетесь системным администратором. Следовательно, во-первых, подобная "самодеятельность" может вызвать негативную реакцию со стороны Вашего "сисадмина", во-вторых, Вам могут быть недоступны необходимые для решения задачи системные средства.
Здесь, думаю, уместна цитата:
Цитата:
Originally posted by squirL
... проще и правильнее - выставить аудит средствами системы ...
... проще и правильнее - выставить аудит средствами системы ...
Впрочем, есть несколько идей. Будет досуг, покопаюсь.