Saberexcel - site das macros

Exemplo de como produzir senhas aleatórias de alta segurança na coluna A da folha de planilha Microsoft Excel, usando macros do do Aplicativo Microsoft Excel VBA. quantidade e numero de caracteres baseados nas células D2 e C2.

Sub Produzir_senha()
Dim i, y, SNA, SNC
Dim SN As String
Randomize

For i = 2 To ActiveSheet.Range("D2")
For y = 1 To ActiveSheet.Range("C2")
SNC = Int((Rnd * 50) + 72)
SNA = ChrW(SNC)
SN = SN & SNA
Cells(i, 1).Value = SN
Next y
SN = ""
Next i

Range("A1").Value = "Senhas Criadas"

End Sub

Sub Senhas_deletar()
Range("A2:A51").ClearContents
Range("A1").Value = "Senhas Deletadas"
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application) --( SaberExcel VBA )--



   Baixe o exemplo de planilha com as macros acima
vba senhas criar senhas aleatorias alta seguranca coluna a (30.67 kB 2010-11-27 16:25:26)