Saving changes made by VBA

I have used the following code to opne a file and protect and share the file however the changes are lost when file closes. any suggestions

Sub endofrepmessage()

With Application
.EnableEvents = False
.ScreenUpdating = False
.DisplayAlerts = False
End With

Sheets("Menu").Select
Range("F34:G35").Interior.ColorIndex = 50
Range("F34:G35") = "Update Completed" & " " & Now()

'
Workbooks.Open FileName:= _
"S:\Healthcare\JOINT HEALTHCARE INFO\KPIs\AZ Cost KPI\AZ CC Archive.xlsm"

Sheets("AZ Archive Complete").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("AZ Archive New").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs ActiveWorkbook.Name, accessmode:=xlShared

End If

ActiveWorkbook.Close SaveChanges:=True

MsgBox "Now Shared"


End Sub