Workbook Unshare Error

M

Matt

I have put the code below in a workbook to unshare. Here are my
steps.
1. I manually share the workbook from the Worksheet Menubar.
2. I run the code below from a command button.

Dim Filename As String
Filename = ActiveWorkbook.Name
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'Copy this code into the 'Shared' workbook - PART 1 of 2
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.DisplayAlerts = False
If ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.UnprotectSharing
ActiveWorkbook.ExclusiveAccess
End If
Application.StatusBar = ("Please wait initialising workbook.")
Application.DisplayAlerts = True
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'End of Part 1
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
For Each Sht1 In Workbooks(Filename).Worksheets
Sht1.Unprotect
Next Sht1

When I run the macro I get an error message Run-time error '1004'
Method "UnprotectSharing" of object "_Workbook" failed.

I would appreciate any assistance on this problem. Thanks. Matt
 
J

JLGWhiz

You don't have the password included>

ActiveWorkbook.UnprotectSharing("sharingpassword")
 
M

Matt

You don't have thepasswordincluded>

ActiveWorkbook.UnprotectSharing("sharingpassword")








- Show quoted text -

Thanks but I still receive the same error message.
 
M

Matt

Thanks but I still receive the same error message.- Hide quoted text -

- Show quoted text -

Solved it thanks to vba help in Excel..code is:

If ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.ExclusiveAccess
End If
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top