知恵袋にも質問しましたが、明日朝までに回答を頂けるか不安で、こちらにも質問します。
ExcelのVBAで、特定のセル(A1,B5,C10等)を入力しないとファイルを保存できない設定で、
(1)全て入力してたら、閉じる時に普段どおり、『「保存しますか?」の質問に「はい」「いいえ」「キャンセル」』のメッセージボックスが出るように
(2)入力してなかったら、閉じる時に『「未入力ですので、保存できません」』の質問に「保存しません」「キャンセル」』のメッセージボックスが出るように。
(3)また、作成者がそこを空白のまま保存できないので、作成者については、その制限がかからない方法
を下記のコードで教えていただきました。
その下記のコードに(4)上書可能で、上書きする時に特定のセル(D12)にその時の日を入力したいのですが、その日には条件があって、16:00より前ならその日、16:00以降なら翌日に入力されるように下記に付け加えたいのですが、どうすれば良いのでしょうか?
ブックモジュール[ThisWokbook]に
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.UserName = ThisWorkbook.BuiltinDocumentProperties("Author") Then Exit Sub '許可するユーザー名
Dim myRng As Range
Dim myStr As String
With Worksheets("Sheet1")
Set myRng = Union(.Range("A1"), .Range("B5"), .Range("C10"))
End With
If WorksheetFunction.CountA(myRng) < 3 Then
Cancel = True
myStr = "未入力セルがあります" & vbCrLf & _
"[OK....保存しないで終了]" & vbCrLf & _
"[キャンセル..編集に戻る]"
If MsgBox(myStr, vbOKCancel) = vbOK Then
ThisWorkbook.Close False
End If
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/08 15:45
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Access(アクセス) ExcelのVBAコードについて教えてください。 4 2023/01/20 09:44
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【エクセル】関数で「A1が0でな...
-
エクセルVBA ブックを閉じる前...
-
エクセルでセルのコメントが消...
-
エクセルでセルにポインタする...
-
エクセル逆三角マークで選択項...
-
シートを保護しても入力規則を...
-
エクセルで、入力できる箇所を...
-
エクセルVBA ユーザーフォーム...
-
カンマで区切った数値をCOU...
-
エクセルのセルの手入力を禁止。
-
【Excel】ドロップダウンリスト...
-
Excelでセルにデータを表示(右...
-
オートシェイプのテキストボッ...
-
初期値をIF文で設定した後入力...
-
Excel 自動的に半角英数になり...
-
エクセル 入力規則のリストボ...
-
Excelの入力規則によるプルダウ...
-
Excelでセルに名前を定義したい...
-
表内で、Enterキーで横→行の最...
-
エクセルで作業セルを切り取る...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【エクセル】関数で「A1が0でな...
-
エクセルでセルにポインタする...
-
エクセル逆三角マークで選択項...
-
エクセルVBA ブックを閉じる前...
-
エクセルでセルのコメントが消...
-
シートを保護しても入力規則を...
-
エクセル 入力規則のリストボ...
-
【Excel】ドロップダウンリスト...
-
Excel 自動的に半角英数になり...
-
エクセルVBA ユーザーフォーム...
-
エクセルの入力規則で作ったリ...
-
エクセルで、入力できる箇所を...
-
カンマで区切った数値をCOU...
-
エクセルで、入力制限(プルダ...
-
エクセルで電話番号から市内局...
-
入力規則の入力時メッセージの...
-
ドロップダウンリスト(INDIREC...
-
エクセルで負数の最大値を求めたい
-
Excelで同じセルに入力し エン...
-
excelの入力規則リストで重複不...
おすすめ情報