Ablaufdatum einer Excelmappe

[shift-del]

Hallo wavemaster

Vielleicht wäre das auch eine Möglichkeit:
Verhindern, dass an einer endgültigen Version einer Datei Änderungen vorgenommen werden

[wavemaster]

Hallo zusammen,
leider etwas spät mit dem testen der Angaben. Habe den Code geändert, jedoch läßt sich die Arbeitsmappe nach dem Ablaufdatum noch bearbeiten. Ich wollte das man die datei öffnen kann nach dedm Datum aber nicht mehr bearbeiten kann.

Dies ist das geänderte Makro:

Private Sub Workbook_Open()

Application.DisplayAlerts = False
Heute = Now
Verfalldatum = #5/29/2015#  'Die Datei ist verfallen

If Verfalldatum > Heute Then
MsgBox "Alles klar schönen Tag noch"
Else

Prompt = "Bitte wenden Sie sich an Ihren Administrator!"
DialogArt = vbOK
Title = "Ihre Testzeit ist abgelaufen..."
Antwort = MsgBox(Prompt, DialogArt, Title)

Me.Saved = True
 Me.ChangeFileAccess xlReadOnly

End If
End Sub



Was ist hier noch falsch.


Die Arbeitsmappe hat einen Passwortschutz.

[RPP63]

Hallo!

Was ist hier noch falsch?

Ich habe heute für eine EinMann-Firma ein Problem gelöst.
Diese hatte korrekt eine zeitlich nicht limitierte Lizenz erworben,
Firma nutzt die Datei seit Jahren,
Hersteller insolvent,
Firma ratlos ...

Nach 20 Minuten hatte ich alle Blockaden aufgehoben ...

(Soviel zum Thema Excel und Sicherheit)

Gruß Ralf

[Kuwer]

Hallo,

jedoch läßt sich die Arbeitsmappe nach dem Ablaufdatum noch bearbeiten.

was ist daran schlimm?. Speichern lassen sich die Änderungen aber nicht mehr. Es sollte in der Titelleiste auch "[Schreibgeschützt]" stehen.

Gruß Uwe

[wavemaster]

Hallo,

jedoch läßt sich die Arbeitsmappe nach dem Ablaufdatum noch bearbeiten.

was ist daran schlimm?. Speichern lassen sich die Änderungen aber nicht mehr. Es sollte in der Titelleiste auch "[Schreibgeschützt]" stehen.

Gruß Uwe

Hallo Kuwer,

das stimmt nicht ganz es läßt sich speichern aber nur über das Menü unter anderem Namen.

[wavemaster]

Morgen zusammen,
Hat jemand noch einen Geistesblitz wie das kleine Problemchen gelöst werden kann.

[Kuwer]

Hallo,

da Du so darum bettelst: :)

Code:

Private Sub Workbook_Open()
 Heute = Date
 Verfalldatum = #5/29/2015#  'Die Datei ist verfallen
 
 If Verfalldatum > Heute Then
   MsgBox "Alles klar schönen Tag noch"
 Else
   Prompt = "Bitte wenden Sie sich an Ihren Administrator!"
   DialogArt = vbOK
   Title = "Ihre Testzeit ist abgelaufen..."
   MsgBox Prompt, DialogArt, Title
   
   Me.Saved = True
   Me.ChangeFileAccess xlReadOnly
   Application.Interactive = False
 End If
End Sub

Gruß Uwe

[wavemaster]

Morgen zusammen,

folgender Befehl in dem Makro

 Application.Interactive = False

löst folgendes aus.

Das Arbeitsblatt kann nicht mehr angeklickt werden,
ebenso kann Excel nicht mehr geschlossen werden.

Das schließen von Excel ist nur noch mit dem Task manager möglich.



Schade......

[wavemaster]

Hallo zusammen,

habe nochmals einwenig umhergestöbert und bin auf dieses Makro gestossen.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook.IsAddin = True
End Sub

Private Sub Workbook_Open()
Dim d As String
If Date >= CDate("15.04.2008") Then
ThisWorkbook.IsAddin = True
d = InputBox("Passwort eingeben", _
"Zugangsbeschränkung", "xx")
If d <> "PASSWORT" Then ' hier Passwort eintragen
MsgBox "jetzt nicht mehr"
Exit Sub
End If
End If
ThisWorkbook.IsAddin = False
End Sub


das funktioniert keine Frage, doch man muß es als Addin abspeichern.

Gibt es eine Möglichkeit dieses Makro ohne Addin zu realisieren.

2 Frage:
gibt es dann noch eine Möglichkeit folgendes einzubinden 1 Datum läuft 2 Monate und dann Passworteingabe dann laufzeit 1 Jahr und nach einem 1 Jahr wieder Passwort eingabe ( die Passwörter werden vorab festgelegt ) Gesamtlaufzeit zB. 5 Jahre.

:19: :19: :19: :19: :19: :19: 

Danke an die Spezialisten

[wavemaster]

Morgen zusammen,

Möchte ja nicht nerven, aber hat sich jemand das Markro verinnerlicht. Wenn ja gibt es zu meinen Fragen eine Antwort.
Wäre toll wenn sich jemand meldet, sonst muß ich weiterstöbern.

Danke nochmals.
:19: