No.6ベストアンサー
- 回答日時:
haasan99 さまへ
Wendy02 です。すみません。早くも#5の修正です。
キーの入り口が消えても、出ていたままになるので、それは、ちょっと格好が悪いです。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ThisWorkbook.Worksheets("Sheet1").Range("A100").Value = 123 Then
Application.EnableEvents = False
Range("A1").Select '←ここを加えます。
ThisWorkbook.Save
Application.EnableEvents = True
ThisWorkbook.Worksheets("Sheet1").Range("A100").ClearContents
Exit Sub
End If
Application.DisplayAlerts = False
Cancel = True
Application.DisplayAlerts = True
End Sub
それから、上記のコートがあっても、保存したという擬似情報は必要です。右上の「×」ボタンの時に、ないと都合が悪いです。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
Wendy02さま、ご親切な回答をいただき大変ありがとうございました。
私自身、とても勉強になりました。
できることなら、郷土の名産でもお礼に差し上げたいところですが、ここはポイントでご了承ください。m(-.-)m
No.5
- 回答日時:
こんにちは。
>ただ、コードの上半分だけでいいみたいです。全部コピーすると「End Withに対する>Withがありません」のエラーになりました。
ごめんなさい。
End With は、余分でした。
ちょっと、別の組み合わせも考えていましたもので、残し忘れしてしまいました。
>もし、よろしければ、保存時だけ、保存はされないような方法も教えていただければ幸いです。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Standard").FindControl(, 3).Enabled = True
ThisWorkbook.Saved = True '←これを加える
End Sub
ThisWorkbook.Saved = True
意味は、保存しました、という擬似情報を与えることで、保存しないようにすることです。
次は、隠し技ですが、
ある一定の条件以外は、保存そのものが出来ないようにしてしまいます。100%保存できないと、設定も保存できなくなるので、一定のキーワードを入れれば、保存できるわけです。
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ThisWorkbook.Worksheets("Sheet1").Range("A100").Value = 123 Then
'↑ここのキーコードを入れます。例:Sheet1 A100 に 123 と入れる。
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
ThisWorkbook.Worksheets("Sheet1").Range("A100").ClearContents
Exit Sub
End If
Application.DisplayAlerts = False
Cancel = True
Application.DisplayAlerts = True
End Sub
もしも、プロジェクトをロックしたら、設定した人しか保存方法は分りません。読み取り専用になっていません。ちょうど、ExcelのEasterEggのカギに似ています。(未だ、私は開け方を知りませんが。)
前回のThisWorkbook の場所にこのコード(Private ~ End Sub)を貼り付けます。
使い方:
上記では、Sheet1のA100 に、123 というキーを入れた時だけ、保存できます。キーは、ワークシート上には残りません。キーの入れる場所は、お好きなところに。
この設定自体が分らなくなったら、マクロを使えないように、セキュリティを「上」にしてください。
No.4
- 回答日時:
こんにちは。
以下のようにしてみたらいかがでしょうか?
Alt + F11 (Altを押しながらF11)を押すと、Visual Basic Editor 画面が出てきます。
左上側にプロジェクトエクスプローラの窓の中に、ThisWorkbook があったら、それをダブルクリックして、開けます。もし、窓が出ていないようでしたら、Ctrl + R を押すと通常左側に出てきます。
そして、以下のコードを貼り付けます。
Private Sub Workbook_Open()
Application.CommandBars("Standard").FindControl(, 3).Enabled = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Standard").FindControl(, 3).Enabled = True
End With
End Sub
再び、Alt + F11 で、画面を閉じ保存します。このブックを再びオープンしたときには、アイコンは使えなくなっています。閉じるとまた元に戻ります。
このブックを開けている間は、上書き保存のアイコンは、灰色になって使えません。
ただし、メニューのファイルから行うことはできますから、保存自体が出来ないようになっているわけではありません。
他にも、読み取り専用ではなく、保存時だけ、保存はされないようにも出来ます。もし、よかったら、そちらもお教えします。
ご回答ありがとうございました。
おっしゃるとおり、ツールバーの上書き保存のアイコンが灰色になって使えなくなりました。これだと私の希望どおりです。
ただ、コードの上半分だけでいいみたいです。全部コピーすると「End Withに対するWithがありません」のエラーになりました。初心者ですので何のことやらわかりません(+.+)
もし、よろしければ、保存時だけ、保存はされないような方法も教えていただければ幸いです。
No.3
- 回答日時:
こんにちは。
操作は簡単ですよ。
シートを保護するには上書き保存用のパスワード設定をするのが良いかと思います。
手順です。
設定したいエクセルシートを開きます。
↓
ツールバーのファイルから名前をつけて保存を指定。
↓
その際にツールバー右にあるツールから全般オプションを選択。
↓
保存オプションのウインドが開き書き込みパスワードの設定が出来ます。
これで上書きからシートを保護できると思います。
No.1
- 回答日時:
方法その1
そのファイルを読取専用の属性にする。
ファイルを右クリックし、プロパティを開きます。
読取専用というチェックボックスがありますのでこれにチェックを入れます。
すると上書き保存しようとしても名前を付けて保存のダイアログが出るので、もとのファイルが上書きされることはありません。
方法その2
ファイルをテンプレートにする。
そのファイルを開き、名前を付けて保存する。
そのときにファイルの種類をテンプレート(*.xlt)にする。
すると上書き保存しようとしたときにやはり名前を付けて保存のダイアログが出ますので上書きされることはありません。
直接の解決方法ではありませんが参考になればと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロ VBA ファイル名を連番...
-
エクセル文書を保存したらメモ...
-
メール添付されているファイル...
-
エクセル・マクロ(VBA)で、指定...
-
エクセルでVBAを使用して1分毎...
-
Excelでの最終更新時刻表示
-
エクセルが「名前を付けて保存...
-
エクセルを上書き保存したのに...
-
拡張子の替え方について教えて...
-
エクセルでCSVファイルとして保...
-
エクセル 連動して自動で開く
-
「変更を保存しますか?」と聞...
-
メールソフト「サンダーバード...
-
Excel画面の自動更新 Excelファ...
-
筆ぐるめの住所録をエクセルで...
-
エクセルで「ファイル保存名」...
-
Excel初心者で他の方が作ったエ...
-
csvファイルを上書き保存でカン...
-
いきなりPDFでPDFファイルを開...
-
Excelで指定範囲だけを(.prn)保...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
いきなりPDFでPDFファイルを開...
-
エクセルを上書き保存したのに...
-
エクセル文書を保存したらメモ...
-
エクセルでVBAを使用して1分毎...
-
Excel画面の自動更新 Excelファ...
-
メール添付されているファイル...
-
ピボットテーブルの更新ができない
-
マクロ VBA ファイル名を連番...
-
エクセル・マクロ(VBA)で、指定...
-
エクセルでCSVファイルとして保...
-
Illustratorファイルに読み取り...
-
マクロVBA特定フォルダーに次々...
-
エクセルの共有ファイルで、保...
-
エクセルがwindows終了時に未保...
-
開いてるファイル(エクセル等)...
-
エクセル表のCSV化ができない
-
エクセル 更新していないのに...
-
メールソフト「サンダーバード...
-
「変更を保存しますか?」と聞...
-
エクセルでセル値をファイル名...
おすすめ情報