Code für Passwort
11.04.2013 11:29:30
Thorsten_Z
mit unten stehendem Code hier aus dem Forum wird eine CSV Datei erstellt.
Meine Frage:
Wie kann ich in dieser Prozedur ein Passwort einbinden, ohne dem sich dann die erstellte CSV Datei nicht öffnen lässt?
Besten Gruß
Thorsten
Private Sub CommandButton6_Click()
Dim Bereich As Object
Dim Zeile As Object
Dim Zelle As Object
Dim strTemp As String
Dim sPDFName As String
Dim sPDFPath As String
Dim fJA As String
If ComboBox1 = "neue Eingabe" Then Exit Sub
Sheets("JAcsv").Cells(1, 1) = TextBox1 'Name
Sheets("JAcsv").Cells(1, 2) = ComboBox2 'Titel
Sheets("JAcsv").Cells(1, 3) = ComboBox3 'Funktion
Sheets("JAcsv").Cells(1, 4) = ComboBox4 'Kostenträger
Sheets("JAcsv").Cells(1, 5) = (TextBox2) 'Tel
Sheets("JAcsv").Cells(1, 6) = (TextBox3)
Sheets("JAcsv").Cells(1, 7) = (TextBox6)
Sheets("JAcsv").Cells(1, 8) = (TextBox25) 'Str.Nr
Sheets("JAcsv").Cells(1, 9) = (TextBox26) 'PLZ Ort
Sheets("JAcsv").Cells(1, 10) = (ComboBox5)
fJA = "JA_"
sPDFName = fJA & Sheets("JAcsv").Range("A1")
sPDFPath = ActiveWorkbook.Path & Application.PathSeparator
Dim Pfad As String
Pfad = sPDFPath '& sPDFName
Dim Dateiname As String
Dateiname = sPDFName
Const Extension As String = ".CSV"
Const Trennzeichen As String = ";"
Const Kapselzeichen As String = """"
Sheets("JAcsv").Select
'Hier kann auch ein eigener Range angegeben werden
Set Bereich = ActiveSheet.UsedRange
Open Pfad & Dateiname & Extension For Output As #1
For Each Zeile In Bereich.Rows
For Each Zelle In Zeile.Cells
If InStr(1, Zelle.Text, Trennzeichen) > 0 Then 'angepasst T.Ramel
'Zellen, die ein Trennzeichen beinhalten in Kapselzeichen setzen
strTemp = strTemp & Kapselzeichen & CStr(Zelle.Text) & _
Kapselzeichen & Trennzeichen
Else
strTemp = strTemp & CStr(Zelle.Text) & Trennzeichen
End If
Next
strTemp = Left(strTemp, Len(strTemp) - 1) 'angepasst T.Ramel
Print #1, strTemp
strTemp = ""
Next
Close #1
Set Bereich = Nothing
End Sub