[pmonica]

boas,

no passado o grande jrod indicou-me para considerar o código abaixo em “estelivro”.
como o meu pc “crashou” há uns tempos, perdi algumas notas que tinha tomado sobre vb.
jorge, o qual a função deste código?

ps: este forum está 1000*. até melhor que o da microsoft! :p

saudações
paulo mónica

private inextrow as long
const hidden_sheet as string = “user”
——————————————————————————————————
private sub workbook_open()
end sub
with worksheets(hidden_sheet)
.range(“a1”).value = environ(“username”)
.range(“b1”).value = format(date + time, “dd-mmm-yy hh:mm:ss”)
end with
inextrow = 2
end sub
————————————————————————————————
private sub workbook_sheetchange(byval sh as object, _
byval target as range)
end sub
on error goto wb_exit
application.enableevents = false
if sh.name hidden_sheet then
with worksheets(hidden_sheet)
.range(“a” & inextrow).value = environ(“username”)
.range(“b” & inextrow).value = format(date + time, “dd-mmm-yy hh:mm:ss”)
end with
end if

wb_exit:
application.enableevents = true
end sub
—————————————————————————————————

[jorgerod]

boas, paulo mónica,

para que serve: para te retornar numa folha escondida o ambiente em que estás a trabalhar e a data e hora do acesso.

podes ler acerca disto, para melhor elucidação em:

http://www.vbaexpress.com/kb/getarticle.php?kb_id=762

http://blogs.officezealot.com/charles/archive/2004/12/10/3574.aspx

http://www.vbaexpress.com/kb/getarticle.php?kb_id=234

espero que te sirva!….

ah!… muito obrigado pelos elogios!!!!

um abraço.

[pmonica]

boas jrod,

pelo contexto da tua resposta, se o username do excel for diferente do estabelecido ou se a data de entrada no ficheiro for anterior à já registada, o ficheiro não funcemina, certo?

ps: tens 1 minutinho para veres a situação do error run-time 1004?

gracias.
e força no x.
paulo mónica

[jorgerod]

paulo,

este código é para controlar os acesso e/ou alterações a um dterminado livro do excel, num ambiente partilhado, em que cada utilizador entra com o seu próprio username. deste modo, pode verificar-se sempre quem e quando entrou ou alterou.

[pmonica]

ok.
clear!
thanks!
p.mónica

[Autor]

Artigos