làm sao để macro hỏi trước khi thực thi (1 người xem)

[nguyenquyenlttk]

em tạo một macro đơn giản để in và gắn cho nó 1 nút bấm. nhiều khi vô tình bấm vào là nó in. nên e muốn nó phải hỏi mình xem có muốn in không mình đồng ý thì nó mới in. Các Bác xem giúp e vơi.

 

[Kiều Mạnh]

em tạo một macro đơn giản để in và gắn cho nó 1 nút bấm. nhiều khi vô tình bấm vào là nó in. nên e muốn nó phải hỏi mình xem có muốn in không mình đồng ý thì nó mới in. Các Bác xem giúp e vơi.

Thì thử code sau xem sao

Sub Msgbox_UniCode()
Dim n As String
 n = CreateObject("WScript.Shell").PopUp("Ki" & ChrW(7873) & "u M" & ChrW(7841) & "nh Xin Chào", , "Thông Báo", 65)
If n = 1 Then
      MsgBox "OK" ''Code In    
Else
       Exit Sub
End If
End Sub

 

[jack nt]

em tạo một macro đơn giản để in và gắn cho nó 1 nút bấm. nhiều khi vô tình bấm vào là nó in. nên e muốn nó phải hỏi mình xem có muốn in không mình đồng ý thì nó mới in. Các Bác xem giúp e vơi.

hoặc là bạn dùng cách của Kiều Mạnh
hoặc đơn giản hơn bạn chèn thêm MsgBox (không dấu) vào dòng đầu tiên của macro

    If MsgBox("Do you want to run macro?", vbQuestion + vbYesNo, "Ask to run") = vbNo Then
        Exit Sub
    End If