check if worksheet is protected using code

[neowok]

Just wondering if theres a way i can do a simple "i
Worksheets("3.Data") is protected then"

also how would i assign a value to a cell using code? i.e. say A1
"blah" ? it didnt like cells(a1)="blah" which i assumed would be th
way.

thank

 

[Frank Kabel]

Hi
For your first question try
If Worksheets("3.Data").ProtectContents = True Then
MsgBox "The contents of shet '3-data 'are
protected."
End If


Second question
use something like
Range("A1").value="text"
or
cells(1,1).value="text"

 

[neowok]

ok thanks, that work