VBA code speed Shared workbook

[Isabella]

Hi the below code takes 6-7 seconds to run, is there anything i can do to make it faster?

Private Sub CommandButton5_Click()

With Application
    .DisplayAlerts = False
    .ScreenUpdating = False
   .Calculation = xlCalculationManual
End With

'Unshare workbook
If ThisWorkbook.MultiUserEditing Then
   ThisWorkbook.ExclusiveAccess
End If

If ActiveSheet.FilterMode Then
    ActiveSheet.ShowAllData
End If

'Share workbook
ThisWorkbook.SaveAs ThisWorkbook.FullName, accessmode:=xlShared

With Application
    .DisplayAlerts = True
    .ScreenUpdating = True
    .Calculation = xlAutomatic
End With

End Sub

 

[bjurney]

There is probably not a way to make it any faster because when you unshare and share the workbook, it has to save each time. So depending on how big your file is will determine how long it takes for the code to run. So really, the only way to make it "run faster" is to reduce the size of your workbook.

 

[Isabella]

There is probably not a way to make it any faster because when you unshare and share the workbook, it has to save each time. So depending on how big your file is will determine how long it takes for the code to run. So really, the only way to make it "run faster" is to reduce the size of your workbook.

My workbook is only 368kb, not big at all