Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Protect and share
Sub ProtectAndShare()
    Dim wb As Workbook
    Set wb = ThisWorkbook
    wb.ProtectSharing "\\public\shared.xls", "pass1", "pass2", , , "pass3"
End Sub