Timer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Timer

27.09.2019 08:04:37

Oberschlumpf

AW: Timer

27.09.2019 08:17:17

Norbert

AW: Timer

27.09.2019 08:30:49

Oberschlumpf

AW: Timer

27.09.2019 08:54:35

Norbert

AW: Timer

27.09.2019 09:02:55

Oberschlumpf

AW: Timer

27.09.2019 09:28:48

Norbert

AW: Timer

27.09.2019 10:01:57

Pierre

AW: Timer

27.09.2019 10:08:06

Pierre

Hi Norbert,
ok, hier eine Bsp-Datei für dich:
https://www.herber.de/bbs/user/132227.xlsm
Bitte speicher die Datei erst, bevor du sie öffnest!
Erklärung:
1. Öffnest du die Datei nun das erste Mal, wird sie einfach geöffnet
wegen des Tests wird die Datei schon nach 10 Sekunden mit dem PW "wissen2019" geschützt, automatisch gespeichert und wieder geschlossen
2. Öffnest du die Datei nun ein weiteres Mal, ist das zuvor gesetzte PW "wissen2019" erforderlich. Erst nach PW-Eingabe wird die Datei wieder...gespeichert + geschlossen.
Die Zeit von 10 Sekunden kanst du auf 1 Stunde verlängern, indem du im Workbook_Open-Ereignis diese Zeile

Application.OnTime Now + TimeValue("00:00:10"), "sbEnde"

änderst in

Application.OnTime Now + TimeValue("01:00:00"), "sbEnde"

Hilfts denn?
Ciao
Thorsten
P.S. zu bedenken ist vielleicht noch, dass jeder Proband innerhalb der 1 Std die Möglichkeit hat, die Datei unter anderen Namen zu speichern, die Datei vor Ablauf der Zeit zu schließen (mit/ohne speichern), die Datei zu speichern UND vorher selbst ein Passwort zu setzen

Hallo Norbert,
arbeite doch mit einer Vorlage (.xltm)?
Dann hast du die leere Vorlage immer verfügbar, musst nichts löschen und so weiter.
Dann folgende Codes:
Unter "Diese Arbeitsmappe":

'einfügen in "Diese Arbeitsmappe"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Beim Speichern wird die Dateiendung vorgegeben und kann nicht
'mehr durch MA geändert werden.
'Es wird zusätzlich eine MessageBox geöffnet
Dim Datei As Variant
ChDrive "C"                     'Laufwerk evtl. anpassen
ChDir "C:\Users\user207\Desktop"
If SaveAsUI Then
Cancel = True
Do
Datei = Application.GetSaveAsFilename
If VarType(Datei)  vbString Then Exit Do
Datei = Left(Datei, InStrRev(Datei, ".")) & "xlsm"                  'Dateiendung evtl.  _
anpassen
If Dir(Datei)  "" Then
Select Case MsgBox("Datei existiert schon, überschreiben?", _
vbQuestion + vbYesNoCancel)
Case vbYes
Kill Datei
Me.SaveAs Datei, xlOpenXMLWorkbookMacroEnabled          'als .xlsm  _
speichern, evtl. anpassen
Exit Do
Case vbNo
Case vbCancel
Exit Do
End Select
Else
Me.SaveAs Datei, xlOpenXMLWorkbookMacroEnabled                  'als .xlsm  _
speichern, evtl. anpassen
Worksheets("Tabelle1").Unprotect Password:="XXX"                'Passwort anpassen
Exit Do
End If
Loop
End If
End Sub

Unter einem allgemeinen Modul:

Sub Shutdown()
ThisWorkbook.Close savechanges:=True
End Sub

Um einen Timer zu setzen, brauchst du folgende Codezeile unter "Diese Arbeitsmappe":

Application.OnTime Now + TimeValue("01:00:00"), "Shutdown"

ich weiß nur leider nicht, an welche Stelle die gehört, sorry.
Gruß Pierre

Sub Shutdown() Dim Datei As Variant Dim SaveAsUI As Boolean Dim Cancel As Boolean ChDrive "C" 'Laufwerk evtl. anpassen ChDir "C:\Users\user207\Desktop" If SaveAsUI Then Cancel = True Do Datei = Application.GetSaveAsFilename If VarType(Datei) vbString Then Exit Do Datei = Left(Datei, InStrRev(Datei, ".")) & "xlsm" 'Dateiendung evtl. _ anpassen If Dir(Datei) "" Then Select Case MsgBox("Datei existiert schon, überschreiben?", _ vbQuestion + vbYesNoCancel) Case vbYes Kill Datei Me.SaveAs Datei, xlOpenXMLWorkbookMacroEnabled 'als .xlsm _ speichern, evtl. anpassen Exit Do Case vbNo Case vbCancel Exit Do End Select Else Me.SaveAs Datei, xlOpenXMLWorkbookMacroEnabled 'als .xlsm _ speichern, evtl. anpassen Worksheets("Tabelle1").Unprotect Password:="XXX" 'Passwort anpassen Exit Do End If Loop End If End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Timer

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread