Tasarım moduna geçip, yada çıkmayı kod ile yapmak mümkünmü?

[sdegirmenci]

Merhaba,
Bir excel sayfam var, sayfa aktif olduğunda tasarım moduna otomatik geçilsin istiyorum, bunu menü yerine kod ile yapabilirmiyiz. Teşekkür ederim.

 

[Mehmet Şahin]

Merhaba,
aşağıdaki (alıntı) kodları kullanabilirsiniz.
İyi akşamlar.

Sub EnterInDesignMode()'Design Mode açma
    With Application.CommandBars.FindControl(ID:=1605)
        .Execute
    End With
End Sub
Sub ExitInDesignMode()'Design Mode kapama
    Dim sTemp As String
    With Application.CommandBars("Exit Design Mode")
        sTemp = .Controls(1).Caption
    End With
End Sub