Turns off protection for sharing and saves the workbook.
expression.UnprotectSharing(SharingPassword)
expression Required. An expression that returns a Workbook object.
SharingPassword Optional Variant. The workbook password.
Note Use strong passwords that combine upper- and lowercase letters, numbers, and symbols. Weak passwords don't mix these elements. Strong password: Y6dh!et5. Weak password: House27. Use a strong password that you can remember so that you don't have to write it down.
Example
This example turns off protection for sharing and saves the active workbook.
ActiveWorkbook.UnprotectSharing