RemoveUser Method of Workbook Object VBA

RemoveUser Workbook is used to remove access to the user from the shared workbook. We are using RemoveUser method of workbook object to remove access from the shared workbook.

PREMIUM TEMPLATES LIMITED TIME OFFER

ON SALE80% OFF

50+ Project Management Templates Pack
Excel PowerPoint Word

Advanced Project Plan & Portfolio Template
Excel Template

Business Presentations Templates Pack
PowerPoint Slides

20+ Excel Project Management Pack
Excel Templates

20+ PowerPoint Project Management Pack
PowerPoint Templates

10+ MS Word Project Management Pack
Word Templates


Why we need to RemoveUser from the Shared Workbook?

Sometimes we need to removeuser from the shared workbook access. For example an employee has moved from the organization that time we may need to remove access to employee form shared workbook access.

VBA RemoveUser Workbook – Syntax

Here is the syntax to remove user from the shared workbook using VBA.

Workbooks(“Your Workbook Name”).RemoveUser(Index As Long)

Where Index is the mandatory argument. It represents the index of user to remove access from the shared workbook.
In the above syntax we are using ‘RemoveUser’ method of workbook object to remove user to access the workbook.

VBA RemoveUser Workbook:Example 1

Please find the below example, It will show you how to remove user from the shared workbook.

Sub Remove_User1()
Dim UsrList()
UsrList = ThisWorkbook.UserStatus
If UBound(UsrList) > 1 Then
ThisWorkbook.RemoveUser (2)
End If
End Sub

Explanation: In the above example we are removing the second user from the available user access list of workbook.

VBA RemoveUser Workbook:Example 2

Sub Remove_User2()
Dim UsrList()
UsrList = ThisWorkbook.UserStatus
For i = 1 To UBound(UsrList)
ThisWorkbook.RemoveUser (i)
Next
End Sub

Explanation: In the above example we are removing all the available user access from the workbook.
Please follow the below steps to execute the VBA code to save the excel file.
Step 1: Open any existing Excel workbook.
Step 2: Press Alt+F11 – This will open the VBA Editor.
Step 3: Insert a code module from then insert menu.
Step 4: Copy the above code and paste in the code module which have inserted in the above step.
Step 5: Now removed users cannot access to the shared workbook.
Step 6: Now press F5 to execute the code.

LIMITED TIME OFFER

Leave A Comment


Related pages


run a macro in excelexcel kpi dashboard templatesumif exellistbox clearexcel check for duplicatesexcel sql commandsexcel macro rowsvba clearexcel vba delete columnsunhide column in excelcool excel macrosdatabase macrosexcel 2007 chart wizardarrays vba excelsql select from excel sheetcompare dates vba2014 calendar template excelvba dim integerexcel vba for each cell in columnexcel 2007 name managervba open a text filepivot tables excel tutorialdbms commands with examples pdfvba code to unprotect sheet with passwordexcel vba data entry form downloadif statements vbarecording macros in excelhow to unlock a password protected excel sheetexcel vba rowsexcel vba option buttonhow to arrange excel sheet in ascending ordershortcut key for excelremove blank lines in excelexcel remove checkboxsurface chart excelmerging cells in excel 2007vba activecell.rowoffset excel functioncell shading in excelsample excel formulas and functionshow do you insert a row in excelisna vlookup excel 2010close excel workbook vbavba excel isemptyexcel shortcut to edit cellexcel sum ifvba display messageexcel formula duplicatesvb source code examplesvba code tutorialautomatically insert rows in excelblank gantt chart templatesales dashboard excelsendmail subjectsort vba excelmacro to insert rowsexcel estimate templateshort cut key excelmicrosoft planner templatesvlookup yes novba fileformatvlookup function examplesexcel formula cell colourhow to protect a column in excel 2007getrows vbadrop down tabs in exceldcl languagededuplication excelfiledialog vbadaily log template excelfor loop in excel macrosql groupingvb exit loopexcel macro hotkeywhat is concatenate excelselection range vbavba array functionsexcel vba integer range