Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Countdown- Schutz einer Arbeitmappe

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

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

Betreff
Datum
Anwender
Anzeige
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

Anzeige
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 geht’s, 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

Anzeige
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige