Copy and Rename worksheet in Shared workbook

[MichaelQuam]

I have created a "Time Clock" spreadsheet that is shared with other hourly employees in my office. I have some vba code which will copy a "template" worksheet and rename it according to the employee using the workbook. It works fine until I set the workbook to be a SHARED workbook.

How can I copy a worksheet, rename it, and then delete it when exiting the workbook, in a shared environment?

 

[guerillaunit]

You can incorporate unsharing / sharing into your macro. This will allow your user to unshare the workbook when the macro starts and putting it back on share when the macro finishes.


Unshare:

Sub test()
Application.DisplayAlerts = False
If ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.ExclusiveAccess
Else
End If
Application.DisplayAlerts = True
End Sub

Share workbook:

Sub test()
ActiveWorkbook.SaveAs "urfilename", , , , , , xlShared
End Sub