Excel 2007 : unprotect and protect code for existing macro

Ladies/Gents

I have a Macro which unhides a worksheet, enters data, and hides it again.

If I use a password, say "password", to protect the sheet can anyone give me a code I can add into my existing macro to unprotect and re protect with "Password"?

If there is a simple code I will add it in, or will send you the existing code if required.

Help much appreciated,

Martin (Chambo)


Thanks. I have worked it out from your code and managed to get the result.

Please Login or Register  to view this content.

You can also refer to specific sheets, etc


Regards

Its getting close but not there. Heres the code. It goes to debug when I run it
[Sub Macro2()

Dim LastRow As Double

Sheets("Enter Data").Select
Sheets("Archive").Visible = True
ActiveSheet.Unprotect Password:="tmd"
Sheets("Enter Data").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("Enter Data").Select
Range("a1:c1").Select
Selection.Copy

Sheets("Archive").Select
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Cells(LastRow + 1, "A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Enter Data").Select
Range("A2").Select
Application.CutCopyMode = False
Sheets("Archive").Select
ActiveWindow.SelectedSheets.Visible = False
End Sub]

It stops at Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Thanks for the help so far.

Chambo

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here