Delete ALL AllowEditRanges in command Button [Solved/Closed]

Question

Delete ALL AllowEditRanges in command Button [Solved/Closed]

Report

Issa - Apr 14, 2011 at 12:49 PM
rizvisa1

Posts: 4476
Registration date: Thursday January 28, 2010
Status: Contributor
Last seen: August 2, 2020

- Jul 3, 2011 at 08:24 AM

Dear Sir,

I have the following VBA code:

Private Sub CommandButton2_Click()
Dim WS As Worksheet
Dim aer As AllowEditRange

For Each WS In Worksheets
For Each aer In ActiveSheet.Protection.AllowEditRanges
aer.Delete

Next aer
Next WS

End Sub

I need to modify this VBA in order to work for all worksheets, it works now only for the sheet that have the command button but the other sheets still having the AllowEditRange.

Therefore, some one if know what to add to this VBA or to change it in order when I click one command button to remove / delete all AllowEditRanges in all worksheets.

Thank you in advance

Delete ALL AllowEditRanges in command Button
Excel vba add command button programmatically - How-To - Excel
Command button on dell laptop - How-To - Internet
Creating search and update command buttons in a userform ✓ - Forum - Excel
VBA code for command button ✓ - Forum - Excel
VBA code in my command button doesn't work ✓ - Forum - Excel

1 reply

Ask a question

rizvisa1 · Accepted Answer · 2011-07-03T08:24:09-0400

Answer 1 / 1

rizvisa1

Posts: 4476
Registration date: Thursday January 28, 2010
Status: Contributor
Last seen: August 2, 2020

761
Jul 3, 2011 at 08:24 AM

Change this line

ActiveSheet.Protection.AllowEditRanges

to

WS .Protection.AllowEditRanges

Delete ALL AllowEditRanges in command Button [Solved/Closed]

1 reply

Your reply

Subscribe To Our Newsletter!