title image


Smiley Re: Makro zum abgleichen von Variablen
Hallo matze,

so kannst du es machen:



Sub matze()



Dim m, j, msich, jsich

Dim weiter As Boolean





If j = jsich And m = msich Then

weiter = pwabfrage

End If

If Not weiter Then Exit Sub



'hier dein weiterer Code



End Sub



Function pwabfrage() As Boolean



Dim pw As String



pw = InputBox("Bitte das PW eingeben")



If pw = "DeinPW" Then

pwabfrage = True

Else

pwabfrage = False

End If



End Function



Wenn du das Passwort bei der Eingabe unkenntlich machen willst, dann bau dir eine Userform mit einer Textbox und setzte dort das Passwordchar zB auf * und rufe die Userform in der pwabfrage-Function auf.

Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: