Tasarım Modu kısayol tuşu

[mesutaygun70]

Excelde Tasarım Modunun kısayol tuşu varmı arkadaşlar.

 

[Tevfik_Kursun]

Merhaba Arkadaş,
Excel'de iken
Dosya / Seçenekler / Şeridi Özelleştir
den sonra Tüm Komutlar' daki Tasarım Modu'nu Ana Sekmelerde Yeni Sekme (Özel) in altına ekleyiniz.
Kolay gelsin

 

[mesutaygun70]

Teşekkürler, ama bu şekilde her seferinde fare ile tıklamam lazım. Benim isteğim ise klavye kısayolları. Makro oluşturup makroya kısayol tuşu atayım dedim. Tasarım modu açık/kapalı için makro oluşturamadım. Bu şekilde de olur.

 

[Korhan Ayhan]

Deneyiniz.

Sub Test_Aktif()
    EnterExitDesignMode True
End Sub

Sub Test_Pasif()
    EnterExitDesignMode False
End Sub

Sub EnterExitDesignMode(Kontrol As Boolean)
    Dim Menu As CommandBars
    Const Kriter As String = "DesignMode"

    Set Menu = Application.CommandBars
    If Not Menu Is Nothing Then
        If Menu.GetEnabledMso(Kriter) Then
            If Kontrol <> Menu.GetPressedMso(Kriter) Then
                Menu.ExecuteMso Kriter
                Stop
            End If
        End If
    End If
End Sub