• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Kyryus

[Resolvido] Problema com password

5 mensagens neste tópico

boas

tou a fazer um login em vba e apliquei a mascara PASSWORD a uma textbox

mas o programa ja nao reconhece a pass com a mascara...

como resolvo isto??

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Duvido que isto tenha alguma coisa a ver com bases de dados.

O que te posso dizer e' que quando aplicas alguma codificacao a uma password, quando a pedes de volta da base de dados tens de a 'descodificar', ou seja, codificas o que quer que o user tenha posto na textbox e comparas com o que tens na BD.

Espero que isto ajude.

Seja como for, nao me parece um problema de bases de dados.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Duvido que isto tenha alguma coisa a ver com bases de dados.

O que te posso dizer e' que quando aplicas alguma codificacao a uma password, quando a pedes de volta da base de dados tens de a 'descodificar', ou seja, codificas o que quer que o user tenha posto na textbox e comparas com o que tens na BD.

Espero que isto ajude.

Seja como for, nao me parece um problema de bases de dados.

ja resolvi... e sim era problema pa'qui pq mete Access

bigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Para resolver este problema faça estas rotinas

Sub PCInformation()

Dim msg

  msg = “UserName” & vbTab & Environ$(”username”) & vbNewLine _

      & “UserProfile” & vbTab & Environ(”UserProfile”) & vbNewLine _

      & “Computer #” & vbTab & Environ$(”ComputerName”) & vbNewLine _

      & “Logon Server” & vbTab & Environ$(”Logonserver”) & vbNewLine _

      & “UserDomain ” & vbTab & Environ$(”UserDomain”)

  MsgBox msg, , “Environment Variables“

End Sub

‘idem

Sub Retorna_Logon_Nome()

Dim wshNetwork As Object

Dim LogonName As Variant

  Set wshNetwork = CreateObject(”WScript.Network”)

  LogonName = “Logon Name = ” & wshNetwork.UserName

  MsgBox LogonName

End Sub

Option Explicit


Public Declare Function GetUserName Lib “advapi32.dll” Alias “GetUserNameA” _

    (ByVal lpBuffer As String, nSize As Long) As Long

Public Declare Function GetComputerName Lib “kernel32″ _

        Alias “GetComputerNameA” _

    (ByVal lpBuffer As String, nSize As Long) As Long

Function OSUserName() As String

    Dim Buffer As String * 256

    Dim BuffLen As Long

    BuffLen = 256

    If GetUserName(Buffer, BuffLen) Then _

      OSUserName = Left(Buffer, BuffLen - 1)

End Function

Function OSMachineName() As String

    Dim Buffer As String * 256

    Dim BuffLen As Long

    Dim lngX As Long

    Dim strCompName As String

    BuffLen = 255

    If GetComputerName(Buffer, BuffLen) Then _

      OSMachineName = Left(Buffer, BuffLen)

End Function

Sub Teste_Usuário_host()

  MsgBox OSUserName & ” ” & OSMachineName

End Sub
Abr 21Mostra o nível de segurança das macros
Aplicativo_Excel No Comments » 

‘Esta macro retorna o nível de segurança atual no seu aplicativo Excel

‘conforme abaixo



Sub Teste_Nivel_Segurança()

  MsgBox Nivel_Seguranca

End Sub

Function Nivel_Seguranca()

‘para Excel 2000 et 2002,2003 a função retorna

‘ 1 -> nivel de segurança Baixo

‘ 2 -> nivel de segurança Médio

‘ 3 -> nivel de segurança Alto

Dim Cle2000$, Cle2002$, WSH

  Cle2000 = “HKCU\Software\Microsoft\Office\9.0\Excel\Security\Level”

  Cle2002 = “HKCU\Software\Microsoft\Office\10.0\Excel\Security\Level”

  Cle2003 = “HKCU\Software\Microsoft\Office\11.0\Excel\Security\Level”

  Set WSH = CreateObject(”WScript.Shell”)

  Select Case Val(Application.Version)

    Case 9

      Nivel_Seguranca = WSH.RegRead(Cle2000)

    Case 10

      Nivel_Seguranca = WSH.RegRead(Cle2002)

    Case 11

      Nivel_Seguranca = WSH.RegRead(Cle2003)

    Case Else

      Nivel_Seguranca = “Versão d’Excel não conhecida “

  End Select

End Function

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Para resolver este problema faça estas rotinas

Obrigado pelo contributo e bem vindo à comunidade.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora