Hiển thị hộp thông báo khi cho chạy macro

[trantuonganh2008]

Mình có một macro xóa dữ liệu & gán cho chạy macro bằng combo box. Cho mình hỏi ngoài việc khi mở file lên click vào "Disable macro" để vô hiệu hóa macro này còn cách nào khác, chẳng hạn hiện hộp thông báo nhắc nhở có chắc thực hiện macro này không bằng cách nhấp vào "Yes" hoặc "No". Nhờ các bạn giúp mình vì nếu lỡ có ai click vào điều khiển thì dữ liệu sẽ mất hết. Thân.

 

[Pozsi]

Bạn thêm đoạn code này vào trong Macro là được thôi! (Bạn nhấn Alt + F11 để hiện code lên nhé!)

If vbOK = MsgBox("Nhac nho, can trong", vbOKCancel + vbInformation) Then
Unload Me
End If

Hoặc ko biết thì đưa file lên. Vậy là ổn thôi!
Chúc vui.

 

[Hai Lúa Miền Tây]

Mình có một macro xóa dữ liệu & gán cho chạy macro bằng combo box. Cho mình hỏi ngoài việc khi mở file lên click vào "Disable macro" để vô hiệu hóa macro này còn cách nào khác, chẳng hạn hiện hộp thông báo nhắc nhở có chắc thực hiện macro này không bằng cách nhấp vào "Yes" hoặc "No". Nhờ các bạn giúp mình vì nếu lỡ có ai click vào điều khiển thì dữ liệu sẽ mất hết.

Thân.

Bạn thử code sau:

Sub test()
    answr = MsgBox("Ban co muon chay Macro khong ?", vbYesNo)
    If answr = vbYes Then
      [A1].Value = 10 * 2 'Dieu kien khi click yes
    Else
      [A1].Value = 0 'Dieu kien khi click No
    End If
       
End Sub

Tham khảo thêm file nhé
Thân