Jump to content
Sign in to follow this  
jnabais

Excel Suplementos

Recommended Posts

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

Share this post


Link to post
Share on other sites
jpaulino

Como assim ?

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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
paulosemblano

Poderia informar o que houve?

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

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.