Ir ao conteúdo
  • Cadastre-se

Identificar quem está salvando o arquivo


Posts recomendados

Boa tarde, tenho uma planilha com uma macro que insere informações de Especificações Técnicas, e há um campo que é para a pessoa digitar o seu nome para sabermos quem está salvando esta planilha.

 

O problema é que a pessoa pode escrever qualquer nome, mesmo que não seja ela.

 

Há alguma macro ou fórmula para puxar a ID do usuário Windows?

Link para o comentário
Compartilhar em outros sites

Teste este

 

Private Sub Worksheet_Activate()
Dim WL As Worksheet
Dim WLLinha As Long
Dim WLUlinha As Long

Application.ScreenUpdating = False

Set WL = Sheets("Lista")
    WL.Visible = xlSheetVisible
    WLLinha = 2
    WLUlinha = WL.Range("A" & Rows.Count).End(xlUp).Row


For a = WLLinha To WLUlinha

If WL.Cells(WLLinha, 1) <> Environ("UserName") Then

WLLinha = WLLinha + 1

Else

Application.ScreenUpdating = True
WL.Visible = xlSheetVeryHidden
Exit Sub

End If

Next

MsgBox "Você não tem acesso a essa Planilha", vbInformation, "Acesso Negado"
Sheets("Plan3").Select ' aqui o ideal seria selecionar a planilha anteriormente selecionada mas nao consegui fazer isso.
Application.ScreenUpdating = True
End Sub

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...