Como ela é uma UDF, dificilmente vc vai conseguir mexer no disparo dela na hora do recálculo...
Sugiro duas opções:
1) Coloque na primeira linha da função:

Application.Volatile False

Dizem que isso torna a função não disparável mtas vezes. Mas nunca vi muita vantagem.

2) Esse é um dos poucos casos em que usar variável pública é muito bem vindo. Eu criaria um dicionário público! Daí editaria a sua UDF para verificar se o nome já existe no dicionário, e puxá-lo de lá, ao invés de rodar toda a rotina novamente !
Isso não desliga a função, mas impede que ela rode tudo de novo, pq guarda os resultados num dicionário. Isso tb não resolve a performance do momento de abertura, visto que na abertura o dicionário está vazio.
Ficaria assim:

Option Explicit

Public Dicionario As Object                                                                             'FF

Public Function GetAdsProp(ByVal SearchField As String, _
                           ByVal SearchString As String, _
                           ByVal ReturnField As String) As String
Dim strDomain       As String
Dim objConnection   As ADODB.Connection
Dim objCommand      As ADODB.Command
Dim objRecordSet    As ADODB.Recordset
    
    If Dicionario Is Nothing Then Set Dicionario = VBA.CreateObject("Scripting.Dictionary")             'FF
    
    If Dicionario.EXISTS(SearchString) Then                                                             'FF
        GetAdsProp = Dicionario(SearchString)                                                           'FF
    Else                                                                                                'FF
        strDomain = GetObject("LDAP://rootDSE").Get("defaultNamingContext")
        
        Set objConnection = CreateObject("ADODB.Connection")
        objConnection.Open "Provider=ADsDSOObject;"
        
        Set objCommand = CreateObject("ADODB.Command")
        objCommand.ActiveConnection = objConnection
        
        objCommand.CommandText = "<LDAP://" & strDomain & ">;(&(objectCategory=User)" & "(" & SearchField & "=" & SearchString & "));" & SearchField & "," & ReturnField & ";subtree"
        
        Set objRecordSet = objCommand.Execute
        
        
        If objRecordSet.RecordCount = 0 Then
            GetAdsProp = "Não Localizado"
        
        Else
            GetAdsProp = objRecordSet.Fields(ReturnField)
            Dicionario.Add SearchString, GetAdsProp
        
        End If
        
        objConnection.Close
        
        Set objRecordSet = Nothing
        Set objCommand = Nothing
        Set objConnection = Nothing
    End If                                                                                              'FF
    
End Function

O que vc poderia fazer com o conceito do dicionário, é, pegar o dicionário das células, e verificar se o item está em branco e assim, rodar e atualizar o dicionário. Caso contrário, devolver o conteúdo do dicionário. Mas este código necessita de mais tempo do que tenho disponível agora... Então veja se o código acima funciona!

Bom dia meu caro.
Pois é, tentei algumas coisas aqui mas sem sucesso, no momento da abertura da planilha trava tudo.
De qualquer forma obrigado pela ajuda.
abs

Poste seu arquivo