Hallo alle zusammen,
ich habe mir einen Agenten geschrieben, der mir aus einer Excel-Tabell Mitarbeiterdaten ausliest und als neues Dokument speichert.
Bei den angestellten soll ein Schlüssel verwendet werden. Ich benutze dazu folgenden Code:
....
If ex.activesheet.name = "Angestellte" Then
Set feld = doc.replaceItemValue("Bereich","Angestellte")
Set feld = doc.replaceItemValue("SecretEncryptionKeys","Personal")
Elseif ex.activesheet.name = "Gewerbliche" Then
Set feld = doc.replaceItemValue("Bereich","Gewerbliche")
Elseif ex.activesheet.name = "Rentner" Then
Set feld = doc.replaceItemValue("Bereich","Rentner/innen")
End If
....
Call doc.Save(True,True)
....
Der Wert "Personal" wird auch in das Feld "SecretEncryptionKeys geschrieben, allerdings hat es keine Wirkung. Auch jemand ohne Schlüssel kann auf die verschlüsselten Felder zugreifen.
Öffnet man jetzt allerdings einen der angestellten Mitarbeiter im Bearbeitungsmodus und speichert, sind die Felder versclüsselt.
Kann man das irgendwie umgehen, oder muss ich dann alle Angestellten Mitarbeiter manuell nochmal speichern?
Gruß
Demian