是/不需要许可答案

【问题标题】：Yes/No permission required是/不需要许可
【发布时间】：2021-06-21 21:30:13
【问题描述】：

我创建了一个 VBA 并尝试添加一个 MsgBox 以确认我确实想继续。如果我单击 OK 或 X，MsgBox 会出现但没有响应。我希望得到一个是/否的选择。

Sub Clear_sheet()

ActiveSheet.Unprotect
 Dim AnswerYes As String
 Dim AnswerNo As String
 AnswerYes = MsgBox("Are you sure?", vbQuestion + YesNo, "User Response")
If AnswerYes = vbYes Then
  Range("T32 , AB32").Select
  Selection.ClearContents
  Range("B4:B32").Select
  Selection.ClearContents
  Range("W11").Select
Else
End If
ActiveSheet.Protect

结束子

我的代码还有更多的 ClearContents 范围。我想知道 VBA 是否会通过更少的行来改进，范围用逗号分隔？

非常感谢您的宝贵时间。

【问题讨论】：

标签： vba msgbox

【解决方案1】：

我在 Google 上找到了我需要的答案

ActiveSheet.Unprotect "这里的密码" Dim AnswerYes 作为字符串将 AnswerNo 作为字符串变暗 AnswerYes = MsgBox("你想继续吗？", vbQuestion + vbYesNo, "用户回复") 如果 AnswerYes = vbYes 那么

  Code to action entered here

 Else
End If
ActiveSheet.Protect "Password here"

结束子

【讨论】：