Sheet protection

[kalim]

Hi excel users.

I have a macro that I want to run with worksheet protection on. I am using the following code to enable macros to work with protection on. It works for cells but not a shapes text box I have. Any ideas on how to make this work for textBox 1 also?
Thanks.

Private Sub Workbook_Open()
 
Dim wSheet As Worksheet
For Each wSheet In Worksheets
wSheet.Protect Password:="password", _
UserInterFaceOnly:=True
Next wSheet
 
End Sub

Public Sub words()
 
ActiveSheet.Range("b2") = "sds"
    ActiveSheet.Shapes("TextBox 1").TextFrame.Value = "sds"
 
 
End Sub

 

[mole999]

have you tried recording the macro and setting the values there, and see the results

 

[kalim]

Thanks for the reply.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
I have discovered that the above code works fine in excel 2010, but not in 2007. <o></o>
<o></o>
Any ideas on how to make the code compatible with 2007 also?<o></o>

The error I get in 2007 is 'unable to set the text property of the characters class"
<o></o>
Thanks.<o></o>

 

[ayazgreat]

kalim

In the properties of picture or textbox , check on "Locked and Text Lock".

and More

Private Sub Workbook_Open()
 
Dim wSheet As Worksheet
For Each wSheet In Worksheets
wSheet.Protect Password:="password", _
UserInterFaceOnly:=True, [COLOR=red]DrawingObjects:=True
[/COLOR]Next wSheet
 
End Sub

 

[kalim]

Thanks for the reply.
I tried the added code and I still get the same error.

Any suggestions?