'ファイル属性値の一覧 '0 ：標準ファイル '1 ：読み取り専用ファイル '2 ：隠しファイル '4 ：システムファイル '8 ：ディスクドライブボリュームファイル '16 ：ファルダ/ディレクトリ '32 ：アーカイブファイル '64 ：リンク/ショートカット '128：圧縮ファイル '上記を元に「読み取り専用」を切り替える If ActiveWorkbook.Attributes = 1 Then ActiveWorkbook.Attributes = 0 ElseIf ActiveWorkbook.Attributes = 0 Then ActiveWorkbook.Attributes = 1 End If
