Khóa không chạy code khi file đang ở read-only (1 người xem)

[kimanh17]

Chào mọi người mình có vấn đề mong đc giúp đỡ là có cách nào để khóa không cho file chạy code khi ở chế độ read-only ko vì file của mình chia sẽ qua ổ mạng LAN nên khi có người dùng đang mở mà người khác lại mở nữa chạy code sẽ báo lỗi...Mong mọi ng giúp đỡ ạ!

 

[Kiều Mạnh]

Chào mọi người mình có vấn đề mong đc giúp đỡ là có cách nào để khóa không cho file chạy code khi ở chế độ read-only ko vì file của mình chia sẽ qua ổ mạng LAN nên khi có người dùng đang mở mà người khác lại mở nữa chạy code sẽ báo lỗi...Mong mọi ng giúp đỡ ạ!

1/ Bạn thử dùng code kiểm tra files đó là mở chưa ...nêu chưa mở thì cho nó mở ...Mình chưa thử trong LAN

2/ Bạn thử nghiên Cứu Access xem Tạo 1 DataBase Link hết dữ liệu các File Excel từ các máy khác nhau trong LAN vào đó...

Xong máy nào có nhu cầu gì truy xuất trong đó...

3/ Cái hay của link dữ liệu đó là : dữ liệu luôn luôn cập nhật thời gian thực với Excel ...khi trên Excel thay đổi thì trong DataBase nó cũng thay đổi theo vv ...

hay tận dụng sự yêu việt đó linh hoạt trong ứng dụng của mình ....HẾT phim

 

[kimanh17]

1/ Bạn thử dùng code kiểm tra files đó là mở chưa ...nêu chưa mở thì cho nó mở ...Mình chưa thử trong LAN

2/ Bạn thử nghiên Cứu Access xem Tạo 1 DataBase Link hết dữ liệu các File Excel từ các máy khác nhau trong LAN vào đó...

Xong máy nào có nhu cầu gì truy xuất trong đó...

3/ Cái hay của link dữ liệu đó là : dữ liệu luôn luôn cập nhật thời gian thực với Excel ...khi trên Excel thay đổi thì trong DataBase nó cũng thay đổi theo vv ...

hay tận dụng sự yêu việt đó linh hoạt trong ứng dụng của mình ....HẾT phim

Cám ơn bạn, mi2nhc ần giúp vấn đề 1 mà bạn nêu đó nhưng ko biết làm sao, có tìm code trên diễn đàn nhưng mình xem ko hiểu gì hết mong bạn giúp đỡ với...

 

[Vô danh Tiểu tốt]

Đơn giản thế này thôi:

    If ActiveWorkbook.ReadOnly Then
        MsgBox "Read nè"
    Else
        MsgBox "Write nè"
    End If

 

[kimanh17]

Đơn giản thế này thôi:

    If ActiveWorkbook.ReadOnly Then
        MsgBox "Read nè"
    Else
        MsgBox "Write nè"
    End If

Cám ơn bạn nhiều nha, vì cũng mới tìm hiểu nên mình ko biết nhiều cái quá!!