USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Programação VBA
Lú998
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 30/09/2005 14:53 hs         
Oi Galera !!!
 
Tenho que fazer uma programação VBA dentro de uma planilha excel. Ao entrar na Planilha, preciso que automaticamente seja gravado em uma determinada linha o login do usuário. Como posso fazer prá que seja capturado o login no registry da máquina ?  É possível ???
 
Grata,
 
Luciana
 
   
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 30/09/2005 15:13 hs            
em vba eu não sei mas em vb a rotina ficaria assim
Function G_NomeUsuario() As String
On Error GoTo Err_G_NomeUsuario
    Dim sBuffer As String
    Dim lBufSize As Long
    Dim lStatus As Long
   
    lBufSize = 255
    sBuffer = String$(lBufSize, " ")
    lStatus = GetUserName(sBuffer, lBufSize)
    G_NomeUsuario = ""
    If lStatus <> 0 Then
       G_NomeUsuario = Trim(Left(sBuffer, lBufSize - 1))
    End If
    If G_NomeUsuario = "" Then G_NomeUsuario = "Não Logado"
    Exit Function
Err_G_NomeUsuario:
    G_NomeUsuario = "Não Logado"
End Function
Espero que resolva o seu problema

dsmn
     
Gboese
SANTO ANDRÉ
SP - BRASIL
Postada em 30/09/2005 15:20 hs            
Tem um método muito muito fácil....
mande gravar uma macro dentro do excel, e digite neste campo a informação que deseja... Depois abra o editor de scripts do visual basic copie e cole a função no seu vb... Agora é só adaptar algumas coisinhas e seu código está pronto
 
Espero ter ajudado

Gustavo Boese
     
Elieser Topassi
Pontos: 2843 Pontos: 2843
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 01/10/2005 18:00 hs            
Luciana,
 
programar em VBA é exatamente vc usar o codigo e os recursos do VB na interface do Office... para fazer o q vc quer, basta vc pegar a API do Daniel e colocar ela em uma Sub na sua pasta do Excell... ai basta vc usar como se fosse qualquer outra Sub...
 
Flw!


Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn:
elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
Emoções "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página