1. 'ワークブックの保護 
  2. ActiveWorkbook.Protect Password="123",Structure=True 
  3. ActiveWorkbook.Protect Password="123",Structure=True,Windows=True 
  4. ActivateWorkbook.Unprotect "123"