Private
Sub
Workbook_Open
()
'ブックの共有化
ActiveWorkbook.ProtectSharing
End
Sub