Remove sharing : Workbook Share « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Workbook Share

Remove sharing

 

Sub RemoveSharing()
    Dim wb As Workbook
    Set wb = Application.Workbooks.Open("\\public\shared.xls", , , , "pass1", "pass2")
    wb.UnprotectSharing pass3
    wb.WritePassword = ""
    wb.Password = ""
End Sub

 

Related examples in the same category