使用期限付のエクセルの作成方法

締切済

質問者：nobidora
質問日時：2002/09/19 09:34
回答数：1件

使用期限付のエクセルが仕事で送られてきました。
計算式が入っているのでマクロを有効にするにしますが、
すると”使用期限切れ！どうしても見たいときはパソコンの日付を戻してください”とメッセージがでます。
（メッセージ通り日付を戻すと見れるようになります。）

マクロまたはVBで作成してあると思うのですが、
どちらもまったくわからないので、作成方法を教えていただきたいのですが。
よろしくおねがいします。

ちなみにエクセルは９７です。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： TTak
回答日時：2002/09/19 10:55

nobidoraさんこんにちは

マクロ有効の状態で、使用期限のメッセージを出すVBAコードは簡単です。私は次のようにしています。
まずシート保護・ブック保護など、あらかじめ保護をかけた状態とします。Workbook_Openイベントで、使用期限と今日の日付を比較して、期限後であればメッセージを出します。期限内であれば、マクロから保護を解除するようにします。

次の例は、Sheet1を保護の対象としています。Sheet2を表示し、Sheet1を[書式]＞[シート]＞[表示しない]として、パスワード"AAA"でブック保護をかけ保存します。これで、マクロ無効の時と、使用期限後の場合はSheet1が使用できません。

Private Sub Workbook_Open()
If Now < "02/09/19" Then 'ここで期限を決める
　ActiveWorkbook.Unprotect "AAA" 'ブック保護解除
　　Sheets("Sheet1").Visible = True
　　Sheets("Sheet1").Activate
　　Sheets("Sheet2").Visible = False
　Else'----期限後ならばメッセージを表示
　　MsgBox "期限切れ"
　End If
ActiveWorkbook.Protect "AAA"
End Sub