权限被拒绝：'Msgbox'

2016-01-08 42 views 0 likes

我正在使用VBA创建带有/无响应的消息框。对于一个特别的消息框工作正常，但我之后的权限这一结果提出的任何消息框否认：“MSGBOX”的错误我的代码看起来是这样的：权限被拒绝：'Msgbox'

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

所以我得到的第一个消息？箱但无论是选择（是或否）我得到错误信息任何想法可能会导致此

来源

2016-01-08 A Coetzee

我什么也看不到你的代码错误.... – 0m3r

我测试了你的代码，如果选择“是”或“否”，它工作正常，我也插入了在你的代码之后有一个'MsgBox'，并且它也可以正常工作。 –

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

回答

-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

来源

2016-01-08 15:25:16 Kathara

很高兴知道我为什么被低估.....至少请给出解释。 – Kathara

权限被拒绝：'Msgbox'

回答

相关问题