Countdown- Schutz einer Arbeitmappe

Forumthread: Countdown- Schutz einer Arbeitmappe

04.03.2008 15:25:00

Spruch

Hallo liebe Leute,
ich habe ein Problem mit einer meiner Arbeitsmappen:
Ich möchte sie gerne durch ein Passwort schütz, das geht ja noch. Aber wenn eine Zeitlang keine Aktionen in der Arbeitsmappe stattgefunden haben soll Tabelle1 angezeigt werden und eine erneute Passwortabfrage gestartet werden(wie beim Start der Arbeitsmappe> erfolgt durch eine Inputbox)
Mein Versuch sieht wie folgt aus:


Sub Zeitschloss()
Start = True
Zeit = "00:04:00"
Application.OnTime _
Now + TimeValue(Zeit), "NeuAbfrage"
End Sub


Sub NeuAbfrage()
Tabelle1.Activate
AbfragePasswort    'Inputbox wird aufgerufen und Passwortabgleich
End Sub

"Zeitschloss" habe ich immer am ende von Worksheet.activate oder Button_click usw. eingebaut.
Leider tritt dann immer ein Problem auf: Ich werde zu mehrfachen eingaben des Passwortes gebeten(immer im abstand wie ich die Buttons oä. benutzt habe> sprich 10mal Button benutzt = zehnmal Passwort eingeben.
Hat jemand von euch eine schlüssige und hilfreiche Antwort auf mein Problem.
Dank schon mal im Voraus
Spruchi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Countdown- Schutz einer Arbeitmappe

04.03.2008 15:34:39

Tino

Hallo,
du müsstest deinen zuvor gesetzten Timer wieder löschen.
Ungetestet:


Sub TimerAus(Zeit As String)
Application.OnTime EarliestTime:=TimeValue(Zeit), _
Procedure:="NeuAbfrage", Schedule:=False
End Sub


Sub Zeitschloss()
Dim Zeit As String
Start = True
Zeit = "00:04:00"
TimerAus (Zeit) 'Timer Ausschalten
Application.OnTime _
Now + TimeValue(Zeit), "NeuAbfrage"
End Sub


Sub NeuAbfrage()
Tabelle1.Activate
AbfragePasswort    'Inputbox wird aufgerufen und Passwortabgleich
End Sub

Gruß
Tino

AW: Countdown- Schutz einer Arbeitmappe

04.03.2008 15:50:00

Tino

Hallo,
der erste Code hat nicht funktioniert, da ich den Timer nicht sauber gelöscht habe.
so gehts, getestet.


Option Explicit
Public Zeit As Date
Sub TimerAus()
On Error Resume Next
Application.OnTime EarliestTime:=Zeit, _
Procedure:="NeuAbfrage", Schedule:=False
End Sub
Sub Zeitschloss()
Dim Start As Boolean
TimerAus 'Timer Ausschalten
Zeit = Now + TimeValue("00:00:10")
Application.OnTime Zeit, "NeuAbfrage"
End Sub
Sub NeuAbfrage()
Tabelle1.Activate
AbfragePasswort    'Inputbox wird aufgerufen und Passwortabgleich
End Sub

Gruß
Tino

AW: Countdown- Schutz einer Arbeitmappe

04.03.2008 15:56:06

Tino

Hallo,
habe noch vergessen zu erwähnen, du solltest beim schließen der Datei darauf achten dass der Timer gelöscht wird!
In die DieseArbeitsmappe als Code


Private Sub Workbook_BeforeClose(Cancel As Boolean)
TimerAus
End Sub

Gruß
Tino

AW: Countdown- Schutz einer Arbeitmappe

05.03.2008 18:16:36

Spruch

Danke für deine schnelle und hilfreiche Nachricht,
habe es schon eingebaut, es funktioniert wunderbar.
mfg henning

Beliebteste Forumthreads (12 Monate)

Countdown- Schutz einer Arbeitmappe

Forumthread: Countdown- Schutz einer Arbeitmappe

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread