Este fórum está sendo desativado

[SandroLima]

Boa tarde, pessoal

Por algum motivo ao rodar esse código a tecla NumLock é desabilitada ao abrir o formulário.

Código: Selecionar todos

Private Sub UserForm_Initialize()

    txt_Data = Date
    txt_Data.SetFocus
    SendKeys "{Home}+{End}"

End Sub

Alguém sabe o código para reabilitar?
E sabe pq está acontecendo isso?

Muito obrigado.

[SandroLima]

Código: Selecionar todos

SendKeys "{NUMLOCK}"

Resolvido pessoal.

Obrigado.