Eu tenho um suplemento com um UDFgetRegExResult. Eu quero adicionar uma descrição da função e descrições de argumentos a essa função; portanto, quando o usuário instala o complemento, fecha, abre o Excel algumas vezes e vai para a caixa de diálogo "Inserir Função", ele poderá encontrar a função com a descrição dos argumentos.

O mesmo é pedidoaqui. eu encontrei umresponda que atenda às minhas necessidades. Exceto...

Quero poder fazer isso através de um suplemento do Excel. Minha idéia é colocar chamada em addinworkbook_open evento assim:

Private Sub Workbook_Open()
    Call getRegExResultRegister
End Sub  

Public Sub getRegExResultRegister()
    Application.MacroOptions Macro:="getRegExResult", Description:="Returns a concatenated string of NONE, ONE, or ALL Regular Expression Match(es).", Category:="User Defined", _
        ArgumentDescriptions:=Array("Source string to inspect for matches.", _
        "Regular Expression Pattern. E.g. ""\d+"" matches at least 1 or more digits.", _
        "[Default = True] True = Returns all the matches found. False = Returns only the first match.", _
        "[Default = True] True = Not case sensitive search. False = Case sensitive search.", _
        "[Default = "";""] Delimiter to insert between every macth, if more than 1 matches are found.")
End Sub

Depois de instalar o complemento, fechar, abrir o Excel, recebo o erro de tempo de execução 1004: "Não é possível editar uma macro em uma pasta de trabalho oculta. Ao lado da pasta de trabalho ..."

Questão 1

Como reexibir uma pasta de trabalho de suplemento? Eu tentei colocarThisworkbook.Windows(1).visible = True noWorkbook_open evento antes da chamada para registro, mas que resulta no Runtime 9, subscrito fora do intervalo.

Questão 2

Se o complemento reexibir for impossível, existe outra maneira de fazer isso?

Obrigado pela ajuda.

Perguntas semelhantes:
Excel Registre UDF em Personal.xslb

Editar # 1

O código atual faz o que eu quero, com um bug. Quando abro alguma pasta de trabalho existente, recebo 2 janelas do Excel. Um da pasta de trabalho aberta (correta), um dos add-ons (não desejado). Como se livrar da segunda janela?

Private Sub Workbook_Open()
    With ThisWorkbook
        .IsAddin = False
        Call getRegExResultRegister
        .IsAddin = True
        .Saved = True
    End With
End Sub