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


Deer Hunter wrote:

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

--

Dave Peterson

"Dave Peterson" wrote in message
It might be easier to just protect the worksheet and allow the users to
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

Thanks for the info!

Mike