Zeichenfolge mit Chr(*) verschleiern
Obg67
ich habe eine Benutzerprüfung geschrieben, die Klarnamen enthält. Sie funktioniert reibungslos.
Jetzt möchte ich gern im VBA-Code die Klarnamen mit ASCII-Code verschleiern. Hier stoße ich an Grenzen, vermutlich liegt es an fehlenden Anführungszeichen, Klammern oder Verkettungszeichen.
Der funktionierende Code :
Private Sub Auto_Open()
' Prozedur schon beim Öffnen der Datei ausführen
Dim wb As Workbook
Dim ws As Worksheet
Dim rng As Range
Dim Knopf As Long
Const cAllowedUser = ";Anton Aal;Berta Barbe;Dora Dorsch; "
Application.WindowState = xlNormal
Application.ScreenUpdating = False
Set wb = Workbooks("Benutzerkontrolle_6.xls")
Set ws = wb.Worksheets("Tabelle1")
ws.Visible = xlSheetVisible
Application.ScreenUpdating = True
' Berechtigung prüfen
If InStr(cAllowedUser, ";" & Environ("username") & ";") Then
MsgBox "Herzlich willkommen!"
' (Nur für Probebetrieb, nach dem Scharfschalten auskommentieren.)
Else
Knopf = MsgBox(Prompt:="Werkt niet Ne fonctionner pas" & vbNewLine _
& "Daten- und Urheberrechtsschutz" & vbNewLine _
& "Benutzerbeschränkung Kein Zugriff", _
Buttons:=vbOKOnly, _
Title:="Fichier confidentiel Secrets des données")
If Knopf = vbOK Then
On Error Resume Next
Application.DisplayAlerts = False
wb.Close
Application.DisplayAlerts = True
On Error GoTo 0
End If
End If
' Wenn Benutzerkontrolle erfolgreich, Tabelle1 aktivieren
Set wb = Workbooks("Benutzerkontrolle_6.xls")
Set ws = wb.Worksheets("Tabelle1")
ws.Activate
End Sub
Die Benutzernamen enthalten das Leerzeichen [Chr(32)]. Damit muß ich arbeiten.
vorgearbeitet:
Anton Aal = in Chr = 65 110 116 111 110 32 65 97 108
Berta Barbe = in Chr = 66 101 114 116 97 32 66 97 114 98 101
Dora Dorsch = in Chr = 68 111 114 97 32 68 111 114 115 99 104
Was ich bei der Ersetzung auch versucht habe, Hochkommata an der gesamten Zeichenfolge oder einzeln, mit und ohne Verkettungszeichen ("&" oder, veraltet, "+"), mit und ohne Klammern - ich schaffe es nicht.
Wer kann mit der richtigen Syntax weiterhelfen - oder mich auf die Spur bringen, wo mein Denkfehler liegt?
Freundliche Grüße,
Obg67.