làm thế nào để một bảng tính eXcel chỉ có thể lưu được khi có password?

[khanhnth02]

tôi có một file Excel , công ty tôi dùng mạng Lang, làm thế nào để ai cũng có thể nối với máy tôi mở ra xem được nhưng khi lưu (Save) thì đòi hỏi phải có mật khẩu (password) của tôi cho phép thì mới lưu được file này. tôi chân thành cảm ơn mọi thành viên đã xem qua và cho ý kiên!

 

[sealand]

Thử tạm cái đơn giản này xem sao

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If InputBox("Mat Khau:") <> "123" Then
SaveAsUI = False
Cancel = True
End If
End Sub

123 là Password

 

[khanhnth02]

sao hay quá vậy anh, sao cái gì a cũng biết và biết rất giỏi nữa chứ. chân thành cảm ơn anh,
à mà có thể viết thêm dòng code nào nữa để mã hóa password chứ, nhỡ ai đó đứng ngoài nhìn thấy thì ơi hỗi...có thể mã hóa bàn phím đó thành các dấu *****để bảo mật được không anh

 

[sealand]

Nhập Password bằng Inputbox

Bạn tham khảo file nha, nhớ cám ơn Domfootwear đã sưu tầm code nhập Pass nha

(Mật khẩu: 123)

 

[khanhnth02]

vì sao khi em gõ mật khẩu sai thì nó vẫn báo mật khẩu sai , nhưng lại vẫn cho lưu dữ liệu

 

[Nguyễn Duy Tuân]

sao hay quá vậy anh, sao cái gì a cũng biết và biết rất giỏi nữa chứ. chân thành cảm ơn anh,
à mà có thể viết thêm dòng code nào nữa để mã hóa password chứ, nhỡ ai đó đứng ngoài nhìn thấy thì ơi hỗi...có thể mã hóa bàn phím đó thành các dấu *****để bảo mật được không anh

Hình như là khi dùng chức năng "Share Workbook" để sử dụng trong mạng thì không chạy được macro. Có nghĩa là các mã lập trình không chạy được.

 

[khanhnth02]

tại sao khi em đóng bảng tính (beforeclose), nếu đánh sai mật khẩu thì nó thoát ra ngoài luôn. làm sao để nó quay lại excel chứ đừng biến mất để ta gõ lại mật khẩu cho đúng