| |
ブックの複製を禁止したいのです(EXCEL2013)。
(1)読み取りパスワードを設定している。"読み取りを推奨する"を設定している。
→読み取り専用で開いている。
(2)ﾌｧｲﾙ属性を"読み取り専用"に設定している。
(3)"名前を付けて保存"はVBAにて保存禁止としている。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
MsgBox ("このファイルは名前を付けて保存できません")
Cancel = True
Application.Quit
Application.DisplayAlerts = False
End If
End Sub
上記1〜3の条件の場合でも
×でブックを直接閉じようとすると
保存を確認するメッセージが表示され,保存ボタンを押すと
ブック名に"コピー"がついて保存ができてしまいます。
ブックを直接閉じても保存させないようにしたいのですが
上記コードをみて下記コードを試してみましたがだめでした。
****************************************************************
！コンパイルエラー：
プロシージャの宣言が、イベントまたはプロシージャの定義と
一致していません。
****************************************************************
Private Sub Workbook_BeforeClose(ByVal Cancel As Boolean)
Application.Quit
Application.DisplayAlerts = False
End Sub
訂正すべきところをお教えください。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
