Щелчок правой кнопкой мыши на вкладках листов отключен в Excel - PullRequest
Новая
       13

Щелчок правой кнопкой мыши на вкладках листов отключен в Excel

1 голос
/ 30 января 2009

Я использовал этот код VBA в модуле ThisWorkbook, чтобы отключить меню правой кнопки мыши в книге Excel. 

Private Sub Workbook_Activate()
   With Application.CommandBars.FindControl(ID:=847)
      .Visible = False
   End With
End Sub

Private Sub Workbook_Deactivate()
   With Application.CommandBars.FindControl(ID:=847)
      .Visible = True
   End With
End Sub

Работает как шарм.
Проблема в том, что я не могу получить доступ к меню правой кнопки мыши на вкладках ЛЮБОЙ рабочей книги. Я полагаю, вторая часть кода должна включить его снова? Но это не так.

Даже когда я полностью удаляю код, ни одна рабочая книга, даже новая, не имеет меню, когда я щелкаю правой кнопкой мыши на одной из вкладок.

Есть ли общий vba codenippet, который "сбрасывает" Excel, может быть? Или вообще "включить все меню"?

ПЕРЕСМОТР: Этот код, размещенный здесь, не отключает контекстное меню, он удаляет опцию «удалить» из этого конкретного меню.

Ответы [ 3 ]

4 голосов
/ 30 января 2009

OMG 

Application.CommandBars("Ply").Enabled = True

-.-
Начал гуглить разные ключевые слова после последнего редактирования и BAM.

2 голосов
/ 20 февраля 2013

Опоздал, как обычно, но сегодня столкнулся с той же проблемой. Вот решение, которое вернет вам функциональность правой кнопкой мыши: 

Option Explicit
'
Sub tester()
    '
    Dim cBar As CommandBar
    '
    For Each cBar In CommandBars
        Debug.Print cBar.Name
        If (cBar.Type = msoBarTypePopup) Then cBar.Enabled = True
    Next
End Sub
0 голосов
/ 16 января 2014

Также обратите внимание, что ниже также существуют. У некоторых макросов с работы все они были отключены в моем Excel. 

Application.CommandBars("Cell").Enabled = True
Application.CommandBars("Row").Enabled = True
Application.CommandBars("Column").Enabled = True
...