Macro for "Clearcontents" button

[Bedford]

I had a macro assigned to a button in a worksheet that cleared the contents, not formatting in cell ranges; B11:B120, D11:D120, G11:G120, I11:I120, saved it, it worked while I had the workbook open, shutdown, reopened the next day to find it missing and now I can’t recall the code which included deactivating and reactivating the password for the worksheet.

Help.

 

[Joe4]

That should be very easy to re-create.
If all it does it clear the values in those ranges and saves the workbook, this code should do what you want:

Sub MyMacro()
    Range("B11:B120, D11:D120, G11:G120, I11:I120").ClearContents
    ActiveWorkbook.Save
End Sub

So then you could just re-attach that code to your button.

EDIT:
Whoops, I missed the part at the end about the password. Kaper shows you how to incorporate that into your code in his post below.

 

[Kaper]

Change your password to right one and in the code below (you may change oprions of protection - I left default set):

Sub test()
    ActiveSheet.Unprotect Password:="MrExcel"
    Range("B11:B120, D11:D120, G11:G120, I11:I120").ClearContents
    ActiveSheet.Protect Password:="MrExcel", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[Bedford]

Change your password to right one and in the code below (you may change oprions of protection - I left default set):

Sub test()
    ActiveSheet.Unprotect Password:="MrExcel"
    Range("B11:B120, D11:D120, G11:G120, I11:I120").ClearContents
    ActiveSheet.Protect Password:="MrExcel", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Brilliant, absolutely brilliant. Thank you.

 

[Joe4]

Bedford,

Please Note: In the future, when marking a post as the solution, please mark the post that contains the solution (not your own post acknowledging that some other post was the solution).
When a post is marked as the solution, it is then shown right underneath the original question so people viewing the question can easily see the question and solution in a single quick glance without having to hunt through all the posts.

I have updated this thread for you.

 

[Peter_SSs]

Please Note: In the future, when marking a post as the solution, please mark the post that contains the solution (not your own post acknowledging that some other post was the solution).

@Bedford
You have been advised about this recently. Please ensure compliance in the future!

 

[Bedford]

@Bedford
You have been advised about this recently. Please ensure compliance in the future!

Very sorry, I thought I'd given credit to Kaper, my mistake, I'll be more careful in the future, thank you for catching it.

 

[Peter_SSs]

Cheers. Thanks for your message.