Làm thế nào để tôi có thể ghi lại nhật ký hoạt động của người dùng trong Excel?
Có cách nào để tôi ghi lại hành động của người dùng mà họ không biết, ví dụ như lưu nhật ký kiểm toán hoặc nhật ký sự kiện không?
Trả lời:
Tại sao bạn không chia sẻ tệp Excel này::: http://office.microsoft.com/en-us/excel-help/track-changes-in-a-shared-workbook-HP010197381.aspx
Trả lời:
Vì tôi nghi ngờ một số thay đổi đang được áp dụng là về định dạng. Ngoài ra, tôi muốn việc theo dõi này không hiển thị với người dùng.
Trả lời:
Chào lại IMKD,
Được rồi, tôi có một ý tưởng về cách bạn có thể làm điều này.
Nếu bạn thêm một đoạn mã vào sự kiện Workbook_BeforeSave, bạn có thể tạo một bản sao của tệp bằng cách thực hiện như sau:
Nếu người dùng thực hiện thao tác Lưu thành:
1) Hủy bỏ thao tác Lưu dưới dạng
2) Mở hộp thoại Lưu dưới dạng bằng cách sử dụng phương thức GetSaveAsFilename . Bạn cần thiết lập để nó hoạt động giống như Excel thông thường nếu bạn không muốn họ nhận ra.
3) Tìm Tên người dùng/ID, sử dụng UserName = Environ("USERNAME")
4) Lưu tệp bằng tên tệp mà người dùng đã nhập (trích xuất tên tệp từ đường dẫn đầy đủ), thêm ID của người dùng vào cuối tên tệp. Lưu tệp đó vào một đường dẫn mạng nào đó để lưu trữ.
5) Lặp lại thao tác lưu, lưu vào vị trí mà người dùng đã định lưu ban đầu.
Sử dụng một số thuộc tính Application.Screenupdating = False ở những vị trí thích hợp để ẩn lần lưu đầu tiên.
Nếu người dùng chỉ thực hiện thao tác Lưu, bạn chỉ cần thực hiện các bước 3-5 như trên.
Hãy xem bài đăng này để biết ví dụ về cách sử dụng sự kiện Workbook_BeforeSave để buộc lưu theo một kiểu cụ thể: http://answers.microsoft.com/en-us/office/forum/office_2007-customize/forcing-a-save-as-to-always-save-as-a-macro/04e3cc9d-e26c-4988-a33b-fcf31f723e8e
Hãy tự mình thử và phản hồi lại nếu bạn cần thêm trợ giúp.
Những thách thức bạn có thể phải khắc phục bao gồm việc ngăn chặn lối tắt đến tệp của bạn xuất hiện trong danh sách tệp gần đây của Excel, và tương tự như vậy, xuất hiện trong danh sách tệp gần đây/danh sách truy cập nhanh của Windows.
Chúc mừng!
Giàu có
Comments
Post a Comment