Expert: Gyula Gulyas - 9/6/2007

Question
Gyula:

I use:

Application.CommandBars.FindControl(id:=1605).Execute

to enter design mode. From what I can find, this is also the id for exit design mode, but if I execute the code, it only turns on the design mode. Please, what is the vba to exit design mode?

Sherry

Answer
Here you go:
Sub EnterDesignMode()
   Application.CommandBars.FindControl(ID:=1605).Execute
End Sub

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

HTH,
Gyula