Disabling shapes and controls

[Jonathan Orgel]

How do I disable/lock all controls and shapes on a worksheet. Or if you how
do I disable a specific checkbor or textbox.

I tried the code below but this just 'disables' the buttons. Checkboxes and
textboxes can still be changed.

For Each S In Sheet.Shapes
S.OnAction = ""
S.Locked = True
Next
For Each V In Sheet.OLEObjects
V.Enabled = False
Next


Thanks,

Jonathan Orgel

[Ron de Bruin]

Hi Jonathan

Try this

On Error Resume Next
ActiveSheet.DrawingObjects.Visible = True
ActiveSheet.DrawingObjects.Enabled = True
On Error GoTo 0

See also
http://www.rondebruin.nl/controlsobjectsworksheet.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jonathan Orgel" <[email protected]> wrote in message news:%[email protected]...
> How do I disable/lock all controls and shapes on a worksheet. Or if you how do I disable a specific checkbor or textbox.
>
> I tried the code below but this just 'disables' the buttons. Checkboxes and textboxes can still be changed.
>
> For Each S In Sheet.Shapes
> S.OnAction = ""
> S.Locked = True
> Next
> For Each V In Sheet.OLEObjects
> V.Enabled = False
> Next
>
>
> Thanks,
>
> Jonathan Orgel
>

[Ron de Bruin]

Oops

Must be
ActiveSheet.DrawingObjects.Enabled = False

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Ron de Bruin" <[email protected]> wrote in message news:eTMBX%[email protected]...
> Hi Jonathan
>
> Try this
>
> On Error Resume Next
> ActiveSheet.DrawingObjects.Visible = True
> ActiveSheet.DrawingObjects.Enabled = True
> On Error GoTo 0
>
> See also
> http://www.rondebruin.nl/controlsobjectsworksheet.htm
>
>
> --
> Regards Ron de Bruin
> http://www.rondebruin.nl
>
>
> "Jonathan Orgel" <[email protected]> wrote in message news:%[email protected]...
>> How do I disable/lock all controls and shapes on a worksheet. Or if you how do I disable a specific checkbor or textbox.
>>
>> I tried the code below but this just 'disables' the buttons. Checkboxes and textboxes can still be changed.
>>
>> For Each S In Sheet.Shapes
>> S.OnAction = ""
>> S.Locked = True
>> Next
>> For Each V In Sheet.OLEObjects
>> V.Enabled = False
>> Next
>>
>>
>> Thanks,
>>
>> Jonathan Orgel
>>
>
>