Pessoal,

Tenho esse código na minha planilha para desabilitar o Popup e alguns botôes.

Mas qdo o código é carregado, ele desabilita não só para os arquivo q tem o código, e sim, no Excel (no aplicativo).

Preciso de um código para habilitar o menu popup.

segue o código:

  On Error GoTo temErro

Dim CB As CommandBar
For Each CB In CommandBars
If CB.Type = msoBarTypePopup Then 'Desabilita o menu rápido POPUP
CB.Enabled = Enable
End If
Next

CommandBars("Toolbar List").Enabled = False

Application.OnKey "^c", ""
Application.OnKey "+{INSERT}", "" 'Desabilita as teclas de atalho; ctrl+c ; ctrl+insert
Application.OnKey "^{insert}", ""

With CommandBars("Worksheet Menu Bar")
With .Controls("edit") 'use directions as appropriate
.Controls("Copy").Enabled = False
.Controls("Cut").Enabled = False
End With
End With
CommandBars("Toolbar List").Enabled = False 'Desabilita na barra do menu o copiar e o cortar

With CommandBars("cell")
.Controls("copy").Enabled = False
.Controls("cut").Enabled = True
End With

Exit Sub

temErro:
  Resume Next

Poderia utilizar a mesma função, com algumas adaptações

Public Sub HabilitarPoupUp(Habilitar As Boolean, PoupUp As Boolean)

    On Error GoTo temErro

    Dim CB As CommandBar
    For Each CB In CommandBars
        If CB.Type = msoBarTypePopup Then    'Desabilita o menu rápido POPUP
            CB.Enabled = PoupUp
        End If
    Next

    CommandBars("Toolbar List").Enabled = Habilitar

    Application.OnKey "^c", ""
    Application.OnKey "+{INSERT}", ""    'Desabilita as teclas de atalho; ctrl+c ; ctrl+insert
    Application.OnKey "^{insert}", ""

    With CommandBars("Worksheet Menu Bar")
        With .Controls("edit")    'use directions as appropriate
            .Controls("Copy").Enabled = Habilitar
            .Controls("Cut").Enabled = Habilitar
        End With
    End With
    CommandBars("Toolbar List").Enabled = Habilitar    'Desabilita na barra do menu o copiar e o cortar

    With CommandBars("cell")
        .Controls("copy").Enabled = Habilitar
        .Controls("cut").Enabled = Habilitar
    End With

    Exit Sub

temErro:
    Resume Next
End Sub

No evento Open

HabilitarPoupUp False, False

No evento Close

HabilitarPoupUp True, True