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)
