File Save As saving to last file location, not SharePoint doc library, custom Save As button, Enble Macros

1. I have a SharePoint 2007 doc library with a custom content type - an xlsm.

I have  this code that runs before Save:
 

Sub SaveByDate()
Dim MyYear As String
Dim MyMonth As String
Dim MyDay As String
Dim MyHour As String
Dim MyMin As String
Dim MySec As String
Dim MyFileName As String

        MyYear = Year(Date)
        MyMonth = Right("0" & Month(Date), 2)
        MyDay = Right("0" & Day(Date), 2)
        MyHour = Right("0" & Hour(Time), 2)
        MyMin = Right("0" & Minute(Time), 2)
        MySec = Right("0" & Second(Time), 2)
        MyFileName = "PO_" & MyYear & MyMonth & MyDay & "-" & MyHour & MyMin & MySec
        ActiveWorkbook.SaveAs Filename:=MyFileName
End Sub

Select allOpen in new window

How do I insert the path of the SharePoint Library? This code saves to the last know save as file location.

2. Also, I want a custom Save and Close button that will save the spreadsheet as a regular xlsx and then close excel. Either a button on the sparesheet or the Ribbon (only for this workbook)

3. I want to enable macros for this workbook when it is opened. Can I do it with a prompt? right now I have a highlighted cell that says ' hey enable macros!!' . Not so fabulous solution. :)))