Clear contents of cells with command button on protected sheets

[Purple Turtle]

On sheet 1, there is an active x command button that when clicked it will clear contents from 12 other sheets in the workbook but not sheet1.
There will be specific ranges for example "D:13,D20" , "J:13,J25", etc. All of the sheets including sheet1 are password protected.
I tried this code but it didn't work.

Private Sub CommandButton_Click()
Sheets("Sheet1", "Sheet2", "Sheet3","Sheet4","Sheet5","Sheet6","Sheet7","Sheet8","Sheet9","Sheet10","Sheet11","Sheet12").Unprotect "password"
Sheets("Sheet2", "Sheet3","Sheet4","Sheet5","Sheet6","Sheet7","Sheet8","Sheet9","Sheet10","Sheet11","Sheet12").Range("D13:D20" , "J:13,J25").clearcontents
Sheets("Sheet1" "Sheet2", "Sheet3","Sheet4","Sheet5","Sheet6","Sheet7","Sheet8","Sheet9","Sheet10","Sheet11","Sheet12").Protect "password"
End Sub

I've searched on how to accomplish this but still having trouble. Any help would be appreciated.

 

[Fluff]

How about

Sub PurpleTurtle()
   Dim Ws As Worksheet
   For Each Ws In Sheets(Array("Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8", "Sheet9", "Sheet10", "Sheet11", "Sheet12"))
      Ws.Unprotect "password"
      Ws.Range("D13:D20, J13:J25").ClearContents
      Ws.Protect "password"
   Next Ws
End Sub

 

[Purple Turtle]

How about

Sub PurpleTurtle()
   Dim Ws As Worksheet
   For Each Ws In Sheets(Array("Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8", "Sheet9", "Sheet10", "Sheet11", "Sheet12"))
      Ws.Unprotect "password"
      Ws.Range("D13:D20, J13:J25").ClearContents
      Ws.Protect "password"
   Next Ws
End Sub

Sweet! It works. You're awesome

 

[Fluff]

You're welcome & thanks for the feedback.

 

[Purple Turtle]

How would I fit a yes/no message box in there?

 

[Purple Turtle]

Sorry, how to delete a reply?

 

[Fluff]

Members cannot delete posts.
Do you want a message box?

 

[Purple Turtle]

Members cannot delete posts.
Do you want a message box?

yes. I tried adding this but it deleted even on selecting no:

Dim Decision As VbMsgBoxResult

Decision = MsgBox("Do you want to delete content?", vbYesNo, "DECIDE")
Select Case Decision
Case 6 'Yes case
'Execute
Case 7 'No case
'Do nothing

 

[Fluff]

How about

Sub PurpleTurtle()
   Dim Ws As Worksheet
   If MsgBox("Do you want to delete content?", vbYesNo, "DECIDE") = vbYes Then
      For Each Ws In Sheets(Array("Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8", "Sheet9", "Sheet10", "Sheet11", "Sheet12"))
         Ws.Unprotect "password"
         Ws.Range("D13:D20, J13:J25").ClearContents
         Ws.Protect "password"
      Next Ws
   End If
End Sub

 

[Purple Turtle]

How about

Sub PurpleTurtle()
   Dim Ws As Worksheet
   If MsgBox("Do you want to delete content?", vbYesNo, "DECIDE") = vbYes Then
      For Each Ws In Sheets(Array("Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8", "Sheet9", "Sheet10", "Sheet11", "Sheet12"))
         Ws.Unprotect "password"
         Ws.Range("D13:D20, J13:J25").ClearContents
         Ws.Protect "password"
      Next Ws
   End If
End Sub

Thanks again