Cách bảo mật để không cho replace (ghi đè) file excel dùng chung (1 người xem)

tuanneu87 · 17/4/15

[h=2][/h]

Xin chào cả nhà, em có một khó khăn nhờ các cao thủ giúp đỡ ạ.

Chuyện là em đang làm việc cùng một nhóm, tạo 1 file excel để mọi người ở các nơi khác nhau có thể dùng chung (edit được) trong mạng LAN. Mỗi người làm trong 1 sheet. Nếu tất cả mọi người đều edit trên file để trên 1 ổ chung và lưu lại thì không có vấn đề gì. Tuy nhiên, trong trường hợp 1 người tải file về, làm trên sheet của mình và paste đè vào thì file dữ liệu chung sẽ mất hết dữ liệu của người khác.

Em muốn bảo mật file để không ai có thể ghi đè lên file chung thì có cách nào không ạ?

Em đang cần gấp xin các Bác cao thủ giúp đỡ ạ.
Em xin hậu tạ!!! %#^#$

KUMI · 17/4/15

Chào bạn,
Mình không đủ điều kiện (nhiều máy) nên không test được,bạn thử thực hiện theo từng bước 1,2,3 như ảnh đính kèm xem được không bạn nhé.

Thanks you.

tuanneu87 · 17/4/15

Mình cũng đã tham khảo qua cách này, tuy nhiên chưa check lại được trong mạng LAN. Để mình test thử lại nhé. Tks bác rất nhiều!

tuanneu87 · 17/4/15

Nhưng theo như mình hiểu thì cách của bác chỉ không cho phép sửa file thôi ạ. Trường hợp của em là vẫn sửa được bình thường nhưng không xóa được -0-/.

chuot0106 · 17/4/15

tuanneu87 đã viết:
Nhưng theo như mình hiểu thì cách của bác chỉ không cho phép sửa file thôi ạ. Trường hợp của em là vẫn sửa được bình thường nhưng không xóa được

Cái này tôi nghĩ khó đấy(Với khả năng của tôi).

KUMI · 17/4/15

tuanneu87 đã viết:
Nhưng theo như mình hiểu thì cách của bác chỉ không cho phép sửa file thôi ạ. Trường hợp của em là vẫn sửa được bình thường nhưng không xóa được

mình cũng không rành lắm, bạn tử tích lần lượt mấy cái đó xem có được không.nếu không được thì mình nghĩ bạn có thể tham khảo ý tưởng sau:
ví dụ bạn để file dữ liệu chia sẻ với nhiều máy trên sever hoặc một máy chủ nào đó đại loại sẽ có đường dẫn cụ thể, ví dụ như:
\\192.168.252.2\PC\Data
sau đó lập trình theo ý của bạn làm sao cho file chia sẽ này chỉ được phép mở (hoạt động trong) thư mục có đường dẫn này thôi còn để chỗ khác file sẽ không chạy được.
-----------
ý của mình là thế,nhưng Gà như mình còn biết đến điều này thì e là nếu ai đó muốn phá của bạn thì bạn cũng khó mà có giải pháp được.

tuanneu87 · 18/4/15

"ví dụ bạn để file dữ liệu chia sẻ với nhiều máy trên sever hoặc một máy chủ nào đó đại loại sẽ có đường dẫn cụ thể, ví dụ như:
\\192.168.252.2\PC\Data
sau đó lập trình theo ý của bạn làm sao cho file chia sẽ này chỉ được phép mở (hoạt động trong) thư mục có đường dẫn này thôi còn để chỗ khác file sẽ không chạy được"

Làm được thế này thì tốt quá, nhưng lập trình như thế nào nhỉ?

Nếu đươc

KUMI · 18/4/15

tuanneu87 đã viết:
"ví dụ bạn để file dữ liệu chia sẻ với nhiều máy trên sever hoặc một máy chủ nào đó đại loại sẽ có đường dẫn cụ thể, ví dụ như:
\\192.168.252.2\PC\Data
sau đó lập trình theo ý của bạn làm sao cho file chia sẽ này chỉ được phép mở (hoạt động trong) thư mục có đường dẫn này thôi còn để chỗ khác file sẽ không chạy được"

Làm được thế này thì tốt quá, nhưng lập trình như thế nào nhỉ?

Nếu đươc

Mình làm ví dụ minh họa bạn tự sửa code theo ý của bạn nhé.
Thanks you!

Mã:

Private Sub Workbook_Open()
    ThisWorkbook.Activate
    If Sheets("Sheet1").[D4].Value = "YES" Then
        MsgBox ("File duoc phep su dung")
        'Thay the cac doan code nhu la mo khoa vung nhap du lieu hoac mo file
           With Sheets("Sheet1")
                .Unprotect Password:="GPE"
                .Range("C16:D26").Locked = False
                .Protect Password:="GPE"
           End With
        Else
        MsgBox ("File khong duoc phep su dung")
            With Sheets("Sheet1")
                .Unprotect Password:="GPE"
                .Range("C16:D26").Locked = True
                .Protect Password:="GPE"
           End With
        'Thay the cac doan code nhu la khoa vung nhap du lieu hoac khong cho mo file
    End If
End Sub

Quang_Hải · 18/4/15

tuanneu87 đã viết:
Xin chào cả nhà, em có một khó khăn nhờ các cao thủ giúp đỡ ạ.

Chuyện là em đang làm việc cùng một nhóm, tạo 1 file excel để mọi người ở các nơi khác nhau có thể dùng chung (edit được) trong mạng LAN. Mỗi người làm trong 1 sheet. Nếu tất cả mọi người đều edit trên file để trên 1 ổ chung và lưu lại thì không có vấn đề gì. Tuy nhiên, trong trường hợp 1 người tải file về, làm trên sheet của mình và paste đè vào thì file dữ liệu chung sẽ mất hết dữ liệu của người khác.

Em muốn bảo mật file để không ai có thể ghi đè lên file chung thì có cách nào không ạ?

Em đang cần gấp xin các Bác cao thủ giúp đỡ ạ.
Em xin hậu tạ!!!

Đặt pass readonly cho file chung thì có lẻ sẽ tạm bảo vệ được file này.

jack nt · 18/4/15

tuanneu87 đã viết:
"ví dụ bạn để file dữ liệu chia sẻ với nhiều máy trên sever hoặc một máy chủ nào đó đại loại sẽ có đường dẫn cụ thể, ví dụ như:
\\192.168.252.2\PC\Data
sau đó lập trình theo ý của bạn làm sao cho file chia sẽ này chỉ được phép mở (hoạt động trong) thư mục có đường dẫn này thôi còn để chỗ khác file sẽ không chạy được"
Làm được thế này thì tốt quá, nhưng lập trình như thế nào nhỉ?

Trong ThisWorkbook

Mã:

Const DEFAULT_PATH = "\\192.168.252.2\PC\Data"

Private Sub Workbook_Open()
    If UCase(ThisWorkbook.Path) <> (DEFAULT_PATH) Then
        '//do something
        ThisWorkbook.Close
    End If
End Sub

Cách bảo mật để không cho replace (ghi đè) file excel dùng chung (1 người xem)

Người dùng đang xem chủ đề này

tuanneu87

Thành viên mới

KUMI

Bụi phấn

tuanneu87

Thành viên mới

tuanneu87

Thành viên mới

chuot0106

Thành viên gắn bó

KUMI

Bụi phấn

tuanneu87

Thành viên mới

KUMI

Bụi phấn

File đính kèm

Quang_Hải

Thành viên gạo cội

jack nt

Thành viên thường trực

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.