Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
380to384
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
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro ausführen wenn ........Blattschutz/Datum

Makro ausführen wenn ........Blattschutz/Datum
14.02.2004 21:17:21
floh
Hallo VBA Experten,
ich möchte eine von mir erstellte Excel-Tabelle weitergeben
Diese Tabelle ist mit einem Blattschutz versehen, sodaß die Formeln
nicht eingesehen werden können.
Für den Fall, daß der Blattschutz gecrackt wird, soll folgendes Makro nach einer bestimmten Zeit und ab einem bestimmten Datum automatisch ablaufen.
Bedingung:
1. aktiviere ab den 20.2.2004 folgendes Makro
und
2. wenn der Blattschutz länger als 1 min geöffnet ist (z.B durch x-crack)
Dann:
wandele die Formeln dieser Tabelle in Text um
(bzw. Zellen kopieren --> Inhalte einfügen --> Werte einfügen)
Mit besten Dank im Voraus Floh

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

Betreff
Datum
Anwender
Anzeige
AW: Makro ausführen wenn ........Blattschutz/Datum
14.02.2004 21:47:02
Ramses
Hallo
Stell eine leere Tabelle als erstes indeine Tabelle, vergib einen Blatt- und Arbeitsmappenschutz und aktivere nach einer Passwort abfrage die eigentliche Tabelle wo deine Daten stehen.
Auch das VB-Projekt schützen,... sonst macht es keinen Sinn ;-)
Wenn der Benutzer die Makros nicht aktiviert, kann er nicht an die Tabelle ran.
Ob eine DAtei mit Xl-Crack bearbeitet wurde oder nicht, kannst du nicht prüfen.
Das ist sowieso egal, oder glaubst du, dass jemand der mit Xl-Crack arbeitet mit deinem Code in den Makros probleme hätte :-)
Limitiere die Laufzeit, dahingehend dass du bei überschreiten eines Datum die Datei selbst löscht
If Date >= Format(Now,"dd.mm.yyyy") Then
Kill Thisworkbook.Fullname
End If
Nach dem schliessen der Datei ist die Datei weg :;-)
Prinzipiell:
Vergiss grundsätzlich dass deine Datei vor fremden Blicken oder Zugriff geschützt ist :-).
Wenn jemand will, schafft er das.
Im Durchschnitt ist so eine geschützte Datei durch einen Profi in etwas weniger als einer Minute geknackt und offen wie ein Scheunentor.

Gruss Rainer
Anzeige
AW: Makro ausführen wenn ........Blattschutz/Datum
14.02.2004 22:55:22
Floh
Hallo Rainer,
erstmal vielen Dank für Deine Antwort,
Das es keinen perfekten Schutz gibt, hab ich schon geahnt.
Ganz löschen kann ich die Datei nicht weil, der Empfänger noch `ne Weile mit der Datei arbeiten muß.
Da der Empfänger nicht sehr gut im Excel-Stoff steht, hoffe ich, das für den Fall daß
er den Blattschutz auf irgend eine Weise aufhebt, wenigstens ein kleiner Stein in den Weg gelegt wird.
Als deshalb noch einmal die Teilfrage :
gibt es einen Makrobefehl, der sagt:
wenn der Blattschutz länger als 1min geöffnet dann führe folgenden Befehl aus......
Mit freundlichen Grüßen
Floh
Anzeige
AW: Makro ausführen wenn ........Blattschutz/Datum
15.02.2004 09:01:51
andre
hallo floh,
im prinzip so:


'in diesearbeitsmappe-codeblatt
Option Explicit
Private Sub Workbook_Open()
Zeitmakro
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime EarliestTime:=ET, Procedure:="Zeitmakro", Schedule:=False
End Sub
'in ein modul-codeblatt
Option Explicit
Public ET As Variant
Sub Zeitmakro()
Dim schutz As Boolean
schutz = ActiveSheet.ProtectContents
MsgBox schutz 'hier dann: if schutz = false then tue was ...
ET = Now + TimeValue("00:01:00")
Application.OnTime ET, "Zeitmakro"
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

gruss andre
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige