Boa tarde!!

http://www.google.com.br/cse?cx=partner ... rm%20Login

Att

Boa noite alexandre,

consegui de uma forma bem simples.

Adicionei a linha:

Worksheets(1).Range("D2").Select
Selection.End(xlDown).Select
UltimaLinha = Selection.Row

Linha = UltimaLinha + 1

Worksheets(1).Cells(Linha, 4).Value = txtLogin
Worksheets(1).Cells(Linha, 5).Value = Now

Unload Me
Application.Visible = True

Porém, gostaria de que só registrasse os últimos 25 acessos.
Pois não me interessa saber todas.
Ai já complicaria um pouco.

Poderia me ajudar ?

A parte da acesso limitado acho que achei um tópico aqui.

Muito mais simples do que pensava...

Worksheets(1).Range("E3:F26").Select
Selection.Copy
    Range("E4").Select
    ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
        IconFileName:=False
Application.CutCopyMode = False
Range("A1").Select

Worksheets(1).Cells(3, 5).Value = txtLogin
Worksheets(1).Cells(3, 6).Value = Now

Unload Me
Application.Visible = True

Valeu.