ブック ブック保護シート保護
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
| Sub psbブック保護(Mybook As Workbook) '******************************************************************************* 'ブック保護 '******************************************************************************* Mybook.Protect Password:=fncPass, Structure:=True, Windows:=False 'ブック保護 End Sub Sub psbブック非保護(Mybook As Workbook) '******************************************************************************* 'ブック非保護 '******************************************************************************* Mybook.Unprotect Password:=fncPass 'ブック非保護 End Sub Sub psbシート保護(Mysht As Worksheet) '******************************************************************************* 'シート保護 '******************************************************************************* Mysht.Protect Password:=fncPass, DrawingObjects:=True, Contents:=True, Scenarios:=True 'シート保護 End Sub Sub psbシート非保護(Mysht As Worksheet) '******************************************************************************* 'シート非保護 '******************************************************************************* Mysht.Unprotect Password:=fncPass End Sub |