VBA Passwort Generator

amintire · 1970-01-01T00:00:00+00:00

Hallo alle zusammen, vielleicht hat ja jemand eine Idee oder Vorschlag. Also, aus Alphabet im Bereich F2:CO2 soll ein Passwort oder Schlüssel konstruiert werden so, das die Buschstaben z u f ä l l i g und ganz schön in gleiche Menge vertelt sind. Das heist, eine (egal welche) Buchstabe darf nicht mehr als andere (egal welche) Buchstabe vorkommen. Das Passwort oder Schlüssel soll in Celle F8 generiert werden. Länge der Passwort oder Schlüssel steht in Celle F17. https://www.herber.de/bbs/user/63251.xls Vielen Dank für Eure Bemühungen. Gruß amintire

HAllo
Versuch mal so:
Diesen Code in ein Modul:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function machs(A As Integer) As String
Const strText As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!""§$%&()[]{}\?**#:;,.-+<>"
Dim B() As Byte
Dim Z As Integer
Dim I As Integer
Dim tmp
B = StrConv(strText, vbFromUnicode)
Randomize
For I = 0 To UBound(B)
    Z = Int(UBound(B) * Rnd)
    tmp = B(Z)
    B(Z) = B(I)
    B(I) = tmp
Next
machs = Left(StrConv(B, vbUnicode), A)
End Function

Der Aufruf geht dann so:
Tabelle1 (2)

Passwort :

9HUKp7qna{L6

Passwort

Länge

Text :

Text

Länge

Formeln der Tabelle

Zelle	Formel
F8	=machs(F17)
F10	=LÄNGE(F8)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi

Hallo,
oder wir sorgen dafür, dass als erstes Zeichen niemals = vorkommt, sonst wird es von Excel als Formel interpretiert.
Zelle F8 auf Standard Formatieren!

Sub Kenerriere()
Dim strCode As String
Dim Bereich As Range, RndZahl As Long
Dim AnzahlZeichen As Long

Set Bereich = Range("A1", Cells(Rows.Count, 1).End(xlUp))
AnzahlZeichen = Bereich.Cells.Count
 
 Do
  RndZahl = Int((Bereich(1).Row - Bereich(1).Row + Bereich.Cells.Count + 1) * Rnd + Bereich(1).Row)
   If Not (Len(strCode) = 0 And Bereich(RndZahl) = "=") Then
    If (InStr(strCode, Bereich(RndZahl).Text) = 0) Or Not (AnzahlZeichen > Len(strCode)) Then
     strCode = strCode & Bereich(RndZahl)
    End If
   End If
 Loop While Len(strCode) < Range("F17")

Range("F8") = strCode
End Sub

Gruß Tino

Forumthread: VBA Passwort Generator

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial