ProtectSharing Method Example
This example saves workbook one and protects it for sharing.
Workbooks(1).ProtectForSharing Password:="drowssap", _ SharingPassword:="gnirahs"