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で質問しましょう!
似たような質問が見つかりました
- Windows 10 windowsの回復ドライブや復元ポイントを使用した場合の戻る位置を教えてください。 5 2023/08/19 14:52
- Excel(エクセル) CSVファイルでVBAを動かす方法 3 2023/04/04 10:22
- その他(IT・Webサービス) ホームページにカウント数を表示する 2 2022/10/28 10:37
- Excel(エクセル) OFFICEに詳しい方 Microsoft 365 personal をを使ってます。(¥1,284 1 2023/02/20 16:40
- Excel(エクセル) エクセルでのVBA 2 2022/08/03 06:48
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Visual Basic(VBA) tatsumaru77様 昨日回答して頂いたものです。 すみませんが、昨日の質問で1つ補足があります 1 2022/05/15 15:06
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Webbrowser1,refreshとrefresh2...
-
Tomcat ドキュメントルートの設...
-
VBAでPDFの中のプロパティを見...
-
Excel2016 シート移動(ハイパ...
-
メモ帳を保存せずに誤って閉じ...
-
jw cadの名前をつけて保存・・...
-
Googleドライブにインターネッ...
-
シェルスクリプトでFTPの実行結...
-
C:\\Users\\All Users がエク...
-
勝手にショートカットのリンク...
-
Debug Assertion Failed?
-
ショートカットアイコンのリン...
-
急いでいます。XDWファイルの開...
-
ZIPファイルがwordになります
-
ACCESS VBAのOpenForm書き方
-
DVD-Rなのに再書き込みや削除が...
-
ショートカットファイルが開け...
-
Excel ファイルに保存すると実...
-
図形のクリアで実行時の1004エ...
-
Thunderbirdのプロファイルが読...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel2016 シート移動(ハイパ...
-
Tomcat ドキュメントルートの設...
-
Webbrowser1,refreshとrefresh2...
-
エクセルファイルの使用期限の...
-
VBAでPDFの中のプロパティを見...
-
データベース接続文字列の暗号...
-
c言語の変数一覧の取得
-
VBSで作成した相対パスのショー...
-
CGIからSSHを使いたい
-
印鑑(日付印)の作成について
-
FileMaker Pro10 ファイル共有
-
VBのファイル内容検索
-
【至急】Google reCaptchaについて
-
ACCESS・VBAを利用者から隠す方法
-
Googleサーチコンソルで noin...
-
【Disk2vhd】というソフトで作...
-
eclipseの質問
-
opencvでVECファイル作成について
-
エクセルファイルを自動でアッ...
-
Eclipse(MinGW)で、ビルド時に...
おすすめ情報