Gán phím tắt cho code không chạy.

[LuuAnh980]

Em có đoạn code:

Sub MoKhoa()
Sheet1.Unprotect Password:="GPE"
Sheet2.Visible = xlSheetVisible
Sheet3.Visible = xlSheetVisible
Sheet1.Range("D1").EntireColumn.Hidden = False
End Sub

Code trong Module ạ.
Em gán là Ctrl+q, xong em lưu.
Nhưng khi em mở lên, nhấn phím Ctrl+q mà không chạy code ạ.
Mong các anh giúp đỡ.

 

[VetMini]

Em có đoạn code:

Sub MoKhoa()
Sheet1.Unprotect Password:="GPE"
Sheet2.Visible = xlSheetVisible
Sheet3.Visible = xlSheetVisible
Sheet1.Range("D1").EntireColumn.Hidden = False
End Sub

Code trong Module ạ.
Em gán là Ctrl+q, xong em lưu.
Nhưng khi em mở lên, nhấn phím Ctrl+q mà không chạy code ạ.
Mong các anh giúp đỡ.

Làm cách nào bạn biết nó "không chạy"?

 

[LuuAnh980]

Làm cách nào bạn biết nó "không chạy"?

Nó không hiện sheet2 và sheet3 và không unprotect sheet1 Bác @VetMini ơi.

 

[VetMini]

Gán thêm như vầy:

Sub MoKhoa()
MsgBox "toi co chay, dung vu oan toi"
Sheet1.Unprotect...

 

[LuuAnh980]

Có chạy thiệt Bác @VetMini ơi.
Xin lỗi Bác nha.