gibt es eine möglichkeit, einen Text in eine Textdatei zu schreiben, un ddiese dann per Makro zu verschlüsseln? Natürlich sollte excel beim input diese Datei wieder entschlüsseln. Geht sowas?
Gruß
Slash
Sub binaer_lesen()
Dim i As Integer
ff = FreeFile
Open "Zellen.dat" For Binary As #ff
Get #ff, , arrZellen
Close #ff
For i = 1 To 3
Cells(i, 1) = arrZellen(i)
Next
End Sub
Sub binaer_schreiben()
Dim i As Integer
ff = FreeFile
For i = 1 To 3
arrZellen(i) = Cells(i, 1)
Next
Open "Zellen.dat" For Binary As #ff
Put #ff, , arrZellen
Close
End Sub