1.:

Sub save_as()
'
' save_as Makró
'

Dim v_filenaname As String
v_filename = "D:akarmivalami_" & Cells(1, 1).Value & ".xls"
    ActiveWorkbook.SaveAs Filename:= _
        v_filename, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

A másodikra szintén valamilyen makrót tudnék elképzelni, de itt nem inkább valamilyen lenyíló ablak elemeire gondolsz?