Workbook.RemoveUser (Excel)

Disconnects the specified user from the shared workbook.

RemoveUser (Index)

Index: The user index.

Dim lngIndex As Long: lngIndex = 
ActiveWorkbook.RemoveUser Index:=lngIndex