Empty unprotected cells in one commando

[jjsanders]

Hello all,

I have a protected sheet. The sheet contains also fields which are NOT protected. Is it possible to empty all the unprotected fields at once. Because now I do ite lik this:

Range("B2").Value = Empty
Range("G6").Value = Empty
Range("G7").Value = Empty
Range("B11").Value = Empty

Thanks in advance!

 

[Jon von der Heyden]

Hi,

Place this code into a module and run it.

Sub test()

Dim c As Range

For Each c In ActiveSheet.UsedRange
    If c.Locked = False Then
        c.Clear
    End If
Next c

End Sub

Hope it does the trick!

 

[jjsanders]

I tried it like this:

Private Sub CommandButton3_Click()
    'Range("B2:B10").Value = Empty
    'Range("B2").Value = Empty
    
    Dim c As Range

    For Each c In ActiveSheet.UsedRange
        If c.Locked = False Then
         c.Clear
        End If
    Next c
        
End Sub

It gives a error by c.Clear
Error defined bij object or application

 

[Jon von der Heyden]

Gosh I don't know why that error is occuring. Where ar you putting the commad button? Works for me if I create macro in a module andthen assign te macro to a command button from the Forms menu.

 

[jjsanders]

I put the putton in my sheet and when i press that button i want to empty the unprotected cells in the same sheet.

 

[jjsanders]

i think the problem has to do with merged cells. They cause the error.
Can anyone help me out?