こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルの使用期限の付け方

No.361737を参照して、
エクセルに使用期限をつけようとしたのですが、
日付の反応がうまく作動しません。
下記のVBAのまま使用すると
どのような日付でもロックがかかり
メッセージボックスが表示され
Nowのあとの【<】を【>】にすると
どのような日付でもロックが解除されてしまいます。

このような場合、どこかを修正すればうまく作動するようになるでしょうか?

よろしくお願いします。

下記のVBAはNo.361737よりの抜粋です。
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

投稿日時 - 2008-10-16 09:09:03

QNo.4405280

困ってます

質問者が選んだベストアンサー

> If Now < "02/09/19" Then 'ここで期限を決める
日付は、まぎれが少ないように
yyyy/mm/dd の形式にした方が良いでしょう。

なお Now では、期限当日は、ほぼ NG ですから
Date にした方がベター。

投稿日時 - 2008-10-16 09:23:24

お礼

日付をyyyy/mm/ddにすると
正常に作動しました。

ただ、Dateだけがえらーが出てできなかったのですが・・・

でもこれで少し使用してみようと思います。

ありがとうございました。

投稿日時 - 2008-10-16 10:53:53

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問