Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1476to1480
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Neues Password

Neues Password
24.02.2016 15:17:06
Armin
Hallo Freunde,
ich habe eine Frage und Zwar geht um Sicherheit und Schreibschütz!
Ich habe eine Arbeitsmappe und habe die mit ein Password geschützt!
Ich gebe den User den Password und kann damit arbeitn ABER,Wenn jemand ab einem bestimmten Datum damit arbeiten will, soll ein neues Serial Number (Kennwort) eingeben um die Mappe freigeschaltet zu werden. Das Password soll ich nur ich wissen und im Programm implementiert sein!So eine Art Trial Version!
ist das möglich?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Neues Password
24.02.2016 16:33:20
KlausF
Hallo Armin,
schon die Recherche dieses Forums genutzt?
Gib mal bei Volltextsuche Passwort Testversion ein.
Da sollte etwas dabei sein.
Gruß
Klaus

AW: Neues Password
25.02.2016 12:01:42
Armin
Hallo Klaus, ich habe das bei den Rechnerche gefunden aber die Frage ist wo soll ich das eingeben einegeben. In einem neuen Modul oder in ein Abreibtblatt, da meine Excelmape besteht aus mehreren Arbeitsblättern.
Oder soll ich in jedem Arbeitsblatt als 

Private Sub eingeben
Sub Datloesch()
If Date >"01.06.200X" Then
MsgBox "Sie haben ja doch nicht bezahlt!"
Application.DisplayAlerts = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.DisplayAlerts = True
ThisWorkbook.Close False
End If
End Sub

Anzeige
ThisWorkbook
25.02.2016 17:07:08
KlausF
Hallo Armin,
gib dieses Makro in ein neues Modul und schreibe dann unter
ThisWorkbook (evtl. bei Dir: DieseArbeitsmappe o.ä.) folgendes
Private Sub Workbook_Open()
Datloesch
End Sub
Das Datum im Makro musst Du natürlich vorher korrekt setzen.
Nach Ablauf des Datums erscheint beim Öffnen der Mappe die Meldung
und die Datei wird danach unwiderruflich(!) gelöscht. Also vorsichtig.
Du solltest Dir allerdings vorher ein paar Fragen beantworten.
1. Erscheint mir die Meldung zu drastisch. Besser wäre so etwas wie
Ablaufdatum erreicht. Datei wird nun gelöscht.
2. Willst Du wirklich, dass die Mappe sofort gelöscht wird?
3. Bekommt der User vor dieser ultimativen Meldung noch einmal
einen Hinweis wie: Achtung. Datei läuft in 5 Tagen ab, oder so,
damit er darauf noch reagieren könnte?
4. Der Schutz ist für geübte Excel-User ganz leicht auszuhebeln
Gruß
Klaus
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige