是/不需要许可

如何解决是/不需要许可

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

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 是否会用更少的行来改进，范围用逗号分隔？

非常感谢您抽出宝贵时间。

解决方法

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

ActiveSheet.Unprotect“这里的密码” Dim AnswerYes 作为字符串 Dim AnswerNo As String AnswerYes = MsgBox("你想继续吗？",vbQuestion + vbYesNo,"User Repsonse") 如果 AnswerYes = vbYes 那么

  Code to action entered here

 Else
End If
ActiveSheet.Protect "Password here"

结束子