最新閲覧日:

タイトルが質問内容でもあります。そのままですみません(^^ゞエクセルで使用期限を設けたマクロをくっつけてお客様にファイルを納品したいと思っています。マクロのパスワード、シートのパスワード付保護はしましたが、この使用期限を設定するマクロのアイデアがなかなか浮かびません…どなたかよいアイデアを伝授していただけるようお願い致しますm(..)m

このQ&Aに関連する最新のQ&A

A 回答 (2件)

失礼、回答No.1のIFステートメントの">"は、"<"の誤りです。

    • good
    • 0
この回答へのお礼

TTakさん♪
補足ありがとうございましたm(..)m

お礼日時:2001/05/26 09:57

kami3さんこんにちは


簡易的な方法ですが、[書式]>[シート]>[表示しない]で、シートを表示しないようにしておき、パスワードを付けてブック保護します。次に、Workbook_Openイベントで、

Private Sub Workbook_Open()
If Now > "01/05/26" Then '期限日と今日の比較
ActiveWorkbook.Unprotect "XXX" 'XXXはパスワード
Sheets("Sheet1").Visible = True 'Sheet1の例
Else
MsgBox "期限切れ"
End If
End Sub

とし、シートを表示しないままファイルを保存しておきます。
ブックオープン時に、その都度期限内外の判断を行って、期限内ならばシート表示となります。ブック保護のパスワードがカギです、マクロ保護も必要です。これなら、マクロを有効にしなかった場合にも対応できると思います。ただ、PCの時計を戻されたらアウトです(^^;)。
    • good
    • 0
この回答へのお礼

TTakさん
ありがとうございます(^^)v早速試してみました!

求めている動作を行えるように色々な組み合わせを行うところなんかは
まるで頭の体操をしているようですね♪もっと複雑なのかなぁ~と漠然と
思っていましたが10行にも満たない内容でもここまでできてしまうなんて
今の私にはまるで魔法のように思えますw(゜o゜)w

しかし指摘のとおりPC時計をちょいと変更したら使えちゃいました(^^ゞ
やっぱり使える日数を限定(90日とか180日とか)して期限切れにしたほうが確実でしょうか?
まだまだマクロの開始、終了というところから始めている私にはもう少し勉強が必要ですねm(..)mそうそう、あと頭の体操も(^^ゞ

ところで何日か後に MsgBox "期限切れ" と表示するにはどんな方法があるのでしょうか?

お礼日時:2001/05/26 09:56

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報