Textdatei geschützt speichern und wieder einlesen

Private Sub CommandButton1_Click() Dim i Const sep = ";" Dim Feld1 As String * 15 Dim Feld2 As String * 15 Dim Feld3 As String * 15 Open "D:\Daten\Excel\pw.txt" For Output As #1 For i = 2 To ActiveSheet.UsedRange.Rows.Count Feld1 = CStr(Cells(i, 2).Value) Feld2 = CStr(Cells(i, 3).Value) Feld3 = CStr(Cells(i, 4).Value) Print #1, Feld1 & sep & Feld2 & sep & Feld3 Next i Close #1 End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Egon,
du könntest der Datei das Attribut "Versteckt" geben, aber die meisten haben die Ordneroption "Alle Dateien anzeigen" aktiviert und damit wird sie wieder sichtbar. Das verstecken erregt meiner Meinung nach sogar mehr Interesse am Inhalt.
Zum verschlüsseln. Entpacke die Datei und importiere sie in dein Projekt. Rechtsklick im Projektexplorer auf dein Projekt - Datei importieren. Das ganze ist eine 64Bit - Verschlüsselung, da brauchst du selbst mit einem Supercomputer mehrere hundert Jahre um den zu knacken. Wenn dir das nicht reicht, ich hab auch noch Blowfish in peto, da wird mit 128Bit verschlüsselt, das ist nicht zu knacken.
https://www.herber.de/bbs/user/27965.zip
Ansprechen kannst du das ganze so:

Option Explicit

Private objRadix As clsRADIX64
Private Const sep = ";"

Private Sub CommandButton1_Click()
    Dim i
    Set objRadix = New clsRADIX64
    Dim Feld1 As String * 15
    Dim Feld2 As String * 15
    Dim Feld3 As String * 15
    Open "D:\pw.dll" For Output As #1
    For i = 2 To ActiveSheet.UsedRange.Rows.Count
        Feld1 = Cells(i, 2).Text
        Feld2 = Cells(i, 3).Text
        Feld3 = Cells(i, 4).Text
        Print #1, objRadix.EncodeStr64(Feld1 & sep & Feld2 & sep & Feld3)
    Next i
    Close #1
    Set objRadix = Nothing
End Sub

Public Sub test()
    Dim sText As String
    Dim vArray As Variant
    Dim iIndex As Integer
    Set objRadix = New clsRADIX64
    Open "D:\pw.dll" For Input As #1
    Do Until EOF(1)
        Input #1, sText
        vArray = Split(objRadix.DecodeStr64(sText), sep)
        For iIndex = LBound(vArray) To UBound(vArray)
            Debug.Print vArray(iIndex)
        Next
    Loop
    Close #1
    Set objRadix = Nothing
End Sub

Gruß
Nepumuk

Private Sub CommandButton1_Click() Dim i Set objRadix = New clsRADIX64 Dim Feld1 As String * 15 Dim Feld2 As String * 15 Dim Feld3 As String * 15 Open "D:\pw.dll" For Output As #1 For i = 2 To ActiveSheet.UsedRange.Rows.Count Feld1 = Cells(i, 2).Text Feld2 = Cells(i, 3).Text Feld3 = Cells(i, 4).Text Print #1, objRadix.EncodeStr64(Feld1 & sep & Feld2 & sep & Feld3) Next i Close #1 Set objRadix = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

Textdatei geschützt speichern und wieder einlesen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textdatei geschützt speichern und wieder einlesen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread