Chào bạn
leuk,
Như mọi người đã chia sẻ ở những bài trước, việc bảo mật VBA của excel rất kém. Tuy nhiên ví dụ bên dưới bạn có thể tham khảo (mục đích học tập là chính nhé).
1. Tạo 1 userform có 2 ô textbox là ID Máy và Password
2. ID máy có thể lấy như thông số CPU, số Series của ổ cứng, hoặc Series của Mainboard.
3. Mã hóa ID này bằng các thuật toán mã hóa và trả về 1 chuỗi, được gọi là Password
4. Khi mở file excel lên thì cho hiện form lên, chạy code lấy thông số máy tính ==> họ gửi thông số này cho bạn, bạn có 1 file riêng để trả về chuỗi sau khi mã hóa ==> bạn gửi lại đoạn chuỗi này cho người dùng để họ đăng nhập ==> Khi đăng nhập, bạn cần có 1 đoạn code để mã hóa thông số máy và so sánh với giá trị của textbox Password, nếu đúng thì ghi xuống 1 sheet ẩn xác định là file đã đăng ký bản quyền để lần sau mở thì không phải nhập pass nữa. Nếu sai thì thông báo Pass không đúng hoặc file chưa đăng ký.
5. Nếu người dùng mở file này ở máy khác, một đoạn code sẽ kiểm tra lại thông số máy mới đã được mã hóa với pass đã lưu trước đó ==> Không khớp thì ra thông báo file chưa đăng ký trên máy này kèm theo số điện thoại của bạn/hoặc email của bạn.
Bạn có thể tham khảo thêm một số bài tại đây để nghiên cứu thêm nhé:
1. Tạo form đăng nhập trong Excel:
Chào các bạn! Mình có làm một bài Excel tạo form đăng nhập nhưng mình chưa tạo được form thay đổi thông tin đăng nhập khi đăng nhập đúng. Do đó, khi muốn thay đổi phải mở Vba lên để mà thay đổi trong đó. Rất là phiền phức. Bạn nào biết thì chỉ dùm nhe. Tải file đính kèm xem thử nhe! Xin cám ơn...
www.giaiphapexcel.com
2. Mã hóa chuỗi ID của CPU máy tính:
Với code Sub GetCPUID() khi chạy sẽ hiện thông báo mã ID của CPU máy tính. Giờ mình muốn mã hóa chuỗi ID CPU này làm sao giống như là KEY. (VD: 72D2Y-R2D7F-HG6TM chẳng hạn) Mình xin chân thành cảm ơn ! Sub GetCPUID() Set objWMIService =...
www.giaiphapexcel.com
3. Code cấp key bản quyền cho file excel:
kisper tai sao khong tao key duoc nhi
www.giaiphapexcel.com
4. Các thuật toán mã hóa cơ bản:
Hoặc tham khảo một số link tiếng Anh:
I am interested if it's possible to do string encryption/decryption using Excel Visual Basic and some cryptographic service provider. I have found a walk-through Encrypting and Decrypting Strings in
stackoverflow.com
Learn more about: Walkthrough: Encrypting and Decrypting Strings in Visual Basic
docs.microsoft.com
Hi, Does anyone know how to encrypt a connection string in VBA? Thanks
www.mrexcel.com
Hy vọng bài viết hỗ trợ được chút ít gì đó cho bạn.