VBA project created in Excel 2003 doesn't run in Excel 2000

[Guest]

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.

 

[Jim Cone]

Rick,

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



"Rick_T" <[email protected]>
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.

 

[Guest]

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

 

[Jim Cone]

Rick,

Enclose the password within quote marks...
"5121" or "aabb"
-or-
A String variable would work...

Dim Mush as String
Mush = "LotsOfLuck"
ActiveSheet.Unprotect Mush

--
Jim Cone
San Francisco, USA
http://www.officeletter.com/blink/specialsort.html





"Rick_T" <[email protected]>
wrote in message
By a string you mean for example aabb? I tried this and received an error.