Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Protect and share

Sub ProtectAndShare()     Dim wb As Workbook     Set wb = ThisWorkbook     wb.ProtectSharing "\\public\shared.xls", "pass1", "pass2", , , "pass3" End Sub