Workbook.RemoveUser (Excel)

Desconecta o usuário especificado da pasta de trabalho compartilhada.

RemoveUser (Index)

Index: O índice do usuário.

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