Datei nach bearbeiten schliesen .. speichern

Sub datei_bearbeiten()
Dim fileToOpen As String
Dim scount As Integer
Dim altname As String
fileToOpen = Application.GetOpenFilename("Text Files (*.xls), *.xls", , "Datei auswählen")
If fileToOpen  "Falsch" Then
Workbooks.Open fileToOpen
Else
MsgBox "keine Datei gewählt", vbCritical, "abbruch"
Exit Sub
End If
altname = ActiveSheet.Name
scount = ActiveWorkbook.Sheets.Count
ActiveWorkbook.Unprotect "pass"
Sheets("Beanstandungen").Copy After:=Sheets(scount)
ActiveSheet.Name = altname
ActiveSheet.Unprotect
ActiveWorkbook.Protect "pass"
ActiveWorkbook.Close True
End Sub

Vielleicht noch eine frage, wie schaffe ich es diesen Code so umzubauen das der Pfad in dem das "öffnen" Fenster startet immer der gleiche ist zum beispiel immer D:\Programme\meinprogramm\
Vielen danke an alle !