Узнать имена пользователей, работавших с файлом

@izvne · Регистрация: 06.08.2012

Студворк — интернет-сервис помощи студентам

Возможно ли это сделать средствами VBA? Нужно собрать данные о пользователях, работавших с файлами в папке.

@MaxAysin · 27.03.2013, 16:40

вот такая фигня получается если импортировать в эксель

@MaxAysin · 27.03.2013, 16:44

Сообщение от IvanOK

юзер будет вводить значения в группу ячеек ?

по сути нет, но не исключаю такую возможность, мало ли...

Сообщение от IvanOK

какую

Date

@IvanOK · 27.03.2013, 16:51

MaxAysin, тебе нужно чотко определить сколько будет у тебя символов в каждом поле....
потом проверить длину значения изменения, которое вносится и к недостающему количеству добавить пробелы

Добавлено через 5 минут

Visual Basic
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
28
29
Function itxt(лист, ячейка, значение, кто, дата)
 
 
   For i = 1 To 10
   If Len(лист) < 10 Then Exit For
    лист = " " & лист
   Next
   
   For i = 1 To 8
   If Len(ячейка) < 5 Then Exit For
    ячейка = " " & ячейка
   Next
   
   For i = 1 To 30
   If Len(значение) < 30 Then Exit For
    значение = " " & значение
   Next
   
   For i = 1 To 10
   If Len(кто) < 10 Then Exit For
     кто = " " & кто
   Next
 
   
'відкриваю *.txt файл
Open ThisWorkbook.Path & "\file.txt" For Append As #1
Print #1, лист, ячейка, значение, кто, дата
Close #1
End Function

@MaxAysin · 27.03.2013, 17:00

Сообщение от IvanOK

сколько будет символов в каждом поле....

ок, с этим разберемся.

если не затруднит, подскажите еще, как вставить дату и время внесения изменения? а вообще интересо, чисто гипотетически, возможно ли, чтобы определялось произведенное действие?
например, если удалил/добавил/вырезал/вставил какое-либо значение, то в .тхт это отображается? не знаю как, ну, допустим:

27.03.2013 16:53 Лист1 $A$1 Вставка 123 Admin

Добавлено через 5 минут

Сообщение от IvanOK

Function itxt(лист, ячейка, значение, кто, дата)

itxt Sh.Name, Target.Address, Target.Value, Application.UserName, ? тут что дописать, Date?

@IvanOK · 27.03.2013, 17:02

Сообщение от MaxAysin

возможно ли, чтобы определялось произведенное действие?
например, если удалил/добавил/вырезал/вставил какое-либо значение, то в .тхт это отображается? не знаю как, ну, допустим:
27.03.2013 16:53 Лист1 $A$1 Вставка 123 Admin

Да можно, но вам придется немножко самим думать

ты попробуй копировать и есть ли запись или нет....

Добавлено через 51 секунду

Сообщение от MaxAysin

itxt Sh.Name, Target.Address, Target.Value, Application.UserName, ? тут что дописать, Date?

да ...

@MaxAysin · 27.03.2013, 17:09

Сообщение от IvanOK

придется немножко самим думать

спасибо за проявленное терпение, пожалуй итак порядком завалил вас своими нубо-вопросами

@izvne · 28.03.2013, 17:27 **[ТС]**

Возвращаясь к первому вопросу.

Чтобы сохранять цепочку работавших с файлом. Думаю, что наиболее удачно будет использовать событие

PureBasic
1
Workbook_BeforeSave

Но не могу придумать, куда заносить имя изменяющего. На лист не очень хочется, вот бы в свойства файла. Кто подскажет оригинальный способ? Чтобы максимально скрыть от юзера, но и не навредить работе. Чтобы каждая клиентская машина вносила по-тихому в список свой номер.

@IvanOK · 28.03.2013, 18:17

izvne, а ты смотрел тему с начала ....или просто решыл так для продолжения разговора?

@izvne · 28.03.2013, 18:38 **[ТС]**

Сообщение от IvanOK

izvne, а ты смотрел тему с начала ....или просто решыл так для продолжения разговора?

Я бы хотел по-красивому инфу спрятать в самом файле. Создавать текстовый файл для этого не хочется.

@IvanOK · 28.03.2013, 18:45

izvne, красиво на скрытом листе

@izvne · 29.03.2013, 16:19 **[ТС]**

Сообщение от IvanOK

izvne, красиво на скрытом листе

Вы правы: сколько ни крутил, самый удобный вариант. Получилось так:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim wsSh As Worksheet
    On Error Resume Next
    Set wsSh = Sheets("xxx")
    If wsSh Is Nothing Then
        Sheets.Add After:=Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = "xxx"
    End If
    Sheets("xxx").Visible = xlSheetVeryHidden
    Sheets("xxx").Cells(1, 1) = Sheets("xxx").Cells(1, 1) + _
                  Application.UserName + " " + Str(Now) + "@"
End Sub

Очень мало опыта у меня с VBA. Что стоит подправить перед тем, как разносить по пользователям? Очень важно, чтобы "лопух не догадался".

@IvanOK · 29.03.2013, 16:45

Сообщение от izvne

Private Sub Workbook_BeforeSave

только не ето а

Visual Basic
1
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Добавлено через 4 минуты

Не по теме:

Сообщение от izvne

лопух не догадался

ну смотря какой лопух

Добавлено через 9 минут

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Контроль" Then Exit Sub
 r = Sheets("Контроль").Cells(1, 1)
 If IsEmpty(r) Then r = 2
 Sheets("Контроль").Cells(r, 1) = Target.Address
 Sheets("Контроль").Cells(r, 2) = Target.Value
 Sheets("Контроль").Cells(r, 3) = Application.UserName
 Sheets("Контроль").Cells(r, 4) = Date & " " & Time
Sheets("Контроль").Cells(1, 1) = r + 1
End Sub

при етом тебе нужно добавить лист контроль и скрить

Добавлено через 36 секунд
и тихо и незаметно без всяких движений

@izvne · 29.03.2013, 16:51 **[ТС]**

IvanOK, вам мой кусок кода совсем не понравился? Он и лист создает, и проверяет, есть ли этот лист, чтобы работать на нем.

Workbook_SheetChange не хочу использовать, т. к. не сохраненные изменения не интересны.

Кстати надо еще на дальние ячейки засунуть статистику и .Font.ColorIndex = 2

@IvanOK · 29.03.2013, 16:58

Сообщение от izvne

не сохраненные изменения не интересны

ну и как ти отловил где изменения и в какой ячейке, и что именно

@izvne · 29.03.2013, 19:39 **[ТС]**

IvanOK, вы меня путаете с MaxAysin. Мой вопрос был озвучен в первом посте темы. Мне просто нужно знать, кто вносил изменения.

Добавлено через 2 часа 5 минут
Всё это хорошо, но возможно ли заставить Workbook_BeforeSave выполнять для всех книг? Личная книга не съедает эту функцию =/

@IvanOK · 29.03.2013, 19:54

Сообщение от izvne

но возможно ли заставить Workbook_BeforeSave

а он и для всех книг просто ты прописал жостко

Сообщение от izvne

wsSh = Sheets("xxx")

Добавлено через 24 секунды

Скрипт · 29.03.2013, 20:12

Чтобы событие возникало для любой Excel-книги, нужно сделать следующее:

создайте в "Personal" модуль класса. Имя класса в данном примере "Class1";

поместите в этот модуль вот этот код:

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

Visual Basic
1
2
3
4
5
6
7
Option Explicit
 
Public WithEvents App As Excel.Application
 
Private Sub App_SheetActivate(ByVal Sh As Object)
    MsgBox "Sheet Activate"
End Sub

создайте обычный модуль;
поместите в этот модуль вот этот код и запустите код:
Кликните здесь для просмотра всего текста
Visual Basic
1 2 3 4 5 6 7 8 9
Option Explicit Dim x As New Class1 Sub Procedure_1() Set x.App = Excel.Application End Sub
ничего не произойдёт, но теперь события, которые будут происходить, будут отслеживаться. В моём примере отслеживается смена активного листа.

@izvne · 31.03.2013, 19:23 **[ТС]**

Скрипт, но опять же Procedure_1() нужно запускать ручками. Есть ли возножность автоматизировать, чтобы при сохранениями пользователями файлов с определенной маской на скрытом листе велась статистика, кто сохранял? Файлы они создают сами, о слежке за ними тоже не хотелось бы чтобы знали.

Скрипт · 31.03.2013, 19:36

izvne, процедуру "Procedure_1" можно поместить в личную книгу макросов, в модуль книги, в событие "Open" и при запуске программы "Excel", будет автоматически запускаться процедура "Procedure_1".

Можно ли сделать скрытно то, что вы хотите, - не знаю. Потому что ходят слухи (сам я не пробовал) - все пароли в "MS Office" взламываются (можно даже в Гугл поискать такую информацию).

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@izvne 0 / 0 / 0 Регистрация: 06.08.2012 Сообщений: 35

	Узнать имена пользователей, работавших с файлом 20.03.2013, 18:53. Показов 15348. Ответов 38 Метки нет (Все метки) Возможно ли это сделать средствами VBA? Нужно собрать данные о пользователях, работавших с файлами в папке. 0

@MaxAysin 0 / 0 / 0 Регистрация: 25.03.2013 Сообщений: 14
	27.03.2013, 16:40
	вот такая фигня получается если импортировать в эксель Миниатюры 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	28.03.2013, 18:17
	izvne, а ты смотрел тему с начала ....или просто решыл так для продолжения разговора? 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	28.03.2013, 18:45
	izvne, красиво на скрытом листе 0

@izvne 0 / 0 / 0 Регистрация: 06.08.2012 Сообщений: 35
	29.03.2013, 16:51 [ТС]
	IvanOK, вам мой кусок кода совсем не понравился? Он и лист создает, и проверяет, есть ли этот лист, чтобы работать на нем. Workbook_SheetChange не хочу использовать, т. к. не сохраненные изменения не интересны. Кстати надо еще на дальние ячейки засунуть статистику и .Font.ColorIndex = 2 0

@izvne 0 / 0 / 0 Регистрация: 06.08.2012 Сообщений: 35
	29.03.2013, 19:39 [ТС]
	IvanOK, вы меня путаете с MaxAysin. Мой вопрос был озвучен в первом посте темы. Мне просто нужно знать, кто вносил изменения. Добавлено через 2 часа 5 минут Всё это хорошо, но возможно ли заставить Workbook_BeforeSave выполнять для всех книг? Личная книга не съедает эту функцию =/ 0

@izvne 0 / 0 / 0 Регистрация: 06.08.2012 Сообщений: 35
	31.03.2013, 19:23 [ТС]
	Скрипт, но опять же Procedure_1() нужно запускать ручками. Есть ли возножность автоматизировать, чтобы при сохранениями пользователями файлов с определенной маской на скрытом листе велась статистика, кто сохранял? Файлы они создают сами, о слежке за ними тоже не хотелось бы чтобы знали. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,578
	31.03.2013, 19:36
	izvne, процедуру "Procedure_1" можно поместить в личную книгу макросов, в модуль книги, в событие "Open" и при запуске программы "Excel", будет автоматически запускаться процедура "Procedure_1". Можно ли сделать скрытно то, что вы хотите, - не знаю. Потому что ходят слухи (сам я не пробовал) - все пароли в "MS Office" взламываются (можно даже в Гугл поискать такую информацию). 0