No.3ベストアンサー
- 回答日時:
>レジストリに書き込んで
の操作では、コードの書き方によりますが
ファイル名を変更しても、同じレジストリの値を読み込むようにすれば、期限切れで開くことが出来なくすることも可能ですね。
また、異なるパソコンで期限切れとなったファイルを開くことが出来なくするには、ファイルにその情報を残すことで、可能となるでしょう。
問題は、レジストリに どの様な情報を書き込むかです。
ファイル名は、一切キーワードとして使用しないで
作者しか わからない、固定のキーワードを設定出来るように考えることですね。
ロジック的には、
ファイルに、期限切れとなった情報が有るか否かを調査。
この、情報が、ないときは、ファイル(隠しシート)にキーワードを書き込む。
そして、さらにレジストリに値を書きこむ。
ついに、期限切れとなったら
ファイル(隠しシート)とレジストリの値を、期限切れの値に変更する。
とすれば、可能かと思いますが。
No.2
- 回答日時:
エクセルのVBAを使ってファイルに使用期限を設定できるのでしょうか? 回答: マクロを有効にすれば、出来ます。
隠しシートを作成して、そこ(セル)に キーワードを入れ・・・
ファイルを閉じた時に、使用期限を設定してしまう。とか・・・
出来れば設定日付以降は開かないようにしたいのですが、どうでしょうか? 回答: マクロを有効にすれば、出来ます。
BOOKにPasswordを設定するとか、シートにPasswordを設定するとか・・・
そうした場合、パソコンの日付を変更するとやはり開いてしまうのでしょうか? 回答: マクロを有効にすれば、プログラムの書きようでいかようにもなります。
マクロを無効にすれば、簡単に開かれてしまいます。
期限が、来たらPasswordの入力を要求するとか・・・
この回答への補足
早速、ご回答ありがとうございます。
ネット検索で思っているような事が出来そうなものを見つけました。
レジストリに書き込んでその経過日数を経過すると開かなくなる事ですが、単純パソコンを複数台持っていれば開ける事が可能のような気がするのですが、それと、ファイル名を変更した場合はどうでしょうか?
無知ですみませんが教えて頂ければ有難いです。
もう一つ、Aファイルにこの設定をし、その二日後にBファイルを作成し同じ設定をした時にAファイルは、7日後開かなくなりますがBファイルはきちんと7日後にファイルを開かなくなるのでしょうか?
Bファイルは5日後に開かなくなりそうな気がしたもので。
勉強不足でお門違いな事を言っているかもしれませんが宜しくお願いします。
Sub test()
Dim t As String
Dim dt As Date
t = GetSetting("TestApp", "TestSection", "WindowX")
If t = "" Then
' レジストリ値がない。初めて実行されたと認識し、今日の日付をセット
t = Format(CLng(Now()))
SaveSetting "TestApp", "TestSection", "WindowX", t
' ダミーのランダム値をセット
SaveSetting "TestApp", "TestSection", "WindowY", Right$(Str(CDbl(Now())), 5)
End If
dt = CLng(t)
If Now() > dt + 7 Then
' 初めて実行された日から7日以上経っている
MsgBox "試用期間が過ぎました"
Exit Sub
End If
ThisWorkbook.Saved = True
' 本ブックをClose
ThisWorkbook.Close False
' 他にブックが開いていなければ、Excelを終了する
If Workbooks.Count <= 1 Then Application.Quit
MsgBox "試用プログラム"
End Sub
No.1
- 回答日時:
単体のパソコンだけならその日付設定を変えられてしまえば起動してしまうでしょう
Excelのマクロ Auto_OpenやThisWorkbookのOpenイベントなどで
if Date > CDate( "2008/7/3" ) then
Application.DiaplayAlerts = false
Application.Quit
ThisWorkbook.Close
end if
といった具合で対処可能でしょう
これでも マクロの使用を禁止されてしまっているExcelではファイルは開かれますよ
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセルで使用期限付きのブックを作成したい
Excel(エクセル)
-
Excelファイルに有効期限を設定できませんか
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルの使用期限の...
-
VBAでPDFの中のプロパティを見...
-
DVD-Rなのに再書き込みや削除が...
-
ファイル名の始めに“.”をつけて...
-
Googleドライブにインターネッ...
-
ZIPファイルがwordになります
-
jw cadの名前をつけて保存・・...
-
図形のクリアで実行時の1004エ...
-
フォルダのアクセス権限が頻繁...
-
ひとつしか開けないソフトを多...
-
windows defenderで質問です。 ...
-
Drag'n Drop CD でデジカメのデ...
-
.cabファイルについて
-
iTunesで購入した曲をipodで再...
-
ネットブラウザのブックマーク...
-
Ubuntu18.04 デスクトップにWin...
-
自己解凍ファイルが実行できな...
-
WNetAddConnection*()の使い方
-
アンドロイドの標準ブラウザで...
-
勝手にショートカットのリンク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Tomcat ドキュメントルートの設...
-
c言語の変数一覧の取得
-
Excel2016 シート移動(ハイパ...
-
エクセルファイルの使用期限の...
-
POI 読込 OutOfMemory
-
eclipseの質問
-
VBSで作成した相対パスのショー...
-
ACCESS・VBAを利用者から隠す方法
-
データベース接続文字列の暗号...
-
VBAでPDFの中のプロパティを見...
-
CGIからSSHを使いたい
-
Eclipse(MinGW)で、ビルド時に...
-
印鑑(日付印)の作成について
-
Webbrowser1,refreshとrefresh2...
-
スタイルシート設定が反映されない
-
windowsでのRailsの文字コード...
-
WORD2013-作業ファイル作成不能
-
【至急】Google reCaptchaについて
-
環境設定の仕方がわかりません。
-
Googleサーチコンソルで noin...
おすすめ情報