title image


Smiley Re: Command Button Schützen
Hi,



Option Explicit

Private Sub CommandButton1_Click()

Dim m

m = InputBox("Passwort?")

If m = "" Or m "Passwort" Then Exit Sub

''Hier dein Code

MsgBox "Ok, Code wird ausgeführt!"

End Sub



mfg E.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: