Excel Suplementos

[jnabais]

Boa noite.

Como posso fazer para evitar que as minhas folhas Excel.xls não sejam "contaminadas" com uma folha excel.xla (suplementos)?

Obrigado

[jpaulino]

Como assim ?

Podias tentar criar um addins (suplemento) que desabilitasse a opção de adicionar addins, mas não sei se funciona.

[paulosemblano]

Obs.: Faça alguns testes antes de usar, pois ainda não apliquei esse código.

Se for para desabilitar Suplementos:

Em EstaPasta_de_trabalho:

Private Sub Workbook_Activate()

Application.OnKey "^b", "MENSAGEM"

With Application.CommandBars("Tools")

    .FindControl(ID:=943).Enabled = False

End With

End Sub

Private Sub Workbook_Deactivate()

With Application.CommandBars("Tools")

    .FindControl(ID:=943).Enabled = True

End With

End Sub

Em um Módulo:

Sub MENSAGEM()

Application.EnableCancelKey = xlDisabled

End Sub

[jnabais]

Olá

Estive em  manobras com a sugestão..e não consegui.

Obrigado pela tentativa

[paulosemblano]

Poderia informar o que houve?

Fiz uns testes e aparentemente deu certo, ou seja, desabilita Suplementos.

[jnabais]

Boa noite

Fiz conforme explicação mas não desabilita...

Aquilo que eu pretendo é na prática o seguinte:

Eu tenho um documento em Excel (com macros editadas). E queria que esse documento ficasse imune a Macros provindas de um ficheiro suplementos do Excel.

Obrigado