Wir wünschen allen Forenteilnehmern ein frohes Fest und einen guten Rutsch ins neue Jahr. x

[Excel] Verstecken, aber "richtig", über Smarttags
#1
Moin!
Die Aufgabe ist ja nicht gerade neu:
Wie verstecke ich Informationen (beispielsweise ein Copyright) so in einer Datei, dass sie auch ein geübter Anwender nicht ohne weiteres sieht und sie entfernen oder ändern kann.
Mit:
Sub AddCustProp()
Tabelle1.CustomProperties.Add "Ersteller", "RPP63"
End Sub
schreibe ich Informationen in die Datei, die man nirgendwo in der Anwendung, auch nicht in den Eigenschaften der Tabelle (VBA-Editor) sehen kann (Name:= und Value:=).
Lösche ich obiges Makro wieder, muss man schon Hellseher sein, um zu wissen, dass da etwas versteckt wurde.

Das Auslesen ist einfach:
Sub ReadCustProp()
With Tabelle1
  MsgBox .CustomProperties(1).Name & Chr(13) & .CustomProperties(1).Value
End With
End Sub

Vielleicht kann ja der eine oder andere was damit anfangen ...
Im Übrigen kann man die Indizes ja mit ähnlichen Daten füllen, relevant ist als Beispiel nur die Kombination (8).Name und (3).Value

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste