macro to exit design mode

[cm]

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?

 

[john]

see if this helps:

Sub ExitDesignMode()

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

End Sub

 

[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]

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

Private Sub Workbook_Open()
Call ExitDesignMode
End Sub