Nhập pass word cho file xla (1 người xem)

[tranvanhung2009]

Chào các bạn, do tính chất công việc nên em phải bảo mật cho 1 file xla.
Giả sử em có 2 file xla là A và B. File A.xla chứa mật mã mở của file B.xla
File A.xla luôn trong tình trạng kích hoạt hoặc được mở trước file B.xla; khi file B.xla được mở lên thì yêu cầu đòi mật khẩu. File A.xla nhận được lệnh thì tự động nạp mật khẩu cho file B. Sau đó file B được mở.

Nói nôm na là thế này: File file A.xla thay mình tự động nhập mật khẩu biết trước do mình đặt cho file B.xla

Xin cám ơn cả nhà trước ạ!

 

[Quang_Hải]

Chào các bạn, do tính chất công việc nên em phải bảo mật cho 1 file xla.
Giả sử em có 2 file xla là A và B. File A.xla chứa mật mã mở của file B.xla
File A.xla luôn trong tình trạng kích hoạt hoặc được mở trước file B.xla; khi file B.xla được mở lên thì yêu cầu đòi mật khẩu. File A.xla nhận được lệnh thì tự động nạp mật khẩu cho file B. Sau đó file B được mở.

Nói nôm na là thế này: File file A.xla thay mình tự động nhập mật khẩu biết trước do mình đặt cho file B.xla

Xin cám ơn cả nhà trước ạ!

Kiến thức mình nông cạn nhưng mình cảm giác nó sao sao ấy và chắc là không làm được đâu. Tìm hướng khác đi cho nhanh.
99% là không được. Vì mình cũng đang mong bài giải này đấy.

 

[anhdepjai]

Bạn thử dùng 2 file này xem đúng yêu cầu chưa nhé!Hiện mình để pass thay đổi sau 100s. Nếu muốn pass thay đổi sau 10s thì bạn vào VBa file check, sửa cái chỗ ps = Workbooks(i).Sheets("sheet1").Range("C4") thành ps = Workbooks(i).Sheets("sheet1").Range("B4").