权限被拒绝：'Msgbox'

Posted 2023-04-19

【中文标题】权限被拒绝：\'Msgbox\'

【英文标题】：Permission denied: 'Msgbox'权限被拒绝：'Msgbox'

【发布时间】：2016-01-08 05:20:45

【问题描述】：

我正在使用 VBA 创建带有是/否响应的消息框。特别是，消息框工作正常，但我在此之后放置的任何消息框都会导致 Permission denied: 'Msgbox" 错误。我的代码如下所示：

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

所以我得到了第一个消息框，但是对于任何一个选择（是或否）我都会收到错误消息。知道是什么原因造成的吗？

【问题讨论】：

我看不出你的代码有什么问题......

我已经测试了您的代码，如果我选择“是”或“否”，它可以正常工作。我还在你的代码后面插入了一个MsgBox，它也可以正常工作。

您能否从您的 Visual Basic 应用程序中复制您的代码并将其粘贴到此处。我可以看到您只是在这里手动输入了代码。

嗨 JP (@Jean_Pierre)。感谢您的答复。事实证明，问题不在于语法。如果我在其他地方使用相同的代码，它工作得很好。正是在这个特定的子中，我不断收到此错误。我不知道为什么。我会将代码移动到另一个逻辑位置，因此最终结果将是相同的。手指交叉...

【参考方案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