zum auswählen einer Datei benutze ich eine im Forum gefundene Routine
Set dat = Application.FileDialog(msoFileDialogFilePicker)
With dat
.Title = aPfad
.InitialFileName = aPfad 'oder was auch immer
If .Show = -1 Then
For Each Ordnerpfad In .SelectedItems
strDatei = Ordnerpfad
GoTo sprung2
Next Ordnerpfad
End If
Exit Sub
End With
sprung2:
Dies klappt auch prima.
Mein Problem ist, dass der User nicht die Möglichkeit haben soll das Verzeichnis zu wechseln, die Datei umzubennen oder zu löschen. Er soll also nur auswählen können.
Kann mir jemand weiterhelfen?
Geuß Günter