Kicking a user out

[vbsteve]

Hi all

Is there anyway of being able to remove a user from a workbook. The problem is i have a user that have set their username as setup and have sat in one of my files for ages.

Thanks

 

[KniteMare]

This may be what your trying to do.

CODE FOLLOWS

Private Sub Workbook_Open()
If Application.UserName = "TheUsersNameGoesHere" Then
ThisWorkbook.Saved = True
ThisWorkbook.Close 'Close just this workbook
Application.Quit 'Or quit EXCEL completly
End If
End Sub

CODE ENDS

Place this in the WorkBook Module of the workbook in question

Yours in EXCELent Frustration

KniteMare

 

[vbsteve]

Thanks for your help, but the user is already in the file so its readonly! Fortunely i have a macro to log the users details so once the come out ill catch them out. Its just annoying in the mean time.

thanks again.

 

[SGH]

I'd also like to know how to do this if a workbook is read-only.