I am creating protected worksheets for users. When some users open them,
their Excel is already in Design Mode.

I need code to 'exit' design mode automatically. Can anyone advise please?

--

cm

see if this helps:

Sub ExitDesignMode()

With CommandBars("Exit Design Mode").Controls(1)
If .State = msoButtonDown Then .Execute
End With

End Sub
--
jb


"cm" wrote:

I am creating protected worksheets for users. When some users open them,
their Excel is already in Design Mode.

I need code to 'exit' design mode automatically. Can anyone advise please?

--

cm

one more thing - need this to run on workbook_open -- get an error of 'with
block variable not set' -- what do I need to edit?



cm


"john" wrote:

see if this helps:

Sub ExitDesignMode()

With CommandBars("Exit Design Mode").Controls(1)
If .State = msoButtonDown Then .Execute
End With

End Sub
--
jb


"cm" wrote:

I am creating protected worksheets for users. When some users open them,
their Excel is already in Design Mode.

I need code to 'exit' design mode automatically. Can anyone advise please?

--

cm

keep the procedure in standard module and call it from open event

Private Sub Workbook_Open()
Call ExitDesignMode
End Sub
--
jb


"cm" wrote:

one more thing - need this to run on workbook_open -- get an error of 'with
block variable not set' -- what do I need to edit?



cm


"john" wrote:

see if this helps:

Sub ExitDesignMode()

With CommandBars("Exit Design Mode").Controls(1)
If .State = msoButtonDown Then .Execute
End With

End Sub
--
jb


"cm" wrote:

I am creating protected worksheets for users. When some users open them,
their Excel is already in Design Mode.

I need code to 'exit' design mode automatically. Can anyone advise please?

--

cm