I have placed several check boxes on a spread sheet using the Forms toolbar.
The spread sheet is read only and protected. The check boxes can still be
selected and moved or deleted. How can this be prevented? Below is the macro
that I am using:

Private Sub Button1_Click()
Range("G1,L9,I13,I14,I15,L22,L34,J36,J38,K44,K45,K46,K47,K58,L75,L79,K82,L99").Select
Selection.ClearContents
Range("l9").Select
Dim cb As CheckBox

For Each cb In ActiveSheet.CheckBoxes
cb.Value = False
Next cb

End Sub
The spread sheet will also be used on Excel 97.
Any assistance would be appreciated.
--
dow

In xl2003, you can protect the worksheet and not allow the users to edit
objects.

Tools|Proection|protect sheet
at the bottom of that list, make sure "Edit Objects" is not checked.

This granular level of protection was added in xl2002. In xl97, there were 3
(if I remember correctly) options on that protect sheet dialog.

One of them is for objects--I'm not sure if you checked the box if you want them
protected or if you wanted to allow users to be able to change them. But it
shouldn't be too difficult to test.

dow wrote:
>
> I have placed several check boxes on a spread sheet using the Forms toolbar.
> The spread sheet is read only and protected. The check boxes can still be
> selected and moved or deleted. How can this be prevented? Below is the macro
> that I am using:
>
> Private Sub Button1_Click()
> Range("G1,L9,I13,I14,I15,L22,L34,J36,J38,K44,K45,K46,K47,K58,L75,L79,K82,L99").Select
> Selection.ClearContents
> Range("l9").Select
> Dim cb As CheckBox
>
> For Each cb In ActiveSheet.CheckBoxes
> cb.Value = False
> Next cb
>
> End Sub
> The spread sheet will also be used on Excel 97.
> Any assistance would be appreciated.
> --
> dow

--

Dave Peterson

Dave,

Problem solved. Thank you for your help.
--
dow


"Dave Peterson" wrote:

> In xl2003, you can protect the worksheet and not allow the users to edit
> objects.
>
> Tools|Proection|protect sheet
> at the bottom of that list, make sure "Edit Objects" is not checked.
>
> This granular level of protection was added in xl2002. In xl97, there were 3
> (if I remember correctly) options on that protect sheet dialog.
>
> One of them is for objects--I'm not sure if you checked the box if you want them
> protected or if you wanted to allow users to be able to change them. But it
> shouldn't be too difficult to test.
>
> dow wrote:
> >
> > I have placed several check boxes on a spread sheet using the Forms toolbar.
> > The spread sheet is read only and protected. The check boxes can still be
> > selected and moved or deleted. How can this be prevented? Below is the macro
> > that I am using:
> >
> > Private Sub Button1_Click()
> > Range("G1,L9,I13,I14,I15,L22,L34,J36,J38,K44,K45,K46,K47,K58,L75,L79,K82,L99").Select
> > Selection.ClearContents
> > Range("l9").Select
> > Dim cb As CheckBox
> >
> > For Each cb In ActiveSheet.CheckBoxes
> > cb.Value = False
> > Next cb
> >
> > End Sub
> > The spread sheet will also be used on Excel 97.
> > Any assistance would be appreciated.
> > --
> > dow
>
> --
>
> Dave Peterson
>