Chào thầy,
Mình tạo shape & gán vào marco-unblock,
Tuy nhiên, làm sao để hiện "yêu cầu gõ password để unprotect"?
Mong thầy hướng dẫn.
Sub Macro_clock()
'
' Macro_clock Macro
'
'
Sheets("01-04 Jun").Select
ActiveSheet.Protect Password:="acvn"
Sheets("07-11 Jun").Select
ActiveSheet.Protect Password:="acvn"
Sheets("14-18 Jun").Select
ActiveSheet.Protect Password:="acvn"
Sheets("21-25 Jun").Select
ActiveSheet.Protect Password:="acvn"
Sheets("28Jun-02Jul").Select
ActiveSheet.Protect Password:="acvn"
Sheets("Sumary").Select
ActiveSheet.Protect Password:="acvn"
End Sub
Sub Macro_unclock()
'
' Macro_unclock Macro
'
'
Sheets("01-04 Jun").Select
ActiveSheet.Unprotect Password:="acvn"
Sheets("07-11 Jun").Select
ActiveSheet.Unprotect Password:="acvn"
Sheets("14-18 Jun").Select
ActiveSheet.Unprotect Password:="acvn"
Sheets("21-25 Jun").Select
ActiveSheet.Unprotect Password:="acvn"
Sheets("28Jun-02Jul").Select
ActiveSheet.Unprotect Password:="acvn"
Sheets("Sumary").Select
ActiveSheet.Unprotect Password:="acvn"
End Sub
Chào bạn bạn cần unprotect ra trước khi thực hiện hành động nhé
Sub xuly
ActiveSheet.Unprotect Password:="acvn"
//code
ActiveSheet.Protect Password:="acvn"
end sub
chào Tuấn Ba,
Mình đã làm dc, tuy nhiên có cách nào ẩn module ko, vì người sử dụng chung file có kiến thức VBA họ vẫn thay thay đổi & open dc PW
Chào bạn với excel vba bảo mật không ok đâu bạn nhé.
Mục đích của việc khóa, bảo vệ chủ yếu là tránh những hành động vô ý làm sai lệch các vị trí range, sheet dẫn tới code hoạt động không chính xác, còn với những hành vi cố ý mở khóa thì rất khó ngăn chặn.
Do chương trình excel và VBA có tính bảo mật không cao, lại ra đời đã lâu, có rất nhiều cách (và các bài hướng dẫn bẻ khóa) nên việc ngăn chặn phá khóa, bảo mật VBA là không hiệu quả.
Chương trình VBA này cũng ở mức cơ bản thôi nên ko hướng tới tạo ra 1 file có tính bảo mật cao, mà chỉ là dùng được VBA thôi bạn nhé. Nếu muốn tìm hiểu chủ đề này bạn có thể tìm trên 1 số trang như Giải pháp excel hoặc những trang của nước ngoài nhé.