Locking Cells & Protecting Excel Sheets via VBA

[RougeDev]

Ok I'm using Excel '97 & I've got a spreadsheet that is filled out by means of a form dialogue. Now after the user has finished with the form entries are placed in the spreadsheet. I need to lock some of the cell that have been entered & leave others free for editing manually

I was trying to do this:

Private Sub AddNewLine_Click()

Worksheets("List&quot.Unprotect

UserForm1.Show

Worksheets("List&quot.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False

End Sub

& as part of one of the events in the form I've embeded:

range(lock_area).Select
Selection.Locked = True
Selection.FormulaHidden = False


The problem is that the Unprotect method of the worksheet fails, so I acheive nothing!!!!


Any help that you could offer would be muchly appreciated

 

[Zathras]

See my post in thread68-459165

(You're right -- this is a more appropriate forum for your question.)

 

[RougeDev]

Ok Read your post.

lock_area is a variable which contains the a cell address or range eg "C6" or "C66"

But that's unimportant at first as it's the
Worksheets("List&quot.Unprotect
line that pukes.....
Unprotect method of the worksheet failed etc.

 

[Zathras]

I would need to see more of your code. It works ok for me.

 

[xlbo]

Might be a silly question but is the worksheet PASSWORD protected - if so, you need
sheets("Sheetname&quot.unprotect password:= "whateverthepasswordis" Rgds
Geoff

Estne volumen in toga, an solum tibi libet me videre?