Có cách nào bảo mật file excel chỉ định máy có thể mở

[tueyennhi]

Cho em hỏi có cách nào để file excel em quy định chỉ một số máy tính chỉ định mới mở được không?

 

[anhdepjai]

Mình đang làm như sau:
1. File Run.xlsm để sử dụng
2. File Setting.xlsx để lưu cài đặt
Khi mở file Run.xlsm nó sẽ tự load phần setting từ file setting.xlsx. Trong file setting này mình đã đặt chỉ những máy (application.username) nào có trong danh sách cài trước thì dữ liệu cần thiết mới hiện lên, còn lại thì ở dạng veryhidden.
Tất nhiên chỉ dùng cho công việc chứ ko phải để giấu thông tin

Ngoài ra, nếu bạn ko làm như thế thì share file theo từng user trong mạng lan cũng đc mà

 

[ongke0711]

Cho em hỏi có cách nào để file excel em quy định chỉ một số máy tính chỉ định mới mở được không?

Tại sao bạn không dùng Form Đăng nhập nhỉ? Chủ động tạo User, khỏi phải kiểm tra các máy tính rồi cập nhật Computer User.

 

[tueyennhi]

Tại sao bạn không dùng Form Đăng nhập nhỉ? Chủ động tạo User, khỏi phải kiểm tra các máy tính rồi cập nhật Computer User.

Bạn có thể chỉ kĩ hơn cho mình được không? File cũng không có gì nhiều ngoài vài chục sheet. Mình muốn chỉ máy tính nào đó mở được thôi và khi mở có pass đăng nhập. Nhập đúng thì hiện hết các sheet ra. Cái mình muốn là chỉ định máy, nghĩa là nếu chỉ cho máy A mở thì máy B có pass user cũng không mở được.

 

[ongke0711]

Bạn có thể chỉ kĩ hơn cho mình được không? File cũng không có gì nhiều ngoài vài chục sheet. Mình muốn chỉ máy tính nào đó mở được thôi và khi mở có pass đăng nhập. Nhập đúng thì hiện hết các sheet ra. Cái mình muốn là chỉ định máy, nghĩa là nếu chỉ cho máy A mở thì máy B có pass user cũng không mở được.

Oh vụ này thì lại khác vụ User đăng nhập thuần tuý rồi.
Vậy thì dùng một thủ thuật là lưu thông tin đăng nhâp vào một sheet nào đó. Ví dụ: cột [Trạng thái đăng nhập] = On
- Khi một User nào đó mở file đăng nhập, sẽ chạy code kiểmm tra trạng thái đang ON hay OFF -> cho vào hay không.
- Khi User đóng Workbook sẽ thiết lập field [Trạng thái] = OFF.
Cách làm này phải còn tính tới vụ cúp điện, file bị crashed ... thoát đột ngột nên Workbook chưa trả về trạng thái OFF. Khi đó buộc phải cầu cứu tới User Admin vô để trả lại thiết lập OFF cho Workbook. User "Admin" đăng nhập không cần phải qua code kiểm tra ON/OFF.
Ý tưởng thiết kế là vậy, bạn mày mò tiếp nhé.

Trước đây tôi cũng có bài chia sẻ vụ tạo form Đăng nhập, bạn có thể tham khảo thêm.
Link: https://www.giaiphapexcel.com/diend...nhập-và-phân-quyền-cơ-bản.148824/#post-963345

 

[VetMini]

Ở diễn đàn này đã có bài nói về dùng số serial ổ cứng để xác định máy nào được mở file rồi. Chịu khó tìm.

Chú: tôi chỉ nhắc vậy thôi, chuyện bảo mật được hay không thì tuỳ theo quan điểm mỗi người.

 

[tueyennhi]

Ở diễn đàn này đã có bài nói về dùng số serial ổ cứng để xác định máy nào được mở file rồi. Chịu khó tìm.

Chú: tôi chỉ nhắc vậy thôi, chuyện bảo mật được hay không thì tuỳ theo quan điểm mỗi người.

Hôm qua em cũng nghĩ mãi không nhớ, cứ nghĩ cái gì liên quan đến CPU. Cảm ơn anh nhé! Bài này em có đọc một lần. Để em mò thử.

 

[Quang_Hải]

Hôm qua em cũng nghĩ mãi không nhớ, cứ nghĩ cái gì liên quan đến CPU. Cảm ơn anh nhé! Bài này em có đọc một lần. Để em mò thử.

Bạn tham khảo cách đọc ổ đĩa mình đang sử dụng nha. Tuy nhiên, cách bạn đang làm có thể không khoa học.

Sub GetSerialNumber()
MsgBox Abs(MySubFso.SerialNumber)
End Sub
Function MyFso()
Set MyFso = CreateObject("Scripting.FileSystemObject")
End Function
Function MySubFso()
Set MySubFso = MyFso.GetDrive(Environ("SystemDrive"))
End Function

 

[tueyennhi]

Bạn tham khảo cách đọc ổ đĩa mình đang sử dụng nha. Tuy nhiên, cách bạn đang làm có thể không khoa học.

Sub GetSerialNumber()
MsgBox Abs(MySubFso.SerialNumber)
End Sub
Function MyFso()
Set MyFso = CreateObject("Scripting.FileSystemObject")
End Function
Function MySubFso()
Set MySubFso = MyFso.GetDrive(Environ("SystemDrive"))
End Function

Mong anh cho lời khuyên?

 

[Quang_Hải]

Vậy theo anh nên đi bước nào tốt hơn?

Tùy theo mô hình công việc mà mình sẽ linh hoạt cho phù hợp. Người ngoài không thể có ý hay hơn người trong cuộc đâu
Cách mình đang quản lý dữ liệu thế này

Mỗi người sẽ làm việc trên file của họ. Khi họ lưu file thì sẽ tự động được copy một bản lên thư mục chỉ định thông qua mạng LAN
Như vậy mỗi người sẽ có một file trên máy họ và một bản copy trên thư mục chung.
Ta sẽ viết code 1 file quản lý để tổng hợp dữ liệu từ các file này.
Ý tưởng là vậy, bạn xem coi có áp dụng được gì không
Thân ái

 

[iloveit]

Bạn tham khảo cách đọc ổ đĩa mình đang sử dụng nha. Tuy nhiên, cách bạn đang làm có thể không khoa học.

Sub GetSerialNumber()
MsgBox Abs(MySubFso.SerialNumber)
End Sub
Function MyFso()
Set MyFso = CreateObject("Scripting.FileSystemObject")
End Function
Function MySubFso()
Set MySubFso = MyFso.GetDrive(Environ("SystemDrive"))
End Function

cái này khi cài win lại thì số Seri của ổ cứng có thay đổi không anh Hải.

 

[Kiều Mạnh]

đừng lấy ổ cài Windows là ok đó
nếu muốn ko đổi thì nên lấy Serial main đó

 

[befaint]

đừng lấy ổ cài Windows là ok đó
nếu muốn ko đổi thì nên lấy Serial main đó

Mới đổi Mainboard rồi anh.

 

[Kiều Mạnh]

Mới đổi Mainboard rồi anh.

vẫn cái cũ mà

Tám 1 tí
1/ Suy cho cùng Excel thì mật với mỡ cái gì ... khó nhất là Pass Open họ cũng mở ra đó chi
2/ dễ viết nhất là DLL VB6 mà nhiều người lại chê là đồ cổ ... mà hỏi lại có biết viết đồ cổ hay ko thì lại ko có biết
3/ chịu khó mò chút như mạnh thì viết Delphi đó là hàng mới thì keo khó không biết mò từ đâu và bắt đầu như thế nào
4/ có bạn Mạnh cho tài liệu Delphi hay giới thiệu link thì chê sách đó Web đó kiến thức quá cũ .... vãi kinh luôn
5/ có bạn hỏi mình nhờ Anh chỉ Delphi cho em 1 to 2 tháng gì đó là như anh ... Mình keo chỉ có qua Mỹ nó gắn cho con chíp vào não ấy cho nó nhanh
..................

 

[VetMini]

Mới đổi Mainboard rồi anh.

vẫn cái cũ mà

Hai thằng này có mao-que thả vào máy người ta để đọc được mấy cái sia-ri-ô hay sao đấy!

 

[befaint]

Hai thằng này có mao-que thả vào máy người ta để đọc được mấy cái sia-ri-ô hay sao đấy!

Vụ này là hiểu nhầm hội thoại thôi anh. "Em nói gà, anh ấy nói vịt".

Anh ấy bảo dùng thông tin Mainboard
Ý em bảo là đổi (thay) Mainboard rồi, không dùng được File nữa.

 

[VetMini]

Vụ này là hiểu nhầm hội thoại thôi anh. "Em nói gà, anh ấy nói vịt".

Anh ấy bảo dùng thông tin Mainboard
Ý em bảo là đổi (thay) Mainboard rồi, không dùng được File nữa.

Theo tôi hiểu lời bài #13 thì bạn báo cho hắn là [thớt] đã thay mainboard. Và theo lời bài #14 thì hắn ta khẳng định là [thớt] chưa thay.
Không có mao-que trong máy người ta thì làm gì biết hay vậy?

 

[befaint]

Theo tôi hiểu lời bài #14 thì hắn ta khẳng định là [thớt] chưa thay mainboard mờ.

Anh ấy hiểu lầm em nói anh ấy mới đổi mainboard thôi.

 

[tueyennhi]

vẫn cái cũ mà

Tám 1 tí
1/ Suy cho cùng Excel thì mật với mỡ cái gì ... khó nhất là Pass Open họ cũng mở ra đó chi
2/ dễ viết nhất là DLL VB6 mà nhiều người lại chê là đồ cổ ... mà hỏi lại có biết viết đồ cổ hay ko thì lại ko có biết
3/ chịu khó mò chút như mạnh thì viết Delphi đó là hàng mới thì keo khó không biết mò từ đâu và bắt đầu như thế nào
4/ có bạn Mạnh cho tài liệu Delphi hay giới thiệu link thì chê sách đó Web đó kiến thức quá cũ .... vãi kinh luôn
5/ có bạn hỏi mình nhờ Anh chỉ Delphi cho em 1 to 2 tháng gì đó là như anh ... Mình keo chỉ có qua Mỹ nó gắn cho con chíp vào não ấy cho nó nhanh
..................

Chắc VB6 thì cũng tựa tựa VBA anh nhỉ. Chỉ bê nguyên code viết trên VBA excel qua rồi tạo dll??

 

[Quang_Hải]

cái này khi cài win lại thì số Seri của ổ cứng có thay đổi không anh Hải.

Mỗi lần cài win lại là số serial bị thay đổi. Cần phải chạy lại code để lấy serial mới.