Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
580to584
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
580to584
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

demo

demo
11.03.2005 15:28:25
erik
Hallo,
ich möchte ein Tabellenblatt mit einer beschränkten Laufzeit erstellen,
also nach Ablauf von 30 Tagen soll sich die Datei nicht mehr öffnen lassen.
Hat jemand von Euch eine Idee wie man dies am schlauesten lösen kann ?
Übrigens noch mal vielen Dank für die Unterstützung meiner letzte Frage bzgl. email !!!
erik

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: demo
11.03.2005 15:40:58
Drazen
Hallo Erik,
das hier hab ich in der Recherche gefunden, und mir hat es geholfen:

Private Sub Workbook_Open()
Dim Pfad As String
Dim wb1 As Workbook
Dim ws1 As Worksheet
Set wb1 = ThisWorkbook
Set ws1 = wb1.Worksheets("Timer")
Application.ScreenUpdating = False 'ausschalten der Bildschirmaktualisierung
Sheets("Timer").Visible = xlVeryHidden 'Vorteil sie können nicht über "Format" -> "Blatt einblenden" eingeblendet werden
If ws1.Cells(1, 1).Value = "" Then 'eintrag des starttages der Frist beim ersten Start
ws1.Cells(1, 1).Value = Date
End If
'Test ob die Frist rum ist
If ws1.Cells(1, 2).Value = "unbegrenzt#543" Then 'bei Besitz einer unbegrenzt gültigen Version (string ist egal bedeutung ist wichtig)
ElseIf ws1.Cells(1, 1).Value + ws1.Cells(1, 2).Value < Date Then 'wenn startdatum+Frist schon vergangen sind
Application.ScreenUpdating = True
MsgBox "Die Laufzeit dieser Trialversion ist abgelaufen."
Application.DisplayAlerts = False
wb1.Close SaveChanges = False
End If
Application.ScreenUpdating = True 'ausschalten der Bildschirmaktualisierung
End Sub

Du must also ein Blatt einfügen und es unsichtbar machen per VBA, dort das Datum der ersten Aktivierung eintragen, und danach dan den Zeitraum bestimmmen in dem die Mappe gültig ist.
Hoffe es bringt dich weiter.
Grüsse
Drazen
Anzeige
AW: demo
11.03.2005 15:54:05
erik
Hallo,
erstmal vielen Dank für Deine Hilfe,
Ich muß ich den Code erstmal testen !
erik
AW: demo
11.03.2005 16:12:16
UweD
Hallo Eric
So gehts:
die Benutzerdefinierte Eigenschaften werden benutzt

Private Sub Workbook_Open()
On Error GoTo Neu
weiter:
If Date - ThisWorkbook.CustomDocumentProperties("Ende").Value > 30 Then
MsgBox "Sorry zu spät"
Me.Close savechanges = False
End If
Exit Sub
Neu: 'wenn er Eintrag noch fehlt, wird er angelegt
ActiveWorkbook.CustomDocumentProperties.Add Name:="Ende", _
LinkToContent:=False, Type:=msoPropertyTypeDate, Value:=Date
Me.Save
Err.Clear
GoTo weiter
'Wert lässt aber sich unter Datei, Eigenschaften, Anpassen einstellen
End Sub

Gruß UweD
Anzeige
AW: 2 Fragen an Uwe
11.03.2005 16:48:49
Martin
Hallo Uwe,
da mich das Thema auch schon länger interessiert, 2 Fragen:
1) Was passiert, wenn der Nutzer beim Öffnen der Datei die Makros nicht aktiviert?
2) Was passiert, wenn der Nutzer, dann wenn die MsgBox kommt, STRG-UNTBR drückt?
Gruß
Martin Beck
AW: 2 Fragen an Uwe
14.03.2005 08:04:23
UweD
Hallo
zu1) Du kannst alle relevanten Blätter ausblenden (oder besser veryhidden setzen). Dann auf ein übriggebliebenes Blatt schreiben, "Läuft nur mit Makroaktivierung"
Beim Start mit Makros werden die Blätter beim Workbookopen eingeblendet und später beim BeforeClose wieder ausgeblendet.
zu2) die Msgbox war nur für das Beispiel gedacht
Das ganze kann natürlich noch sicherer gemacht werden.. (Tasten abschalten etc.)
Aber! Jeder Schutz lässt sich aushebeln... Kommt eben auf das Können der User an...
Gruß Uwe
Anzeige
AW: demo
11.03.2005 17:16:06
erik
Hallo UweD,
bei kommt in der Zeile:

Me.Close savechanges = False
die Fehlermeldung, Variable nicht definiert !
Woran kann das liegen ?
erik
AW: demo
14.03.2005 07:57:24
UweD
Hallo
dann versuch mal anstelle von "Me." "ThisWorkbook."
Gruß UweD

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige