Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Sharing a Workbook

Sub m()     With Workbooks("your.xls")         If MultiUserEditing = False Then             .SaveAs Filename:=.FullName, AccessMode:=xlShared         End If     End With