Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12511 / 13645 ツリー ←次へ | 前へ→

【10130】「×」で閉じた際のメッセージ非表示 テーブル 04/1/8(木) 15:24 質問
【10132】Re:「×」で閉じた際のメッセージ非表示 INA 04/1/8(木) 15:37 回答
【10133】Re:「×」で閉じた際のメッセージ非表示 テーブル 04/1/8(木) 16:15 お礼
【10135】Re:「×」で閉じた際のメッセージ非表示 INA 04/1/8(木) 16:35 回答
【10140】Re:「×」で閉じた際のメッセージ非表示 テーブル 04/1/8(木) 18:29 お礼
【10145】Re:「×」で閉じた際のメッセージ非表示 Seraph 04/1/8(木) 20:55 回答
【10146】Re:「×」で閉じた際のメッセージ非表示 テーブル 04/1/8(木) 20:58 お礼
【10157】Re:「×」で閉じた際のメッセージ非表示 テーブル 04/1/9(金) 10:22 質問
【10158】Re:「×」で閉じた際のメッセージ非表示 ichinose 04/1/9(金) 10:27 回答
【10159】Re:「×」で閉じた際のメッセージ非表示 テーブル 04/1/9(金) 10:37 お礼

【10130】「×」で閉じた際のメッセージ非表示
質問  テーブル  - 04/1/8(木) 15:24 -

引用なし
パスワード
   お世話になっておりませす。テーブルです。
EXCELの右上の「×」で閉じた際の、「’’への変更を保存しますか?」のメッセージの非表示の仕方を教えてくださいますでしょうか。

【10132】Re:「×」で閉じた際のメッセージ非表示
回答  INA  - 04/1/8(木) 15:37 -

引用なし
パスワード
   excel アプリを閉じたときは、保存しないで終了したいということでしょうか?
ブックを閉じた場合や、それ以外の場合はどのような感じでしょうか?

【10133】Re:「×」で閉じた際のメッセージ非表示
お礼  テーブル  - 04/1/8(木) 16:15 -

引用なし
パスワード
   ▼INA さん:
>excel アプリを閉じたときは、保存しないで終了したいということでしょうか?
>ブックを閉じた場合や、それ以外の場合はどのような感じでしょうか?


Private Sub Workbook_BeforeClose(Cancel As Boolean)で
EXCELアプリを閉じる際に、保存先を指定して保存しています。
「YESNO」で選択する際に「キャンセル」を押すと、再度「変更を保存しますか?」と
聞かれるので、この部分を無くしたかったので・・・・

【10135】Re:「×」で閉じた際のメッセージ非表示
回答  INA  - 04/1/8(木) 16:35 -

引用なし
パスワード
   >Private Sub Workbook_BeforeClose(Cancel As Boolean)
は、どんなコードでしょうか?

Application.DisplayAlerts =false では消えませんか?

【10140】Re:「×」で閉じた際のメッセージ非表示
お礼  テーブル  - 04/1/8(木) 18:29 -

引用なし
パスワード
   ▼INA さん:
>>Private Sub Workbook_BeforeClose(Cancel As Boolean)
>は、どんなコードでしょうか?
>
>Application.DisplayAlerts =false では消えませんか?

下記のコードなんですが、displayalertsでは消えなかったです・・・・
下手すぎて恥ずかしいですTT

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim myFileName As String
Dim MyPath As String
Dim i As String
Dim MyName As String

On Error Resume Next

If InStr(1, i, "-") = 0 Then
  i = ThisWorkbook.Name
  i = Left(i, InStr(i, "-") - 1)

  If Err.Number Then
    MsgBox "フォームは変えないようにしてください。"
    Exit Sub
  End If

On Error GoTo 0

Else
  MsgBox "このファイルは保存できません。"
  Exit Sub
End If

MyPath = '場所を設定しています
MyName = Dir(MyPath, vbDirectory)

Do While MyName <> ""  ' ループを開始します。
  If MyName <> "." And MyName <> ".." Then
    ' ビット単位の比較を行い、MyName がフォルダかどうかを調べます。
    If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
      If MyName = i Then
      i = MyName
      Exit Do
      End If
    End If
   
  End If
  MyName = Dir          
Loop

On Error Resume Next
  ChDrive MyPath & i
  ChDir MyPath & i & "\EXCELフォルダ"
  If Err.Number Then
    MsgBox "保存先フォルダが見つかりません。"
    Exit Sub
  End If

On Error GoTo 0
    
    myFileName = Application.GetSaveAsFilename _
      (ActiveWorkbook.Name, "Excelファイル(*.xls),*.xls")
    If myFileName = "False" Then
      Exit Sub
    Else
      On Error Resume Next
      With Application
        ActiveWorkbook.SaveAs myFileName
      End With
      
      If Err.Number Then
        Exit Sub
      End If
    End If
      On Error GoTo 0  
   Application.Quit

End Sub

【10145】Re:「×」で閉じた際のメッセージ非表示
回答  Seraph  - 04/1/8(木) 20:55 -

引用なし
パスワード
   ▼テーブル さん:
お晩でございます。

>下記のコードなんですが、displayalertsでは消えなかったです・・・・
>下手すぎて恥ずかしいですTT

やっぱしここのところを↓
>      With Application
>        ActiveWorkbook.SaveAs myFileName
>      End With

こういう風にするしか思いつかないっす
  With Application
    .DisplayAlerts = False
    .ActiveWorkbook.SaveAs myFileName
    .DisplayAlerts = True
  End With

あと、キャンセルしても表示されるのは、この辺にブレークポイントをいれて
流れを追ってみては?
>    myFileName = Application.GetSaveAsFilename _
>      (ActiveWorkbook.Name, "Excelファイル(*.xls),*.xls")

このIf文が効いてるのかどうか
>    If myFileName = "False" Then


回答になってないかもしれないけどがんばってね

【10146】Re:「×」で閉じた際のメッセージ非表示
お礼  テーブル  - 04/1/8(木) 20:58 -

引用なし
パスワード
   Seraphさん、アドバイスありがとうございます。
今から考えて見ます! どうもありがとうです!

>あと、キャンセルしても表示されるのは、この辺にブレークポイントをいれて
>流れを追ってみては?
>>    myFileName = Application.GetSaveAsFilename _
>>      (ActiveWorkbook.Name, "Excelファイル(*.xls),*.xls")
>
>このIf文が効いてるのかどうか
>>    If myFileName = "False" Then
>
>
>回答になってないかもしれないけどがんばってね

【10157】Re:「×」で閉じた際のメッセージ非表示
質問  テーブル  - 04/1/9(金) 10:22 -

引用なし
パスワード
   再度、質問があるのですが・・・・
「×」ボタンをクリックした際に、保存をしないで、
メッセージも表示させないようにするには、どうすればいいでしょうか?
「×」ボタンを、ただの閉じるバッテンにしたいのですが。

【10158】Re:「×」で閉じた際のメッセージ非表示
回答  ichinose  - 04/1/9(金) 10:27 -

引用なし
パスワード
   ▼テーブル さん:
こんにちは。

>再度、質問があるのですが・・・・
>「×」ボタンをクリックした際に、保存をしないで、
>メッセージも表示させないようにするには、どうすればいいでしょうか?
>「×」ボタンを、ただの閉じるバッテンにしたいのですが。
BeforeCloseイベントで

'===============================================
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  ThisWorkbook.Saved = True
End Sub

でどうでしょうか?
確認してみて下さい。

【10159】Re:「×」で閉じた際のメッセージ非表示
お礼  テーブル  - 04/1/9(金) 10:37 -

引用なし
パスワード
   ▼ichinose さん:
素早い回答ありがとうございます。
確認した所できました! どうもありがとうございます。

>'===============================================
>Private Sub Workbook_BeforeClose(Cancel As Boolean)
>  ThisWorkbook.Saved = True
>End Sub
>
>でどうでしょうか?
>確認してみて下さい。

12511 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free