Tính số lần mở File

[doi_trai_co_don]

Tôi có vấn đề thế này: CTy tôi đang sử dụng mạng LAN và tôi có File Excel chia sẻ cho mọi người cùng tham khảo. BẠn nào có thể viết VBA hay CT để mình biết được có bao nhiêu người đã mở File của mình ra không ( nếu biết được IP càng tốt), trong ngày cũng được.
Thân

 

[trandangkhoi]

Vấn đề này dùng excel thì không biết có được không. Chứ dùng những thứ khác thì Ok.

 

[DOSNET]

Nếu đếm số người đã mở file thì có thể làm được, nhưng biết được IP thì hơi khó đấy.

 

[Duong gia]

Đếm số lần mở file Excel

1/ Bạn mở module và thêm đoạn mã sau : Sub Count() mycount = Range("a1") + 1 Range("a1") = mycount End Sub 2/ Trong Thisworkbook thêm đoạn mã sau: Private Sub Workbook_Open() Call Count End Sub

 

[Lam_A0]

1/ Bạn mở module và thêm đoạn mã sau :

Sub Count()
mycount = Range("a1") + 1
Range("a1") = mycount
End Sub

2/ Trong Thisworkbook thêm đoạn mã sau:

Private Sub Workbook_Open()
Call Count
End Sub

Có một vấn đề là nếu range("a1") đang chứa dữ liệu thì dữ liệu có thể bị xóa mất. Bạn nên sử dụng msgbox để đưa ra thông báo về số lần truy cập.

 

[nvson]

Xác định IP

Bạn tham khảo File sau
(Sưu tầm)

 

[DOSNET]

Bạn tham khảo File sau
(Sưu tầm)

Thanks bác, File của bác chỉ kiểm tra được IP của máy share file thôi, ý tác giả là kiểm tra IP nào đã open file mà bác.

 

[SoiBien]

Có một vấn đề là nếu range("a1") đang chứa dữ liệu thì dữ liệu có thể bị xóa mất. Bạn nên sử dụng msgbox để đưa ra thông báo về số lần truy cập.

Đây chỉ là ý tưởng thôi mà, đương nhiên phải ghi vào một sheet nào đó, sheet đó phải hide hoặc veryhide, protect nữa không chừng!!!!!

 

[Lam_A0]

Đây chỉ là ý tưởng thôi mà, đương nhiên phải ghi vào một sheet nào đó, sheet đó phải hide hoặc veryhide, protect nữa không chừng!!!!!

Hi, em biết vậy nên cũng chỉ đưa ra ý tưởng thôi mà. Có thể phát triển thành đếm số lần mở file trong 24h, hoặc từ lần mở file trước của admin,... em nghĩ sẽ thiết thực hơn.

 

[chicuong]

Chủ đề này hay đấy!
Các cao thủ giúp một tay với

 

[doi_trai_co_don]

Gửi Duong_Gia.
Code của bạn phần nào đã giải quyết vấn đề của tôi. Nhưng nếu người mở File sau khi xem xong rồi đóng lại mà không "SAVE" thì file cũng không đếm lần mở đó, mà tôi muốn khi có người nào đó mở thì phải lưu lại cơ.
Mong được sự trợ giúp

 

[BNTT]

Bạn vào VisualBasic(Alt-F11), mở (double-click) ThisWorkbook ở cột bên trái (Microsoft Excel Object) và thêm đoạn code này vào:

Private Sub Workbook_BeforeClose(CANCEL As Boolean)
ActiveWorkbook.Save
End Sub
​

File của bạn trước khi được đóng lại sẽ tự động lưu cho dù người xem không chọn Save.

Thân.

 

[SoiBien]

Em nghĩ, cái code save này nên nằm ngay sau code tăng biến đếm thì có vẻ hợp lý hơn.

 

[BNTT]

Em nghĩ, cái code save này nên nằm ngay sau code tăng biến đếm thì có vẻ hợp lý hơn.

Nghĩa là vừa mở file ra là đếm và lưu ngay để tạo "sự cố" đếm ? Nghe cũng có lý đấy chứ nhỉ.

 

[digita]

Tôi nghĩ các code các bạn dưa ra đều vô hiệu nếu người xài không chịu cho chạy macro khi mở file (tức là macro disable). Mà mở file ở dạng disable macro thì chỉ có trời mới biết là file đã được mở ra bao nhiêu lần.

Muốn tắt luôn cái disable macro thì bạn coi cái bài # 8 trong link sau do anh Duy Tuấn viết:

http://www.giaiphapexcel.com/forum/showthread.php?t=5450

Nếu file được xài trong điều kiện share trong LAN thì càng rắc rối. Làm thế nào tắt hết cái option disable macro cho tất cả máy trong LAN?

 

[SoiBien]

Muốn tắt luôn cái disable macro thì bạn coi cái bài # 8 trong link sau do anh Duy Tuấn viết:

Nếu file được xài trong điều kiện share trong LAN thì càng rắc rối. Làm thế nào tắt hết cái option disable macro cho tất cả máy trong LAN?

Bài này đâu phải là tắt Disable Macro đâu bạn, với lại đừng đổi tên bác ấy chứ, bác ấy tên là Duy Tuân. Hì hì!

 

[digita]

Ý mình là nếu không phòng trường hợp có người không muốn mở file cho macro enable thì không thể đếm chính xác số lần mở được, anh bạn Sói biển à. Khi viết code phải cần có những phòng hờ trước các trường hợp ngoài ý muốn nữa chứ.

Thì tôi nêu đúng tên tác giả code đấy chứ. Trong diễn đản có nhiêu quí vị tên Tuấn nên tôi mới nói tên lót của anh bạn đó để không nhầm lẩn.

Mến