Zahlenwerte verschlüsseln
29.09.2005 12:41:31
R.Schmitt
ich soll sensible Werte in einem Arbeitsblatt so manipulieren,
daß ein Dritter damit nicht arbeiten kann. Die Zahlen werden
aus einer zweiten Datei in meine aktuelle hereingeladen und
umfassen einen Bereich von 4 Spalten und etwa 50000 Zeilen.
Die Quelldatei ist schon Passwordgeschützt und ich dachte mir
die Zahlen dort in Buchstaben bzw. Sonderzeichen umzuwandeln
abzuspeichern und beim Reinladen in meine Arbeitsmappe wieder
retour umzuwandeln.
Klappt ja mit
With Selection
.Replace What:="0", Replacement:="å", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
hervorragend. Nimmt aber nur etwas Zeit in Anspruch. Um genau zu sein ist
es den Nutzern zu lange.
Hat jemand eine Idee, wie man dieses Problem schneller lösen kann.
Optimiert habe ich ja schon dadurch nur den tatsächlich benötigten Teil
bis letzte benutzte Zelle zu bearbeiten,
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.CutCopyMode = False
Application.CommandBars("Standard").Controls("Rückgängig").Enabled = False
ist auch schon alles drin.
Wie geht´s also schneller oder eleganter ?
Viele Grüße
R.Schmitt