As vezes o usuário aperta o botão sem querer e roda uma macro sem desejar. Para que isso não aconteça basta perguntar ao usuário se deseja mesmo rodar aquela macro.

Uma maneira de fazer isso é utilizar a função "MsgBox" conforme abaixo:

Sub Mensagem()
  x = MsgBox("Deseja Continuar?", vbOKCancel, "Excel e Access")
  If x = 1 Then
    'Continua
    MsgBox "Continua"
  Else
    'vai embora
    MsgBox "Vai embora"
  End If
End Sub

Caso queria esse arquivo, favor enviar um email para atendimento@exceleaccess.com solicitando.