Wie kann ich hier eine Schleife ...

Hi Profis,
Wie kann ich hier eine Schleife einbauen sodas das Passwort nur einmal eingegeben wird und die Tabelle somit für einen Zeitraum von ca 60minuten freigeben wird. Den Code hab ich hier aus dem Archiv und an meine Bedürfnisse mit basteln angepasst. Er überwacht einen Zellbereich und gibt immer nur selektierte Zellen bei richtiger Eingabe frei. Nur nerven diese PW Abfragen wenn mehrere Eingaben nacheinander erfolgen. Aber ich möchte nicht darauf verzichten da die Tab.Schutzmechanismen schon ausgereizt sind.


Private Sub Worksheet_SelectionChange(ByVal target As Range)
Dim a
If Not Intersect(target, Range("F13:AP90")) Is Nothing Then
Application.EnableEvents = False
a = InputBox("Passwort bitte? - (Keine Zahlen)")
If a  Range("Y5") Then Application.Worksheets("002").Range("J5").Select
End If
Application.EnableEvents = True
End Sub

Bin für jede Hilfe Dankbar und freu mich schon auf viele Tips.
Gruss Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal target As Range) Static meTimer As Single, a Application.EnableEvents = False If Not Intersect(target, Range("F13:AP90")) Is Nothing Then If a = "" Or meTimer < Now Then a = InputBox("Passwort bitte? - (Keine Zahlen)") End If If a <> Range("Y5") Then Application.Worksheets("002").Range("J5").Select meTimer = Now + TimeSerial(1, 0, 0) End If End If Application.EnableEvents = True End Sub

Option Explicit Private Sub Worksheet_SelectionChange(ByVal target As Range) Static meTimer As Date, a Application.EnableEvents = False If Not Intersect(target, Range("F13:AP90")) Is Nothing Then If a <> Range("Y5") Or meTimer < Now Then a = InputBox("Passwort bitte? - (Keine Zahlen)") End If If a <> Range("Y5") Then Application.Worksheets("002").Range("J5").Select meTimer = Now + TimeSerial(1, 0, 0) End If End If Application.EnableEvents = True End Sub

Private Sub Worksheet_SelectionChange(ByVal target As Range) Static meTimer As Date, a Application.EnableEvents = False If Not Intersect(target, Range("F13:AP90")) Is Nothing Then If a <> Range("Y5") Or meTimer < Now Then a = InputBox("Passwort bitte? - (Keine Zahlen)") meTimer = Now + TimeSerial(1, 0, 0) End If If a <> Range("Y5") Then Application.Worksheets("002").Range("J5").Select End If End If Application.EnableEvents = True End Sub

Private datNextPWCheck As Date 'Zeitpunkt des nächsten PW-Checks Private Sub Worksheet_SelectionChange(ByVal target As Range) Dim a If Not Intersect(target, Range("F13:AP90")) Is Nothing Then Application.EnableEvents = False If Now > datNextPWCheck Then a = InputBox("Passwort bitte? - (Keine Zahlen)") If a Range("Y5") Then Application.Worksheets("002").Range("J5").Select Else datNextPWCheck = Now + TimeSerial(0, 30, 0) '30 Minuten bis zur nächsten PW-Abfrage End If Else End If End If Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Wie kann ich hier eine Schleife ...

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wie kann ich hier eine Schleife ...

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread