Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufzeit

Forumthread: Laufzeit

Laufzeit
21.02.2005 10:54:27
Wolfgang
Hallo Leute!
Ist es möglich, den Zugriff auf eine Excel Datei zeitlich per VBA zu beschränken?
Danke für Eure Hilfe!
Wolfgang
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Laufzeit
21.02.2005 11:11:34
Werner
Grüezi Wolfgang

Private Sub Workbook_Open()
If Time < "22" Then ActiveWorkbook.Close SaveChanges:=False
End Sub

Wenn die Zeit kleiner ist als 22.00Uhr wird sie wieder geschlossen. Makros müssen aktiviert sein.
Gruss Werner
AW: Laufzeit
Marcl
Hi Wolfgang,

Sub auto_open()
'Fehlermeldungen ausschalten
Application.DisplayAlerts = False
'mit auto_open startet das makro automatisch
'oder Tatum und Zeit in Zellen eintragen
Dim dates As Date
Dim times As Date
dates = Range("a1") 'A1 das Datum (12.02.2005)
times = Range("A2") 'A2 die Uhrzeit (14:00:00)
dats = (" " & dates & " " & times & " ")
nowi = (" " & Now & " ")
If (nowi) < (dats) Then Exit Sub
' Ganzes Blatt markieren, Zellen schützen und Formeln ausblenden
' Blatt schützen mit Namen test
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect "test" ' Passwort "test"
Range("a1").Select
' Mappe speichern
ActiveWorkbook.Save
MsgBox ("Es sind keine Eingaben mehr möglich!")
End Sub

Gruß
Marcl
Anzeige
AW: Laufzeit
21.02.2005 11:53:45
Wolfgang
Danke Jungs für die rasche Hilfe!
Wolfgang
Danke für die Rückmeldung OT:-)
21.02.2005 12:41:39
Werner
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige