Error msg in VBA code for clearing data field

[masud8956]

Hi everyone,

I am using the following code to clear a certain data field. I am applying the code with a button and it worked for a few days but now I am getting an error msg.

Sub ClearMe()
Application.ScreenUpdating = False
Sheets("DATA").Visible = True
Sheets("DATA COPY").Visible = True
With Sheets("DATA")
      .Cells.ClearContents
End With
With Sheets("DATA COPY")
      .Cells.ClearContents
End With
Sheets("DATA").Visible = xlVeryHidden
Sheets("DATA COPY").Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub

What could have gone wrong and how to debug it?

Regards

 

[masud8956]

@Fluff, yes workbook is protected with a password. I disabled the protection and the code runs fine now.

Thanks everyone for your advice!

Just curious to know, is there a way to run the code while keeping the protection on?

 

[Fluff]

Is it protected with a password?

 

[Joe4]

Just curious to know, is there a way to run the code while keeping the protection on?

You would simply include lines of code in your VBA that unprotects the workbook, runs the other code, and then re-protects it afterwards.

 

[masud8956]

Is it protected with a password?

Yes

 

[Fluff]

In that case you can put this at the start of your code

ThisWorkbook.Unprotect "Pword"

and this at the end

ThisWorkbook.Protect "Pword", True, False

Just Pword to whatever your password is.

 

[masud8956]

Thanks a lot!

 

[Fluff]

Glad we could help & thanks for the feedback.