Как зафиксировать событие (изменение) в книге?

[vikttur]

Картинку забыл

[3BEPOBOY]

vikttur
я немного не понял.
Это вы описали как сохранить данные в книгу?
Меня больше интересует вопрос как отследить, внес полльзователь изменения в файл или нет

[vikttur]

Сообщение от 3BEPOBOY

viktturЭто вы описали как сохранить данные в книгу?

Да, не так понял вопрос.

[VictorM]

И еще вопрос, подскажите пожалуйста какой-нибудь сайт

Посмотрите вот ЗДЕСЬ
Конкретные вопросы, такие же ответы.
Есть и справочник и примеры.
Все лаконично, без "воды"
Можно еще посмотреть ЗДЕСЬ и ЗДЕСЬ

[3BEPOBOY]

VictorM спасибо.
А все-таки подскажите кто-нибудь принцип решения моей задачи. Просто я пока ничего умнее чем при помощи UsedRange копировать весь документ в массив или скрытый лист, а затем сравнивать до тех пор пока не обнаружится различие не придумал. Но уверен, есть более короткий метод, так как при выходе Excel спрашивает сохранять изменения в файле или нет, а значит он где-то хранит эту информацию!

[3BEPOBOY]

Вот так вобщем корявенько наклепал черновое решение своей задачи

Private Sub Auto_Open()
Filecopy

End Sub

Private Sub Auto_Close()
RecordJournal

End Sub

Private Sub Filecopy()

Dim XL1 As Workbook

Set XL1 = ActiveWorkbook

Dim Sheet1 As Excel.Worksheet

Dim Sheet2 As Excel.Worksheet

Set Sheet1 = XL1.Worksheets(1)

'Set Sheet2 = XL1.Worksheets(2)

Set Sheet2 = XL1.Worksheets.Add()

Sheet2.Name = "Буферный лист" 'Присваиваем ему имя "Буферный лист"

Sheet2.Visible = False

'Sheet2.Visible = True

Dim Nach As String
Dim i, k, m, j As Integer

For i = 1 To 10
For j = 1 To 10
Nach = Sheet1.Cells(i, j).Value
If Nach <> "" Then Exit For
Next
Nach = Sheet1.Cells(i, j).Value
If Nach <> "" Then
k = i
m = j
Exit For
End If
Next

Sheet1.UsedRange.Copy _
Destination:=Sheet2.Cells(k, m)

End Sub

Private Sub RecordJournal()

Dim XL1 As Workbook

Set XL1 = ActiveWorkbook

Dim Sheet1 As Excel.Worksheet

Dim Sheet2 As Excel.Worksheet

Set Sheet1 = XL1.Worksheets(1)

Set Sheet2 = XL1.Worksheets(2)

Dim CC, RC As Integer

CC = Sheet1.UsedRange.Columns.Count

RC = Sheet1.UsedRange.Rows.Count

Dim DA As Boolean
Dim Nach, A1, A2, N As String
Dim i, k, m, j, x, y As Integer

DA = False

For i = 1 To 10
For j = 1 To 10
Nach = Sheet1.Cells(i, j).Value
If Nach <> "" Then Exit For
Next
Nach = Sheet1.Cells(i, j).Value
If Nach <> "" Then
k = i
m = j
Exit For
End If
Next

x = k + RC - 1
y = m + CC - 1

For i = k To x
For j = m To y
A1 = Sheet1.Cells(i, j).Value
A2 = Sheet2.Cells(i, j).Value

If A1 <> A2 Then
DA = True
Exit For
End If
Next
If A1 <> A2 Then Exit For
Next


N = App.EXEName
MsgBox N



If DA Then

Dim nResult As Integer
nResult = MsgBox("ВЫ АКТУАЛИЗИРОВАЛИ ФАЙЛ?", vbYesNo, "Окно сообщения")

Dim XL2 As Workbook
Set XL2 = Workbooks.Open("C:\VBA\SOM.xls")
XL2.Worksheets(1).Visible = True
XL2.Worksheets(1).Cells(2, 2).Value = Environ("username")
XL2.Worksheets(1).Cells(2, 4).Value = Now

If nResult = 6 Then
XL2.Worksheets(1).Cells(2, 3).Value = "ДА"
Else
XL2.Worksheets(1).Cells(2, 3).Value = "НЕТ"
End If

XL2.Save
XL2.Close

End If


Application.DisplayAlerts = False

XL1.Sheets("Буферный лист").Delete

End Sub

Предложите что получше, буду благодарен)

И еще, что-то найти не могу, как дернуть из запущенного Excel файла его название или хотя бы полный путь?))

[doober]

Вот так вобщем корявенько наклепал черновое решение своей задачи

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

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

[3BEPOBOY]

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

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

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

я хотел [QUOTE] выделить, но не нашел кнопки, торопился и писать в облом было. Воткнул цвет, вышло классно
Все работает замечательно, правда на маленьких файлах, большие я не смотрел еще. Насколько мне хватает знаний, обращение вида sheets.cells постоянно через сервер идет ил что-то вроде того, поэтому тормозить просто обязано мне кажется. На первой странице EducatedFool с Range наколдовал в своем коде, я вот думаю ничего похожего нельзя замутить? Или хотя бы запись в вариантный массив наверное должна ускорить процесс. Правда как в VBA с памятью я не в курсе пока, впрочем не допетрил и как синтаксически выразить запись диапазона ячеек в массив

doober
файл может быть абсолютно любой. Ну если брать по максимуму... Я больше 100*800 ячеек не видел. Смысл в том что их много, лежат они на открытой папке на компе у начальника, ему их актуализируют сотрудники периодически. А он баклан, не умеет в проводнике сортировать их по дате, сидит и мучается отслеживая изменения.

А вообще я доволен собой, до вчера VBA в глаза не видел, а сегодня уже 1ый макрос готов

[doober]

Как делать запись в лог.
Например изменились ячейки I25,A300,AC111-Лист1,книга Пример.xls

[3BEPOBOY]

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