Office: (Office 2007) Checksum auf bestimmte bereiche in einem Sheet

Hallo Forum. Ich habe ein sehr kompliziertes Anliegen, ich hoffe ihr könnt mir weiterhelfen.

Ich habe ein Spreadsheet mit mehreren Worksheets.

In manchen Worksheets sind nur Berechnungen mit sehr komplizierten Formeln (auch über mehrere Worksheets hinweg), in anderen Worksheets sind Bereiche zur Eingabe von Werten.

Ich möchte sicherstellen, dass niemand an dem Sheet etwas ändert. Ich werde hierfür natürlich Zellen sperren und auch das Sheet selbst nochmal mit Passwort versehen.

Theoretisch kann es sein, dass jemand der das Passwort weiß, die Zellen entsperrt, etwas an den Formeln ändert, und dann wieder sperrt, um es so aussehen zu lassen, als wäre es von Anfang an so gewesen.

Um dem entgegenzuwirken, war die Idee eine Checksum auf das Sheet zu generieren, allerdings ist die Checksum wertlos, sobald in den Eingabebbereichen Werte drin stehen.

Es besteht also die Frage, ob ich (vielleicht auch innerhalb von Excel) Checksums nur auf bestimmte Bereiche (die Zellen mit den Formeln) generieren kann? Dann könnte man auch wenn das Sheet ausgefüllt ist, auf den "Formelbereich" eine Checksum generieren und diese mit einer vorher anderweitig gespeicherten Checksum vergleichen, und somit sicherstellen, dass die Formeln unverändert sind.

Ist so etwas in irgendeiner Form möglich? Ich bin offen für Vorschläge *Smilie

Danke!
Xebtria

:)

 

Hallo,

man kann für alle Zellen, die Formeln enthalten eine Checksumme (z. B. MD5) berechnen und in eine externe Datei schreiben bzw die geschriebenen Werte vergleichen.

Infos z.B. zur MD5-Berechnung: Cryptography articles and software

Auswählen von Zellen, die nur Formeln enthalten geht mit Specialcells: https://msdn.microsoft.com/en-us/lib.../ff196157.aspx

Mit For ... Each kann man die Zellen dann "abklappern", den Hashwert auf .Formula der Zelle berechnen, mit .Address die Adresse der Zelle auslesen um das ganze dann in eine Tablle zu schreiben.

 

Hi!

Danke. Ich nehme an, das geht dann per VBA.... kannst du mir vielleicht ein
Beispielcode zusammenschreiben mit dem das für sagen wir mal 2 worksheets mir die Zellen mit formeln ausliest und in ein weiteres sheet schreibt?

Ich bin leider nicht wirklich bewandert in VBA, aber wenn ich einen solchen "Beispielcode" hätte, würde ich mir schon zutrauen, das an mein Sheet anzupassen.

Vielen Dank trotzdem schon mal, immerhin gut zu wissen dass es eine Möglichkeit gibt, wenn auch vermutlich über umwege.

Gruß
Xeb

 

Hallo,

der folgende Code erstellt ein "User-Defined-Function", die genauso wie die von xl bereitgestellten Funktionen (z.B. =Summe(A1:A10)) genutzt werden kann.

PHP:

         Public Function BASE64SHA1(ByVal sTextToHash As String)

Dim asc As Object
Dim enc As Object
Dim TextToHash() As Byte
Dim SharedSecretKey() As Byte
Dim bytes() As Byte
Const cutoff As Integer = 5

Set asc = CreateObject("System.Text.UTF8Encoding")
Set enc = CreateObject("System.Security.Cryptography.HMACSHA1") .SHA512 / .SHA512Managed /.SHA256 / .SHA256Managed

TextToHash = asc.GetBytes_4(sTextToHash)
SharedSecretKey = asc.GetBytes_4(sTextToHash)
enc.Key = SharedSecretKey

bytes = enc.ComputeHash_2((TextToHash))
BASE64SHA1 = EncodeBase64(bytes)
BASE64SHA1 = Left(BASE64SHA1, cutoff)

Set asc = Nothing
Set enc = Nothing

End Function

Private Function EncodeBase64(ByRef arrData() As Byte) As String

Dim objXML As Object
Dim objNode As Object

Set objXML = CreateObject("MSXML2.DOMDocument")
Set objNode = objXML.createElement("b64")

objNode.DataType = "bin.base64"
objNode.nodeTypedValue = arrData
EncodeBase64 = objNode.text

Set objNode = Nothing
Set objXML = Nothing

End Function


 

Ein Minimalbeispiel mit SHA1:
Diese beiden Codes in ein Modul einer Tabelle, die die Hashwerte aufnehmen soll
Code:

Bitte den Namen der Datei (ggf. erweitert um den Dateipfad) und des Tabellenblatts an die eigenen Bedürfnisse anpassen.
Code:

Wird jetzt nur ein Zeichen der Formel geändert, so entsteht ein komplett anderer Hash-Wert.

 

Hallo Fennek,

Das hört sich zwar vielversprechend an, aber nach einiger Überlegung passt die Methode von Michael dann doch besser. Trotzdem danke für deine Mühen. :-)

Hallo Michael,

habe das Ganze mal ausprobiert, und auch wenn die Liste der Hashwerte ellenlang wird, kann ich damit was anfangen, Danke! Ich muss nur noch einige Sachen erweitern damit ich die ergebnisse weiterverwenden kann, aber grundsätzlich funktioniert es.

Vielen Dank!