Có cách nào khóa chức năng Alt+F8 không ạ? (1 người xem)

[KUMI]

Dear,GPE!
Có cách nào khóa chức năng Alt+F8 không ạ?

Ví dụ em tạo 1 Module code: với chức năng mở toàn bộ password của cả sheet lẫn woordbook
Em đặt tên cho sub code này là: UnlockAll
và em đã đặt pass vba.
nhưng khi mở Alt+F8 lên thì sẽ thấy tên code.
Bấm Run thj code hoạt động bình thường...
Như vậy các bảo mật sẽ không còn tác dụng nữa.

Mong GPE chỉ giáo cho ạ!
Xin cám ơn!

 

[Quang_Hải]

Dear,GPE!
Có cách nào khóa chức năng Alt+F8 không ạ?

Ví dụ em tạo 1 Module code: với chức năng mở toàn bộ password của cả sheet lẫn woordbook
Em đặt tên cho sub code này là: UnlockAll
và em đã đặt pass vba.
nhưng khi mở Alt+F8 lên thì sẽ thấy tên code.
Bấm Run thj code hoạt động bình thường...
Như vậy các bảo mật sẽ không còn tác dụng nữa.

Mong GPE chỉ giáo cho ạ!
Xin cám ơn!

Đơn giản vấn đề lại tí xíu là được rồi. Ví dụ bạn gán thêm 1 dk để code hoạt động, Chẳng hạn tại A1 phải nhập 12345 thì code mới chạy, nếu không thì code không chạy

 

[nghiaphuc]

Dear,GPE!
Có cách nào khóa chức năng Alt+F8 không ạ?

Ví dụ em tạo 1 Module code: với chức năng mở toàn bộ password của cả sheet lẫn woordbook
Em đặt tên cho sub code này là: UnlockAll
và em đã đặt pass vba.
nhưng khi mở Alt+F8 lên thì sẽ thấy tên code.
Bấm Run thj code hoạt động bình thường...
Như vậy các bảo mật sẽ không còn tác dụng nữa.

Mong GPE chỉ giáo cho ạ!
Xin cám ơn!

1. Cách đơn giản nhất để không hiện tên Sub khi nhấn Alt+F8 là bạn thêm từ khóa Private vào trước từ Sub. Ví dụ: Thay vì Sub Test thì bạn gõ Private Sub Test.
2. Cách thứ 2: Ở đầu sub cần chặn, bạn sử dụng Input box để nhận 1 chuỗi nhập vào, kiểu như nhập Password vậy đó, khi nào đúng với từ khóa do mình chỉ định thì code mới chạy.
2. Cách thứ 3: Dùng phương thức Application.OnKey, bạn tham khảo topic này nhé.

 

[KUMI]

Đơn giản vấn đề lại tí xíu là được rồi. Ví dụ bạn gán thêm 1 dk để code hoạt động, Chẳng hạn tại A1 phải nhập 12345 thì code mới chạy, nếu không thì code không chạy

Ồ ý tưởng của Thầy rất hay! Nhưng mà cũng chưa phải là hữu hiệu vì còn nhiều sub khác liên kết với nhau...cũng khó nhỉ.
Em sẽ tìm hiểu thêm trong bài của Thầy Phúc.
Nghĩa là vẫn không có cách vô hiệu alt+F8 rồi hihi!
Tks ạ!

 

[nghiaphuc]

Ồ ý tưởng của Thầy rất hay! Nhưng mà cũng chưa phải là hữu hiệu vì còn nhiều sub khác liên kết với nhau...cũng khó nhỉ.
Em sẽ tìm hiểu thêm trong bài của Thầy Phúc.
Nghĩa là vẫn không có cách vô hiệu alt+F8 rồi hihi!
Tks ạ!

Cách thứ 3 trong bài của mình chính là vô hiệu Alt+F8 đấy. Bạn tham khảo topic trong đường link và chế biến theo ý mình đi là được thôi mà. Ví dụ vầy nè:

Sub Auto_Open()
    Application.OnKey "%{F8}", "ABC"
End Sub

Sub ABC()
    MsgBox "Khong choi a nghen!"
End Sub

Sub Auto_Close()
    Application.OnKey "%{F8}"
    Application.CommandBars("Standard").Reset
End Sub

 

[Hong.Van]

Dear,GPE!
Có cách nào khóa chức năng Alt+F8 không ạ?

Ví dụ em tạo 1 Module code: với chức năng mở toàn bộ password của cả sheet lẫn woordbook
Em đặt tên cho sub code này là: UnlockAll
và em đã đặt pass vba.
nhưng khi mở Alt+F8 lên thì sẽ thấy tên code.
Bấm Run thj code hoạt động bình thường...
Như vậy các bảo mật sẽ không còn tác dụng nữa.

Mong GPE chỉ giáo cho ạ!
Xin cám ơn!

Thử cái này xem sao!
Mở File Enable ...
Bấm thử F8, F11 xem sao

 

[KUMI]

Cách thứ 3 trong bài của mình chính là vô hiệu Alt+F8 đấy. Bạn tham khảo topic trong đường link và chế biến theo ý mình đi là được thôi mà. Ví dụ vầy nè:

Sub Auto_Open()
    Application.OnKey "%{F8}", "ABC"
End Sub

Sub ABC()
    MsgBox "Khong choi a nghen!"
End Sub

Sub Auto_Close()
    Application.OnKey "%{F8}"
    Application.CommandBars("Standard").Reset
End Sub

ồ! hihi tks các Thầy nhiều ạ! (có cả file kèm nữa (^_-))
Em làm được rồi!
Em chưa kịp xem bài của Thầy Phúc nên chưa biết cách 3!
Nhưng khi lỡ gửi đi rồi em mới nhận ra cách 3 của Thầy, Hi hi!
Cám ơn các Thầy nhiều nhé!