By a string you mean for example aabb? I tried this and received an error.
--
Rick


"Jim Cone" wrote:

Rick,

The password should be a String not a numeric value.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Rick_T"
wrote in message
...
Here is my code, it works perfectly in Excel 2003

Private Sub Commandbutton1_Click()
If (Range("S9") = 0) Then
'Unprotect Form 99
Sheets("Form-99").Select
ActiveSheet.Unprotect 5121
'Copy Signature
Sheets("Data Entry").Select
ActiveSheet.Unprotect 5121
Worksheets("Data Entry").Range("N3").Copy
'Paste into Form 99
Sheets("Form-99").Select
ActiveSheet.Range("Q8").Select
ActiveSheet.Paste
ActiveSheet.Shapes("Signature").Select
Selection.Name = "SignatureQ8"
'Protect Form 99
Application.CutCopyMode = False
Selection.Locked = True
ActiveSheet.Protect 5121, DrawingObjects:=True, Contents:=True,
Scenarios:=True
'Update Data Entry & Protect
Sheets("Data Entry").Select
ActiveSheet.Protect 5121, DrawingObjects:=True, Contents:=True,
Scenarios:=True
Worksheets("Data Entry").Range("S9") = 1: Range("T9") = "Signed!"
End If
End Sub

On machines running Excel 2000 I get an error "Run time error 1004"
"The cell or chart you are trying to change is protected and therefore read
only"

From the code I am unprotecting, doing my work and protecting again. It
works fine in 2003, any sugestions on what is happening with 2000? I even
tried saving the file in an earlier version of Excell but this didn't help.

--
Rick