ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Лог изменений файла Excel - 2
21 сообщений из 21, страница 1 из 1
Лог изменений файла Excel - 2
    #36104800
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Добрый день!
Хочу знать кто и когда открывал определённый файл excel, тем самым понять, нужны ли кому мои отчёты :)
На ум приходит заносить в txt файл имя пользователя и даты открытия.
Может, кто делал, подскажите/покажите, пожалуйста!

Если будут другие идеи по поводу организации слежения, с радостью приму :)
Спасибо!
...
Рейтинг: 0 / 0
23.07.2009, 10:30:38
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36104865
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
PlanB,

Sub test()
On Error Resume Next

Dim rw
Dim p

rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
Cells(rw, 2).Value = p.Value
rw = rw + 1
Next
End Sub
...
Рейтинг: 0 / 0
23.07.2009, 10:54:14
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36104870
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
PlanB,
Можно вести лог в этом же файле.
...
Рейтинг: 0 / 0
23.07.2009, 10:55:20
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36104894
Фотография Stepler
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Stepler
Участник
Сергей06,

подправь при открытии - _дата
...
Рейтинг: 0 / 0
23.07.2009, 11:01:41
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36104903
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
Stepler,

ага.
Но смысел прежний
...
Рейтинг: 0 / 0
23.07.2009, 11:05:09
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36104945
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
при частом пользовании размер файла будет рости чрезмерно, этого бы не хотелось.
txt - вариант покруче
...
Рейтинг: 0 / 0
23.07.2009, 11:19:06
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36104954
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
ещё один минус при хранении в excel:
если не сохранять изменения ( а их 90% пользователей не сохраняет, ничего не отобразится).

+ не знаю, как будет себя вести при совместном открытии...ща попробуем вдвоём..
...
Рейтинг: 0 / 0
23.07.2009, 11:21:28
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36104985
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
planB+ не знаю, как будет себя вести при совместном открытии...ща попробуем вдвоём..Теперь знаю, хотя мог и догадаться: кто первый - того и данные. второму не везёт :)
...
Рейтинг: 0 / 0
23.07.2009, 11:26:49
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36105009
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
PlanB,

Попробуй вот это
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub test()
    Dim strPathRoot As String
    Dim strFile As String
    Dim strLine As String
    Dim lngFileNum As Long
    Dim i As Long, j As Long
    Dim t
    
    strLine = Application.UserName & " -- " & Now
  
    
    strPathRoot = "c:\temp\"
    lngFileNum = FreeFile
    Close #lngFileNum
        strFile = strPathRoot & "log.txt"
        Open strFile For Output As #lngFileNum
        Print #lngFileNum, strLine
        Close #lngFileNum
End Sub
Взято отсюда:
http://www.sql.ru/forum/actualthread.aspx?tid=139990#7437335
Только я не научился добавлять в файл log.txt новую строку...
Но думаю сам разберешься или KL поможет ;-)
...
Рейтинг: 0 / 0
23.07.2009, 11:34:25
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36105016
f
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
f
Участник
PlanBпри частом пользовании размер файла будет рости чрезмерно, этого бы не хотелось.
txt - вариант покруче
Еще покруче- писать в реестр.
...
Рейтинг: 0 / 0
23.07.2009, 11:36:50
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36105051
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
PlanBпри частом пользовании размер файла будет рости чрезмерно, этого бы не хотелось.
txt - вариант покручеДа, но можно ограничить 1000 строк :-)
Зачем тебе больше? уж полный файл ты точно не проанализируешь.
...
Рейтинг: 0 / 0
23.07.2009, 11:48:20
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36105065
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Сергей06
Код: plaintext
Open strFile For Output As #lngFileNum
Надо, вроде, так, чтобы добавлять инфу:
Код: plaintext
Open strFile For Append As #lngFileNum
Мне нужно проверять существование файла перед тем, как выбрать Output или Append?
Или Randome решит эту проблему и запись будет производиться в этом режиме с последней строки, а данные не будут удаляться?
...
Рейтинг: 0 / 0
23.07.2009, 11:52:28
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36105069
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
FPlanBпри частом пользовании размер файла будет рости чрезмерно, этого бы не хотелось.
txt - вариант покруче
Еще покруче- писать в реестр. реестр - незнакомое слово :) в реестр чего?
...
Рейтинг: 0 / 0
23.07.2009, 11:53:12
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36105074
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Сергей06PlanBпри частом пользовании размер файла будет рости чрезмерно, этого бы не хотелось.
txt - вариант покручеДа, но можно ограничить 1000 строк :-)
Зачем тебе больше? уж полный файл ты точно не проанализируешь.Да, можно. Второе "Но" - более существенно!
...
Рейтинг: 0 / 0
23.07.2009, 11:54:07
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36105088
f
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
f
Участник
PlanBреестр - незнакомое слово :) в реестр чего?
Вот этого

 
Пуск - Выполнить - RegEdit
...
Рейтинг: 0 / 0
23.07.2009, 11:58:45
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36105251
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
FPlanBреестр - незнакомое слово :) в реестр чего?
Вот этого

+
 
Пуск - Выполнить - RegEdit
Нет, это уж слишком... пусть будет в txt
...
Рейтинг: 0 / 0
23.07.2009, 12:49:02
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36105288
Сергей06
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей06
Участник
PlanBСергей06
Код: plaintext
Open strFile For Output As #lngFileNum
Надо, вроде, так, чтобы добавлять инфу:
Код: plaintext
Open strFile For Append As #lngFileNum
Мне нужно проверять существование файла перед тем, как выбрать Output или Append?
Или Randome решит эту проблему и запись будет производиться в этом режиме с последней строки, а данные не будут удаляться?ну ведь работает же с Append?
Нравицца?
...
Рейтинг: 0 / 0
23.07.2009, 12:56:32
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36105409
tund
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tund
Гость
ntfs + аудит
...
Рейтинг: 0 / 0
23.07.2009, 13:29:12
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36105867
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Вот так в итоге
-создаёт файл при отсутствии;
-в него добавляет строки с именем пользователя и датой.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub UserLog()
Dim fPath As String
Dim fName As String
Dim nLogtxt As String

nLogtxt = ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xls", ".txt")

    Open nLogtxt For Append As # 1 
        Print # 1 , Application.UserName & " -- " & Now
    Close # 1 
End Sub
А можно получить сетевое имя компьютера или иной идентификатор кроме UserName?
...
Рейтинг: 0 / 0
23.07.2009, 15:58:51
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36105893
Фотография qwrqwr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwrqwr
Участник
PlanBА можно получить сетевое имя компьютера или иной идентификатор кроме UserName? бдынц
...
Рейтинг: 0 / 0
23.07.2009, 16:06:50
| Ответить | Цитировать | Написать  
Лог изменений файла Excel - 2
    #36105919
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
Как-то так сделал... круто-не круто - не знаю
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function WNetGetUserA Lib "mpr.dll" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long

Function GetComputerName() As String
Dim sBuffer As String *  255 
If GetComputerNameA(sBuffer,  255 &) <>  0  Then
GetComputerName = Left$(sBuffer, InStr(sBuffer, vbNullChar) -  1 )
End If
End Function

Function GetUserName() As String
Dim sUserNameBuff As String *  255 
sUserNameBuff = Space( 255 )
Call WNetGetUserA(vbNullString, sUserNameBuff,  255 &)
GetUserName = Left$(sUserNameBuff, InStr(sUserNameBuff, vbNullChar) -  1 )
End Function

Sub UserLog()
Dim fPath As String
Dim fName As String
Dim nLogtxt As String

nLogtxt = ThisWorkbook.Path & "\" & Replace(ThisWorkbook.Name, ".xls", ".txt")

    Open nLogtxt For Append As # 1 
        Print # 1 , Application.UserName & " -- " & Now & " -- " & GetComputerName & " -- " & GetUserName
    Close # 1 
End Sub
...
Рейтинг: 0 / 0
23.07.2009, 16:13:55
| Ответить | Цитировать | Написать  
21 сообщений из 21, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Лог изменений файла Excel - 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36105893&tid=2179254]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 216ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 226ms
total:  536ms
созд. / загр.: 536ms
x
x
Закрыть


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