權限被拒絕：“ Msgbox”

Question

我正在使用VBA創建具有是/否響應的消息框。 特別是對於一個消息框，它工作正常，但是我放這之后的任何消息框都會導致權限被拒絕：“ Msgbox”錯誤。我的代碼如下所示：

if msgbox ("Release this Assessment to the Team Leader?", vbyesno) = vbyes then
   msgbox "Released"
   else
   msgbox "Not released"
end if

因此，我得到了第一個消息框，但是對於選擇（是或否），我都會收到錯誤消息。 知道是什么原因造成的嗎？

Answer 1

嘗試以下方法：

msgBox ("Release this Assessment to the Team Leader?", vbyesno)
select Case msgBox
    Case "Yes":
        msgBox "Released", vbokonly
    Case "No":
        msgBox "Not released, vbokonly
End Select