sheet protection problem

  • Thread starter Thread starter Deer Hunter
  • Start date Start date
D

Deer Hunter

Hi!

On the end of a hot day (30 degrees celcius) it's hard to think properly!!!
:-)

I have a problem, I use the next piece of code

-----------------
ModuleVarious.UnprotectSheet ActiveSheet
If cmt Is Nothing Then
ActiveCell.AddComment Text:=""
End If
ActiveCell.Activate
SendKeys "%ie~" ' opens comment field for editing
ModuleVarious.ProtectSheet ActiveSheet
--------------------

The last line is what I want, but if I implement this, I can't fill in the
Comment field. It just puts a blank commentfield in a cell
Please help me, what can I do to prevent this. Is there for example
something for waiting until the comment field is filled in?

Regards,
Mike
 
It might be easier to just protect the worksheet and allow the users to edit the
objects.

In xl2002, I can do Tools|Protection|Protect sheet
and allow all users of this worksheet to:
Edit Objects.

In earlier versions, it's just a checkbox (IIRC).

In code, it would look something like:
ActiveSheet.Protect DrawingObjects:=False
 
Dave Peterson said:
It might be easier to just protect the worksheet and allow the users to
Click to expand...
edit the objects.

No, out of the question! My users can't have that privilege
In code, it would look something like:
ActiveSheet.Protect DrawingObjects:=False
Click to expand...

Thanks for the info!

Mike
 
Back
Top