| |
▼RM さん、こんんいちわ、ちんといいます。
あくまでも提案なのですが、
保存が実行される前に、全てのシートを非表示にする。
※ただし、Excelの「書式」−＞「シート」−＞「再表示」を使用されると、
見えてしまいますので、保存が終了したら、AutoCloseを実行し、BOOKを閉じる必要もあります。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'** ここで、保存が実行される前に、全てのシートを非表示にする。
'** Sheet1を非表示にします。ただし、通常の非表示です。
Sheets("Sheet1").Visible = xlSheetHidden
'*** 複数のシートを非表示にする命令は、
' この中のサイトに記載していますので、探してください。
End Sub
起動時は、AutoOPEN処理で、パスワードの入力で、全てのシートを表示に変える。
'** Sheet1を表示にします。ただし、通常の表示です。
Sheets("Sheet1").Visible = xlSheetVisible
とりあえず、マクロ無効の処理を考えるのであれば、保存の時に全て非表示にして
保存する。
Excelファイルを起動した時に、パスワードがOKなら、シートを表示する。
※管理者パスワードなら、日付けに関係なく、全てのシートを表示するも必要と
思われます。
余談ですが、期限付きの処理が入っているExcelの名前は、
？？？ファイル（期限付き） とかにしておくと、探しやすいですよ。
参考になるかどうかわかりませんが、
以上、参考までに・・・
|
|
ちん
- 12/4/21(土) 17:28 -
