Vba - ao abrir planilha, salvar nome e data

[diego_janjao]

Boa noite, pessoal.

 

Tenho uma planilha que tem que ser visualizada diariamente por outros setores, como posso criar uma macro que ao abrir, salvar o usuário e data/hora que foi aberto?

 

Obrigado

[CasaDoHardware]

Cole esse codigo em esta pasta de trabalho

 

Private Sub Workbook_Open()
Dim WR As Worksheet
Dim Ulinha As Long

'Crie uma Aba com o nome Registro

Set WR = Sheets("Registro")

'Oculta a planilha registro (nem aparece o menu ocultar do botao direito)
      WR.Visible = xlSheetVeryHidden

Ulinha = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row

'Registra usuario

WR.Cells(Ulinha, 1).Value = Environ("username")

'Registra data
WR.Cells(Ulinha, 2).Value = Date 'Se quiser data e hora na mesma celula troque por now

'Registra hora
WR.Cells(Ulinha, 3).Value = Time

End Sub

[diego_janjao]

@CasaDoHardware E como eu faço para visualizar a planilha Registro depois?

[CasaDoHardware]

Tem dois caminhos escreve um codigo que exibe a aba novamente onde é so alterar xlsheetveryhidden para xlsheetvisible

 

Ou quando for necessario, embora mais trabahoso, mais seguro, entra no editor vba e exibe manualmente, alterando a mesma propriedade. 

[diego_janjao]

@CasaDoHardware  mais umauma vez, obrigado

[diego_janjao]

@CasaDoHardware

Consegui visualizar a planilha, porém ela não salvou nenhum dado

Relatório de Resultados - Pão.xlsm

[CasaDoHardware]

Curiosamente estava registrando na linha 279 pra baixo, de uma olhada no seu original.

 

Fiz um ajuste ja que você decidiu ter data e hora na mesma celula.

Apaguei a linha que oculta a planilha, (Pessoalmente acho que ela deve ficar oculta, os usuarios nao deveriam saber da sua existencia.), é preferivel ter um pouco de trabalho para exibir ou criar uma macro com um atalho pra exibir a planilha quando necessario, ate porque se isso ficar visivel acho eu que perde seu prorposito, mas enfim isso é com você.

 

Agora esta registrando a partir da linha 2

 

Veja

Relatório de Resultados - Pão.xlsm

[diego_janjao]

Infelizmente a planilha só funciona com a aba visível...

 

Eu a ocultei e ela não funcionou.

[diego_janjao]

Consegui resolver:

 

Private Sub Workbook_Open()

Application.ScreenUpdating = False

    Sheets("Registro").Visible = True

    Sheets("Registro").Select

    Rows("4:4").Select

    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    Range("A1:C1").Select

    Selection.Copy

    Range("A4").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Range("B4").Select

    Application.CutCopyMode = False

    Selection.NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"

    Range("C4").Select

    Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"

    Range("A4").Value = Environ("username")

    Sheets("Registro").Select

    ActiveWindow.SelectedSheets.Visible = False

    ActiveWorkbook.Save

       

End Sub

[CasaDoHardware]

Pra efeito de Didatica

 

Pode ser feito assim

 

Private Sub Workbook_Open()
Dim WR As Worksheet
Dim Ulinha As Long

'Crie uma Aba com o nome Registro

Set WR = Sheets("Registro")

'Exibe a planilha registro
WR.Visible = xlSheetVisible

Ulinha = WR.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row

'Registra usuario

WR.Cells(Ulinha, 1).Value = Environ("Username")

'Registra data e Hora
WR.Cells(Ulinha, 2).Value = Now

'Oculta a Planilha (Como disse nem aparece o menu do botao direito)

WR.Visible = xlSheetVeryHidden

WR.Save

End Sub

 

[diego_janjao]

@CasaDoHardware  muito bom, vou tentar amanhã

[Eloize Teixeira]

Boa noite @diego_janjao,

 

O código pode ser otimizado:

 

Private Sub Workbook_Open()

Dim WR As Worksheet
Dim Ulinha As Long
Set WR = Sheets("Registro")
    
Ulinha = Sheets("Registro").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row

WR.Cells(Ulinha, 1).Value = Environ("username")
WR.Cells(Ulinha, 2).Value = Now
WR.Cells(Ulinha, 3).Value = Time

End Sub

Na verdade o registro estava iniciando na linha 279 por que no código disponibilizado pelo colega não é especificado a planilha na qual se quer a última linha preenchida, sendo assim, o excel entende que é a planilha ativa

 

Sua planilha pode continuar oculta, o código registrará normalmente, e quando você estiver a fim de verificar poderá desocultar a planilha manualmente e proteger seus dados.

 

 

Atenciosamente,

 

 

[CasaDoHardware]

@Eloize Teixeira Seu codigo é igual ao meu a diferença é que o meu esta comentado.

[Eloize Teixeira]

 

Na verdade o objetivo era explicar o motivo pelo qual estava dando erro na primeira vez. Desculpa não havia visualizado seu último post. Seguem algumas melhorias:

 

Não é necessário tornar visível a planilha para que as informações sejam salvas.

Outra melhoria é adicionar o With WR/End With

 

Ótima observação sobre o:

 

WR.Save

 

Caso alguém entre somente para visualizar e acabe não editando nada.

 

 

Desculpe qualquer coisa.

Att.

Private Sub Workbook_Open()

Dim WR As Worksheet
Dim Ulinha As Long
Set WR = Sheets("Registro")
    
Ulinha = WR.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row

With WR
.Cells(Ulinha, 1).Value = Environ("username")
.Cells(Ulinha, 2).Value = Date
.Cells(Ulinha, 3).Value = Time
End With

WR.Save
End Sub

 

[diego_janjao]

@Eloize Teixeira  muito bom, mas no meu caso, preciso que grave quando for visualizada.

[Eloize Teixeira]

Antes do End Sub coloque WR.Save

[Eloize Teixeira]

Se você souber adaptar. segue um modelo que encontre na internet .. mais automatizado

Controle_Acesso_Usuario.xls

[diego_janjao]

Vou dar uma olhada e ver se consigo entender o código