• 締切済み

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

使用期限付のエクセルが仕事で送られてきました。 計算式が入っているのでマクロを有効にするにしますが、 すると”使用期限切れ!どうしても見たいときはパソコンの日付を戻してください”とメッセージがでます。 (メッセージ通り日付を戻すと見れるようになります。) マクロまたはVBで作成してあると思うのですが、 どちらもまったくわからないので、作成方法を教えていただきたいのですが。 よろしくおねがいします。 ちなみにエクセルは97です。

みんなの回答

  • TTak
  • ベストアンサー率52% (206/389)
回答No.1

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

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

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

    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

  • Excelの条件付書式で日付の色を変えたい

    Excel 2003を使用しています。 仕事のやることリストみたいなのを作成していて、期限を設定し、それが過ぎたら指定した範囲のフォントやセルの色が変わるようにしたいと思っています。 条件付書式でできそうな気がするのですがいい方法ありましたら教えてください。 宜しくお願いします。

  • エクセルファイルの使用期限の設定について

    こんにちわ。 VBAを現在、勉強中です。 エクセルのVBAを使ってファイルに使用期限を設定できるのでしょうか? 出来れば設定日付以降は開かないようにしたいのですが、どうでしょうか? そうした場合、パソコンの日付を変更するとやはり開いてしまうのでしょうか? 皆様のお力をぜひお貸し頂ければ幸いです。

  • エクセルのマクロを教えてください。(初心者です)その2

    エクセルで期間限定で使えるソフトを作ろうと思っています。 簡単に申し上げると、 使用期限を設けて、期限の日がくると、 エクセルのセルに 「有効期限が来ましたので、再度お申し込みください。」 という文章が表示され(ポップアップでなくていいです)、 このシート以外は片っ端からシートが削除され、 上書き保存され、これ以上使えないというものを作りたいのです。 ツールバーのマクロの記録を利用した 極度に簡単なマクロしかやったことがないので、 以下の点を中心にマクロの作成の仕方を お教え頂けますと幸甚です。 (1)有効期限の日付を入力しておいて、その日が来るとマクロが実行される方法 TODAY関数と有効期限の引き算でゼロになったら実行でしょうか。 該当セルの数値がゼロになったらマクロが実行されるという方法を お教え頂けませんか。 ちなみに、有効期限の日付は、非表示にしてシートの保護で開けないようにしておこうと思います。 (2)有効期限が来たら自動的にマクロが実行される方法 上記(1)の方法でやれば、ファイルを開いたとたんマクロが実行されるのでしょうか。 (3)マクロでシートを削除する方法 これは、通常のマクロの記録でやろうとすると、 シートを削除すると「やり直し」でもシートを復活させられないので、 シートがなくなっちゃった状態でしか保存できない気がするのですが・・・。 (4)上書き保存するマクロ 上記(3)と同様、マクロの記録では できないので、これ以外のやり方をお教え頂けませんか。 (5)シートを表示させるマクロ マクロを実行した時点で「有効期限が来ました・・」と入力された シートを表示させたいのです。 マクロで表示させる方法をお教え頂けますでしょうか。 (6)マクロを見れないようにする方法 マクロを自由自在に操れる人が 私の作ろうとするエクセルファイルを手にしたら、 「有効期限になる前にマクロを削除しちゃえ」と やられないかが心配です。 うまい対処方法ございませんでしょうか。 (7)パソコンの日付の操作の対処 上記の(6)と絡むのですが、 パソコンの日付とプロパティーから パソコンの日付をいじって 有効期限より前の日付にしたら ずっと使われてしまうのではないか心配です。 うまい対処方法ございませんでしょうか。 ずぶの素人の私にどなたか この方法をご教示頂けませんでしょうか。

  • エクセルでツールバー作成

     エクセル2000を使用しています。 マクロをPubric Subで組んで Addinsフォルダにコピーしました。 ユーザー設定でツールバーとボタンを作成したのですが、マクロの登録がうまくいきません。 VB側でも何か登録が必要だったと思うのですが、PC起動後、エクセルを起動した時、Pubricで組んだマクロを読み込まないといけないはずなんですが、読み込みません。  どなたか教えてください。 以上

  • シェアウェアのような使用期限をマクロで作成したいのですが…

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

  • エクセル -複数の条件付書式について-

    エクセル2000を使用しています。 条件付書式を使用して仕事の管理表を作っています。 当日の日付けだけを目立たせたいのですが、うまくいきません。 まず、A列にそれぞれの仕事の進行具合を表す 【進行中】【完了】などの、ステータス行を作りました。 (1)【進行中】は黄色 (2)【完了】はグレー という条件付書式を設定しました。 そしてB列に“いつまで”という列を作り各々完了予定日を入れていますが、、 (3)当日の日付けだけを赤文字にする これを条件1に設定すると、(1)(2)の設定が効かなくなってしまいます。 (1)(2)の設定は残したまま、 当日の日付けの箇所を自動的に目立たせたいのですが、 何かよい方法はないでしょうか。

  • エクセル 条件付書式について

    だれか無知な私に教えてください。 エクセルの条件付書式があると思うのですが、指定の日付になったらセルに色をつけたりすることが可能なはずですが、その中で有効期限が過ぎた場合にセルに色づけする書式(方法)を誰か教えてください。 1. 本日(1/12)より前の日付(~1/11)でセルに色を付ける方法。 2. 上記条件にセルではなく列または行に色づけする方法 これがわかれば大変助かります。宜しくお願い致します。

  • エクセルで印鑑の使用について

    お世話になります。 エクセルで日付・名前などが記載された印鑑(日付印)を使用したいと思います。 しかし、印鑑のつくり方から分かりません。 使用しているパソコンはwindows8でエクセルがえくせる2013をエクセル97~2003形式で保存し使用しています。 どの様な手順で作成すればよろしいのでしょうか?

  • エクセルのマクロ

    こんにちは。 今悩んでいます。 VB6.0で、電圧計、電流計を制御して、VBからエクセルを起動、その値をVBでエクセルにデータを送り、グラフを作るのですが。 グラフを作る作業が、同じ作業なので、エクセルのマクロを使い、グラフを作成しようとしていたのですが・・・。 どのエクセルのファイルからでもできるように、個人用のマクロブックで、グラフを作成したのですが、VBからエクセルを起動し、データの転送して、グラフをマクロで作成しようと思ったら、マクロがないんです。 しかし、デスクトップにあるエクセルのショートカットから起動してみると、マクロがあるのです。 VBから起動したエクセルでは、マクロは使えないんでしょうか? 詳しい方よろしくお願いします。

このQ&Aのポイント
  • 東京発の博多行ののぞみ号はなぜ無駄に毎時2本もあるのでしょうか?その理由や乗車率について解説します。
  • 東京発ののぞみ号の時刻は一部の時間帯を除いて1時間に6本運行されていますが、そのうちの半分が博多行という運行本数の多さが気になります。
  • のぞみ号の運行本数の多さは、乗車率や新大阪を越えて広島や博多まで行く需要などを考慮していないのか、疑問に思います。なぜ必要なのでしょうか?
回答を見る

専門家に質問してみよう