Я таким способом мониторю изменения в файл и если что-то случилось я смогу посмотреть последние значения или использовать как резервную копию.
Плюс в том что запись происходит незаметно.
1. если файл не сохранится я могу посмотреть все что вводил до этого. У меня бил случай когда ни файл ни копия которая создается через vba не сохранилось и тога я нашел этот макрос и проблема пропала, если что я могу посмотреть кто что и когда менял.
2. Работает но только если макрос в листе
3. это я обхожу вытягиваем значений с ячеек через форму
Код |
---|
Private Sub EditList_Click()
'Dim lLastRow As Long
' lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
' If IsNumeric(Cells(lLastRow, 1)) Then _
'Cells(lLastRow + 1, 1).Value = Cells(lLastRow, 1).Value + 1 Else _
'Oae eonie oi aeua aiaaaey? a inoaii?e ?yaie oaaeeo? oaeno
Cells(myRow, 2).Resize(, 10) = Array(CDate(Me.MyDate), exp.Value, inc.Value, _
gru.Value, pgr.Value, cat.Value, pca.Value, , , Opys.Value)
Close #1
filepath = ThisWorkbook.Path & "\"
'Filename = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) & "_log.txt"
Filename = "LOG_EXCEL.txt"
Open filepath & Filename For Append As #1
On Error Resume Next
Print #1, Application.UserName; " " & Date & " " & Time & " "; ThisWorkbook.Name & " "; ActiveSheet.Name & " " & ActiveCell.Address; ";", _
; Me.MyDate & ";" _
; exp.Value & ";" & inc.Value & ";", _
gru.Value & ";" & pgr.Value & ";" & cat.Value & ";" & pca.Value & " ;" & " ;" & " ;" & Opys.Value
On Error Resume Next
Close #1
original = Target.Text
'Cells(myRow, 6) = pgr.Value
'Opys.ValueClear
'Clear ia?aiao? ?enoeou aai? iiey ye? aea?ao aea ?iainu iai?ao??
EditMyForm.Hide
End Sub
|