Excel VBA質問箱 IV

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

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


71091 / 76734 ←次へ | 前へ→

【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

1 hits

【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 お礼

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