Gerar Senhas

Para criar uma função em VBA que gera senhas aleatórias e as imprime a partir da célula A1, você pode utilizar o seguinte código. Este código permite gerar senhas que incluem letras (maiúsculas e minúsculas), números e símbolos especiais. As senhas geradas serão impressas na coluna A, com tamanho de fonte 14 e no formato de texto.

Function GerarSenhaAleatoria(Tamanho As Integer) As String
    Dim Caracteres As String
    Dim i As Integer
    Dim Senha As String

    ' Definir os caracteres possíveis
    Caracteres = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!@#$%^&*"

    Randomize

    ' Gerar a senha
    For i = 1 To Tamanho
        Senha = Senha & Mid$(Caracteres, Int((Len(Caracteres) * Rnd) + 1), 1)
    Next i

    GerarSenhaAleatoria = Senha
End Function

Sub ImprimirSenhas()
    Dim i As Integer
    Dim Senha As String

    ' Configurar a coluna A
    With Range("A:A")
        .NumberFormat = "@"
        .Font.Size = 14
    End With

    ' Gerar e imprimir 10 senhas
    For i = 1 To 10
        Senha = GerarSenhaAleatoria(10) ' Gera uma senha de 10 caracteres
        Cells(i, 1).Value = Senha
    Next i
End Sub