Hi Tom

Sorry for the confusion. I do not want to save the sheet with the contents
unprotected in case somebody changes some formulas in the cells. What I
really need is a text box that will pop up by clicking a command button even
though the sheet is protected so that I can enter miscellaneous information
into the text box.

Also, would it be possible to run a macro to delete the popup box as it is
not always needed?

Thanks for your help.
John
"Tom Ogilvy" wrote:

Perhaps I misunderstood what you wanted.

When you protect a sheet, you have 3 things you can protect: Contents,
Objects, Scenarios. If you don't protect contents, you should still be able
to add comments.

--
Regards,
Tom Ogilvy

"John Davies" wrote in message
...
Hi Tom

This does bring up a box but if I type anything in it and click the OK
button the text and box vanishes. Also is there a way to have more than 1
line in the text box?

Thanks
John

"Tom Ogilvy" wrote:

Private Sub CommandButton1_Click()
Dim res as String
res = InputBox("Enter you text")
Activesheet.UnProtect Password:="ABCD"
' what you will do with the text
Activesheet.Protect Password:="ABCD"
End Sub

--
Regards,
Tom Ogilvy


"John Davies" wrote in message
...
I have a protected spreadsheet that occasionaly I need to add comments
or
notes to. However all cells on the sheet are in use. Is it possible
to
have
a command button that if it is clicked will bring up a resizeable box
that
text can be entered into? If so please advise on the code needed.

Thanks in advance for any help.

Regards
John