Wer kann helfen Problem für mich.
Mit diesem Code speichere ich Zellen in die txt Datei pw.txt.(Namen und Passwörter)
Besteht die Möglichkeit mit Leseschutz zu speichern oder die Datei zu verstecken?
Wenn ja wie kann ich diese nur zum Einlesen wieder öffnen?
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
Schönen Gruß
Egon