Como pego o nome de uma subrotina (VBA/Excel) dentro dela mesma para usar em um código do tipo "Trace"? (ver código básico no bloco ATUALIZAÇÃO após o código de exemplo)
A ideia é usar algo como o "ME.Name", que pega o nome do projeto.
Por exemplo, o ideal seria algo como:
Private Sub Rotina()
Trace(???.Name) 'Captura o nome da subrotina como argumento do Trace
...
...
End Sub
Public Sub Trace(ByVal NomeDaSubRotina As String)
if TraceAtivo Then
MsgBox "Estou em " & NomeDaSubRotina
End If
'Pode ser feito também com ListBox (ver código na atualização abaixo)
End Sub
SOLICITAÇÄO
Por favor, encontrei várias soluçöes para a questão, mas não tenho conhecimento suficiente em VBA para testá-las. Alguėm pode apontar uma dessas soluções? Segue o link:
https://stackoverflow.com/questions/23945321/how-to-get-the-procedure-or-function-name-at-runtime
Grato
COMPLEMENTO: Resultado da pesquisa!
Por meio deste "link", fiz alguns testes com os códigos do "site" e fiz o mesmo com outros "sites" dentro deste contexto.
O resultado que cheguei em várias tentativas diferentes é que sempre surge uma mensagem mais ou menos assim:
"Não é seguro usar esta função"
Portanto, "É POSSÍVEL CAPTURAR O NOME DA SUBROTINA DENTRO DELA MESMA, MAS É PRECISO TER UM CERTO TIPO DE PERMISSÃO!!!"
Pesquisando sobre a mensagem verifiquei que há explicações de como fazer isso, porém, não entendi direito como fazer. Não indico os links no momento, pois fiz as pesquisas fora de casa e precisaria fazer o levantamento onde encontrei, MAS imaginei que teria tempo no momento para pegar os links e resumir o que cada um continha, e não deu.
PERGUNTA:
Quais as consequências e/ou riscos de alterar o nível padrão de segurança e, se decidir por alterar, como proceder? Não entendi muito bem e não quis arriscar sem ter conhecimento de causa. Alguém sabe sobre isso?
Grato
ATUALIZAÇÃO
O código abaixo funciona como um "Trace" e dinamicamente, sendo muito interessante ver o Listbox apresentar a sequência das subrotinas acionadas a cada ação (em bloco, do início ao final das operações daquela ação).
Ela mostra pelo MsgBox e/ou acrescenta linhas ao Listbox com o "Nome" da subrotina onde "Msg" esteja (coloco na primeira linha de cada subrotina).
Conforme a opção: 1, 2 ou 3 em uma célula no Excel algumas subrotinas ou todas são mostradas, pois, quando dou a outra opção de um número inteiro positivo (em outra célula no Excel), somente uma ou algumas subrotinas indicadas com este mesmo número são mostradas, ou todas, se a opção for -1.
Só falta pegar o nome de cada subrotina automaticamente dentro dela mesma para não ter de digitar seu nome dentro de cada uma.
Public Sub Msg(ByRef MsgTexto As String, ByRef MsgTipo As Integer)
' Msg - PARAMETROS: Digitar na planilha nas células:
' MsgOuListbox e MsgTipo os valores dos parâmetros.
'
‘ A célula MsgIndice inicia com 0 quando o formulário é acionado,
‘ e guarda o índice para inserir cada nova linha ao Listbox
'
' MsgOuListbox: 0=Não mostra, 1=Mostra MsgBox 2=Preenche ListBox 3=Ambos
'
' MsgTipo: Indica se mostra MsgBox e/ou acrescenta linha ao ListBox de cada
' subrotina conforme o número indicado na chamada dentro de cada rotina:
' 0 = não mostra
' 1 ... n = Faz só para o código indicado (um número apenas, pode ser
' individual de uma subrotina ou um grupo delas com este mesmo número)
' -1 = faz para todas as subrotinas
'
' O listbox foi nomeado como ListBoxMsg1
' Se uma das células tem 0 não faz
If Range("MsgOuListbox").Value = 0 Or Range("MsgTipo").Value = 0 Then Exit Sub
' se tipo 2 ou 3 mostra MsgBox com o nome enviado da rotina
If Range("MsgOuListbox").Value = 2 Or Range("MsgOuListbox").Value = 3 Then
' se o número do tipo enviado é o mesmo do parâmetro ou se escolheu -1,
' acrescenta linha ao Listbox
If MsgTipo = Range("MsgTipo").Value Or Range("MsgTipo").Value = -1 Then
ListBoxMsg1.AddItem MsgTexto, Range("MsgIndice").Value
Range("MsgIndice").Value = Range("MsgIndice").Value + 1
End If
End If
' se tipo 1 ou 3 pode mostrar o nome enviado com MsgBox
If Range("MsgOuListbox").Value = 1 Or Range("MsgOuListbox").Value = 3 Then
' se o número do tipo enviado é o mesmo do parâmetro ou se escolheu -1,
' mostra MsgBox
If MsgTipo = Range("MsgTipo").Value Or Range("MsgTipo").Value = -1 Then
MsgBox MsgTexto
End If
End If
End Sub
Dentro de cada subrotina coloco no início:
Msg "NomeDaRotina", 1
em outra:
Msg "OutraSubRotina", 12
Se colocar nas células da planilha MsgOuListbox = 2 e MsgTipo = 12 , somente o nome das subrotinas que indiquei o número 12 aparecerão dinamicamente no Listbox (se acionadas durante a execução), neste exemplo "OutraSubRotina" será mostrada e "NomeDaRotina" não será mostrada.
MsgBox("Rotina")
?