Reset Button

[bpgolferguy]

Is it possible to create a "reset" button in excel that when clicked will reset and clear everything that is in the unlocked cells the user can modify? If so, can you give me the macro code? Thanks!

 

[VoG]

Try

Sub clr()
Dim c As Range
For Each c In ActiveSheet.UsedRange
    If c.Locked = False Then c.ClearContents
Next c
End Sub

 

[Diablo II]

ok for one the workbook is protected with some cells unlocked, and not Knowing the unloaked cell you can not wright code.

but you can type any thange in each cell that a user will type in, then hit record a macro and go to each cell and delet the info.

when you are done, stop the macro , theirs you reset.

 

[bpgolferguy]

That code listed above gives me an error message when I click the button....is that the exact code I should copy and paste into the code area? Do I need something before or after it?

 

[VoG]

Can you post the exact code that you've assigned to the button. What's the error?

 

[bpgolferguy]

Here is the code:

Sub Button29_Click()
Sub clr()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.Locked = False Then c.ClearContents
Next c
End Sub
End Sub

It says "compile error"

 

[VoG]

Try this:

Sub Button29_Click()
Dim c As Range
For Each c In ActiveSheet.UsedRange
    If c.Locked = False Then c.ClearContents
Next c
End Sub