Textfält till filnamn i 'Spara som...'

Jag förstår inte frågan riktigt .. Öppnar du ett exceldokument ifrån VB? Isåf hur? Anropar du Excels "Spara"-menyalternativ ifrån VB? Isåf hur? Har du nån kod?

Public Function writeToExcel()

Dim myXL As New Excel.Application
Dim myWkBk As Excel.Workbook
Dim tempCell As String
Dim mySheet As Excel.Worksheet

    Set myWkBk = myXL.Workbooks.Open(App.Path & "\excel\mittExcel.xls")
    Set mySheet = myWkBk.Worksheets("Blad1")

        'Skriver till excelbladet

    myWkBk.close True
    Set myXL = Nothing
    Set myWkBk = Nothing
    making.Visible = False
End Function

mittExcel.xls är skrivskyddad och det vill jag att den skall vara och nu när jag kallar på funktionen ovan så kommer rutan "Spara som..." upp iom att mittExcel.xls är skrivskyddad.
Förvalt som förslaget filnamn är då Kopia på mittExcel.xls, det är där som jag skulle vilja att det står t.ex 23mittExcel.xls eller vad som helst där 23 kommer från ett textfält i VB.

Hoppas att det blev lite klarare nu... :)

Ja, lite klarare blev det. Men eftersom jag inte är nån Office-expert så hade jag gärna sett själva spara-koden också.

Men kan du inte göra nåt sånt här:

    Set myWkBk = myXL.Workbooks.Open(App.Path & "\excel\mittExcel.xls")
    Set mySheet = myWkBk.Worksheets("Blad1")
        'Skriver till excelbladet
    If myWkBk.ReadOnly Then
        myWkBk.SaveAs App.Path & "\excel\" & dinTextbox.Text & "mittExcel.xls"
    Else
        myWkBk.Save
    End If
    ' osv

Eller vill du visa "Spara som"-rutan? Isåf får du visa mig hur man får fram den.

Ja, vad säger man, funkar perfekt.... :bire