Excel2000の保存時のイベントプロシージャ
- Excel2000で、あるセルが空白なら警告メッセージボックスを出して保存できないようにするプログラムをVBAで作成しました。
- VBEで一行ずつ走らせるとちゃんとメッセージボックスが出てくるのですが、実際にブックからD6を空白にしたまま保存しようとしたらメッセージボックスが出てこずに保存できてしまいます。
- どこかで設定が必要なのでしょうか？
- ベストアンサー
Excel2000の保存時のイベントプロシージャ
エクセル2000で、あるセルが空白なら警告メッセージボックスを出して 保存できないようにする、というプログラムをVBAで作りました。 VBEで一行ずつ走らせるとちゃんとメッセージボックスが 出てくるのですが、実際にブックからD6を空白にしたまま保存しようと したらメッセージボックスが出てこずに保存できてしまいます。 どこかで、設定が必要なのでしょうか？ Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) With Worksheets("sheet1") If .Range("D6").Value = "" Then MsgBox "please enter D6 field.", vbCritical, "警告" Cancel = True End If End With End Sub
- fuyu
- お礼率69% (145/210)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。maruru01です。 fuyuさんのコードを、ThisWorkbookにそっくりそのまま貼り付けて実行したら、うまくいきました。 このコードはThisWorkbookにあるんですよね。 でしたら後は、D6が空白ではなく、スペースが入っているとか。 今のところ他にうまく行かない例が見つかりません。 ちなみに、D6に「= D1」とセル参照が入っていて、D1が空白で結果的にD6も空白の場合でも、やはり空白と認識し、警告してくれます。 あと、Range("D6")の「D6」を「D６」と全角にしてもOKでしたし、 "sheet1"と"Sheet1"が違ってもOKでした。 では。
関連するQ&A
- VBAでWorkbook_BeforeSaveイベントで質問
Workbook_BeforeSaveイベントである条件に達していればExcelファイルを終了したくないのですがどうすればよいでしょうか？ WindowsXP ProSP2、Excel2000 コード例） Option Explicit Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) dim flg as boolean if flg=true then exit sub end if End Sub
- ベストアンサー
- Visual Basic
- エクセルVBAにて保存するとき
Private Sub Workbook_BeforeClose(Cancel As Boolean) If MsgBox("エクセルを終了してもよろしいですか？", vbYesNo) = vbNo Then Cancel = True Exit Sub End If Application.DisplayAlerts = False Application.Quit End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox "そのボタンでは保存できません。" & vbCrLf & _ "雛形は残しておきましょう" & vbCrLf & _ "" & vbCrLf & _ "ツールバーの「マクロなし出力」から保存できます。" Cancel = True End Sub という二つのマクロをThisworkbookにいれてあるんですが、 この二つを有効（今は2つ目を'でコメント状態にしてあるので保存可）にすると保存できなくて困っています。 二つを有効にした時はどのようにほぞんすればいいですか？
- 締切済み
- Visual Basic
- Private Sub Workbook_BeforeSaveについて
エクセル2000です。 腑に落ちない現象が起きているので質問させてください。 Sheet1にテキストボックス（OLEオブジェクトのTextboxではありません）とボタンが貼ってあり、Visble=Falseで非表示にしています。それを保存する際には表示させたいので、BeforeSaveイベントで Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheet1.TextBoxes("テキスト").Visible = True Sheet1.Buttons("ボタン").Visible = True MsgBox "保存されちゃった！" End Sub と書いてみました。 手動で保存する場合には正しく、テクストボックスやボタンは正しく表示されます。もちろんMsgboxも出ます。 ところが、標準モジュールに書いた以下のコード、 Sub 保存() ActiveWorkbook.Save End Sub を走らせてみても、"保存されちゃった！"と、Msgboxは出ますが、肝心のテクストボックスやボタンが表示されません。 試行錯誤の結果、 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheet1.Shapes("テキスト").Visible = True Sheet1.Shapes("ボタン").Visible = True MsgBox "保存されちゃった！" End Sub と書くと、標準モジュールから、ActiveWorkbook.Saveでも表示されることがわかりました。 どうしてでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルマクロですべてのファイル保存時コメントだす
エクセルのアドインでファイル保存するときに”保存しますか？”の ダイアログをすべてのファイルに出したいのですが、 うまくいきません。どなたかお教えください。 PERSONAL_SAVE.XLS というファイルに以下のマクロを作成し C:\Documents and Settings\***\Application Data\Microsoft\Excel\XLSTART VBのClass1に 'Option Explicit Public WithEvents App As Application Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox ("保存しますか？") End Sub を作成し、 同じくVBのThisworkbookに Dim x As New Class1 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Set x.App = Application End Sub を作成します。 このときは、ほかのファイルに対しても 保存しますか？ のメッセージがでます。 しかし、 このファイルをPERSONAL_SAVE.lxa として 保存し、ツール⇒アドイン で追加し、立ち上げても 同様な動きをしません。 どうしてでしょうか？ インスタンス？の関係でしょうか？Private を Publicにしても同じでした。
- ベストアンサー
- オフィス系ソフト
- ExcelのVBAで、特定のセルを入力しないとファイルを保存できない設定で、その上書日時を別のセルに入力（但し条件有）
知恵袋にも質問しましたが、明日朝までに回答を頂けるか不安で、こちらにも質問します。 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
- ベストアンサー
- オフィス系ソフト
- Excelでシート名と最終更新日を自動表示したい
Excelを使って （１）セルA1に入れた名目をシート名にし （２）セルH1には、最終更新日を自動で入れたいです。 調べた結果、 シート名を右クリックして「コードの表示」から （１）は Private Sub Worksheet_Change(ByVal Target As Range) Sheets(1).Name = Range("B1") End Sub を入れてうまくいきましたが、 （２）は Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ThisWorkbook.Saved = False Then Worksheets("Sheet1").Range("H1").Value = Date End If End Sub を入れてみましたが（←調べましたもの） うまくいきませんでした。 単純に、 Private Sub Worksheet_Change(ByVal Target As Range) Sheets(1).Name = Range("B1") End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If ThisWorkbook.Saved = False Then Worksheets("Sheet1").Range("H1").Value = Date End If End Sub とつなげて入れるのではだめなんでしょうか？ それとも、（２）の何かが間違っていますか？ ご教授願います。
- ベストアンサー
- その他MS Office製品
- 同じシート内にイベントプロシージャが二つある時
いつもお世話になります。 WINDWS7 EXCELL2010 です。 下記の１ ２のマクロを同じシート内にイベントプロシージャを二つ挿入したところ、 ※１ ※２のような現象が起きました。 この現象を解決したくご指導を仰ぎたいです。 宜しくお願いします。 ※１ エラー表示 コンパイルエラー: 名前が適切ではありません; Worksheet_BeforeDoubleClick ※２ 下記の構文が青色に反転 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) １ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("A2:A51")) Is Nothing Then Exit Sub Cancel = True Sheets(CStr(Target.Value)).Select End Sub ２ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim myRange As Range Set myRange = Intersect(Target, Range("B2:B51")) If Not myRange Is Nothing Then Select Case Target.Value Case "" Target.Value = "○" Case Else Target.ClearContents End Select Cancel = True End If End Sub
- ベストアンサー
- Excel（エクセル）
- VBAでイベント処理に複数回入ってしまうのを防ぎたい
こんにちは。 マクロのエクセルファイルを操作し、セーブ時にCSV形式でテクストファイルに書くことを実現しようと思っています。 VBAでイベント処理"BeforeSave"で以下のように書くと、初めに書かれた"test.txt"が同じ処理を行おうとしているようで、そこでも書き込みの処理を行おうとする→無限に書き込みが発生？→エラーの表示が出てきます。これはどういう風に対処すればよろしいのでしょうか？ Workbook/BeforeSaveイベント処理： Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim file_curr As String Dim msg As String file_curr = ThisWorkbook.Path & "\test.txt" If Dir(file_curr) = "" Then ActiveWorkbook.SaveAs _ Filename:=file_curr, _ FileFormat:=xlCSV, Local:=True msg = "saved" Else msg = "file exist, not saved" End If MsgBox msg End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルで「名前を付けて保存」を自動的に名前を付けて保存したい
エクセルで「名前を付けて保存」をする時に自動的に名前を付けて保存が出来るように出来ないでしょうか。 エクセルで見積書を作成後に「名前を付けて保存」→「受注番号入力」をしているので、これを「名前を付けて保存」をクリックした時にファイル名を自動的に受注番号が入れば少しでも時間短縮が出来るかと思い、相談させていただきます。 自分なりに参考書などを読み、下記のようになると思ったのですが、出来ません。 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SavaAsUI Then Application.EnableEvents = False Application.Dialogs(xlDialogSaveAs).Show _ Arg1:=Me.Path & Application.PathSeparator & Sheet(1).Range("A1").Value Application.EnableEvents = True Cancel = True End If End Sub シート１に見積書があり、シート２、シート３はありません。 「Ａ１」のセルに受注番号が入っています。 これのどこがダメなのか教えてもらえませんか。 もし、他に方法があるのであれば教えていただけませんか。 ご無理申します。
- ベストアンサー
- オフィス系ソフト
- エクセルマクロ BeforSave機能
ThisWorkbook の Workbook BeforSaveに以下のようにセットして上書き保存すると マイクロソフトに報告する旨のエラーメッセージが出ます。 自ら初めてこの機能を使うのですが、どこがどう間違っているのでしょうか？ エラー後に報告「する・しない」で自動復帰した後にそのまま上書き保存すると 何もおこらず上書きできますが、少しでも変更を加えると再度同じエラーとなります。 よろしくお願いします。 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim IptA As String, rev As String IptA = Cells(3, 13).Value rev = Cells(8, 13).Value If SaveAsUI = False Then Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C:\000\" & IptA & "報告" & rev & ".xls", FileFormat:= _ xlNormal, ReadOnlyRecommended:=False _ , CreateBackup:=False End If End Sub
- ベストアンサー
- その他MS Office製品
お礼
なぜだか分かりませんが、時間がたつとちゃんと動きました。回答ありがとうございました。