Bom dia!!!

Veja se te ajuda...

Sub RandomPassword()
    Dim strPassword As String
    Dim i As Integer
     
    For i = 1 To 8
        If i Mod 2 = 0 Then
            strPassword = Chr(Int((90 - 65 + 1) * Rnd + 65)) & strPassword
        Else
            strPassword = Int((9 * Rnd) + 1) & strPassword
        End If
    Next i
    MsgBox strPassword
End Sub

Caro Krbastos, Bom dia !

Olá galera, boa noite.

Sou novato e venho pedir a ajuda de vocês em uma questão:

Na minha planilha do excel tenho na coluna A todos os nomes dos meus clientes. Na coluna B tenho o telefone deles e na coluna C tenho o e-mail deles. Eu queria que fosse gerado uma senha na Coluna D.

A senha pode ter 8 caracteres ou mais que pode varias entre letras e números.

O importante é que NUNCA gere uma senha igual.

Como eu faria isso?

Desde já mto grato.

Tentando contribuir...

Veja um exemplo bem simples com formulas.

Baixe e veja se te atende.

Em anexo.

Dê retorno,
Abraços,

Bom dia!!

Esse ainda é via VBA e deposita na célula cada senha gerada..veja

Sub SenhaAleatoria()
    
    Dim strPassword As String
    Dim i As Integer
     
     
    For i = 1 To 8
        If i Mod 2 = 0 Then
            strPassword = Chr(Int((90 - 65 + 1) * Rnd + 65)) & strPassword
        Else
            strPassword = Int((9 * Rnd) + 1) & strPassword
        End If
    Next i
     
    n = WorksheetFunction.CountA(Range("A:A"))
     
    If n = 0 Then
        Range("A1").Value = strPassword
    Else
        Range("A" & n + 1).Value = strPassword
    End If
End Sub

Obrigado, Aplle seu exemplo foi muito útil sim já da para eu elaborar algo até mais complexo a partir daí.

alexandrevba muito obrigado pela atenção tbm, só que não tenho experiencia com excel, então não sei onde colocar o código e fazê-lo funcionar. Teria como me mandar um exemplo deste exemplo implementado? Grato.

Boa noite!!

Segue um exemplo..veja...

no anexo

Cara, muito bom alexandrevba.

Vlw, obrigado.

Boa noite!!

Que bom que seu problema foi resolvido...Marque seu tópico como resolvido!!

At...a próxima