title image


Smiley Re: Sheets("Tabelle2").select mit Passwortschutz
hallo matze,



das müsste dir helfen:











Sub test1() 'hier deinen makronamen angeben

   On Error GoTo ende

   Dim strPassword As String, strPasswordEingabe As String

   strPassword = "Passwort" 'hier dein passwort eingeben!

   strPasswordEingabe = InputBox("Bitte geben Sie das Passwort ein!", "Passwortabfrage:")

   If strPasswordEingabe <> strPassword Then

      MsgBox "Passwort falsch! Auf ein Neues!"

      Call test1 'hier deinen makronamen angeben, denn es wird neu gestartet

   End If



   'hier dein makro



ende:

End Sub



wenn du bei einer falscheingabe das makro lieber abbrechen willst, dann nimm diesen code:



Sub test2() 'hier deinen makronamen angeben

   On Error GoTo ende

   Dim strPassword As String, strPasswordEingabe As String

   strPassword = "Passwort" 'hier dein passwort eingeben!

   strPasswordEingabe = InputBox("Bitte geben Sie das Passwort ein!", "Passwortabfrage:")

   If strPasswordEingabe <> strPassword Then GoTo ende



   'hier dein makro



ende:

End Sub







Code eingefügt mit Syntaxhighlighter 4.0




 Servus



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: