Bom dia Pedro

Veja se este tópico pode te ajudar:

viewtopic.php?f=10&t=7843&hilit=+*safe*

[]s

Amigo Patropi,
bateu confusao na minha cabeça.
o meu conhecimento de vba é muito pouco, o que se vai aprendendo é com o que se vai vendo um pouco daqui e dali nos foruns.
e uma coisa é me aparecer o erro ao inico, a criar os formularios, quando sao erros que aparecem assim depois de estarem todos feitos, eu fico varalhado,pois nao sei se estou a mexer no codigo certo e se nao afecta os outros codigos.
no modulo tenho este codigo e por o que me dá a intender será ele o causador do erro, por dizer "user32"
'Option Explicit

Public Declare Function FindWindowA& Lib "user32" (ByVal lpClassName$, ByVal lpWindowName$)
Public Declare Function GetWindowLongA& Lib "user32" (ByVal hwnd&, ByVal nIndex&)
Public Declare Function SetWindowLongA& Lib "user32" (ByVal hwnd&, ByVal nIndex&, ByVal dwNewLong&)

Public Const GWL_STYLE As Long = -16
Public Const WS_MINIMIZEBOX = &H20000
Public Sub InitMaxMin(mCaption As String, Optional Max As Boolean = True, Optional Min As Boolean = True _
, Optional Sizing As Boolean = True)

Dim hwnd As Long
hwnd = FindWindowA(vbNullString, mCaption)
If Min Then SetWindowLongA hwnd, GWL_STYLE, GetWindowLongA(hwnd, GWL_STYLE) Or WS_MINIMIZEBOX

End Sub

amigo patropi.
vou anexar o ficheiro, pode ser mais facil a sua compreensão e ajuda.
so mais uma coisa se puder ajudar.
tenho o userform de pesquisa, gostaria de saber se é possível enviar o resultado das pesquisas para a ultima folha para depois se imprimir.
obrigado

o problema da declaração do 32 e 64 bits foi resolvido da seguinte forma

#If VBA7 Then

Public Declare PtrSafe Function FindWindowA& Lib "user32" (ByVal lpClassName$, ByVal lpWindowName$)
Public Declare PtrSafe Function GetWindowLongA& Lib "user32" (ByVal hwnd&, ByVal nIndex&)
Public Declare PtrSafe Function SetWindowLongA& Lib "user32" (ByVal hwnd&, ByVal nIndex&, ByVal dwNewLong&)

#Else

Public Declare Function FindWindowA& Lib "user32" (ByVal lpClassName$, ByVal lpWindowName$)
Public Declare Function GetWindowLongA& Lib "user32" (ByVal hwnd&, ByVal nIndex&)
Public Declare Function SetWindowLongA& Lib "user32" (ByVal hwnd&, ByVal nIndex&, ByVal dwNewLong&)

#End If

A variável sUltimo não estava declarada onde fiz a declaração da seguinte forma

Dim sUltimo As Long 

A variavel que não estava declarada era cordisabledtextbox onde ficou assim

Public Const cordisabledtextbox = &H20000

Boa noite.
amigo trindade, Obrigado pela a ajuda.
foi a minha salvaçao.
so mais uma simples ajuda pq as vvezes dá erro, nem sempre, nem sei porque. tenho este codigo
'ActiveCell.Offset(0, 3).Value = Format(txtdia.Value, "DD-MM-YYYY")
mas as vezes dá o erro no format

Boa noite, pedro_m.

Consegui encontrar a solução para seu problemas no site do Tomás Vásquez, o link é esse http://www.tomasvasquez.com.br/forum/viewtopic.php?f=20&t=4417.

Aplicação funcionando:

Bom dia amigo Trindade
Muito obrigado pela pela ajuda.
Valeu mesmo.
Obrigado .