Excel VBA質問箱 IV

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

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


61370 / 76738 ←次へ | 前へ→

【19988】Re:Excelの起動状況
回答  ぴかる  - 04/11/22(月) 15:48 -

引用なし
パスワード
   コウさん、こんにちは。

他のブックが開いているという観点でいいんなら、こんなんで出来るかなと思います。
以前につんさんから、教えて頂いたものを少しいじくりました。

Sub Auto_Open()

  Dim BOOK数 As Long
  Dim wb As Workbook
 
  BOOK数 = 0
 
  For Each wb In Workbooks
    If Windows(wb.Name).Visible = True Then
      BOOK数 = BOOK数 + 1
    End If
  Next wb
 
  If BOOK数 > 1 Then
    MsgBox "既に他のブックが開いています。" & vbLf & _
        "このブックを終了します。"
    Application.DisplayAlerts = False '警告メッセージオフにする
    ActiveWorkbook.Close
  End If

End Sub

4 hits

【19987】Excelの起動状況 コウ 04/11/22(月) 14:56 質問
【19988】Re:Excelの起動状況 ぴかる 04/11/22(月) 15:48 回答
【19989】Re:Excelの起動状況 コウ 04/11/22(月) 16:20 質問
【19991】Re:Excelの起動状況 ぴかる 04/11/22(月) 16:41 回答
【19992】Re:Excelの起動状況 コウ 04/11/22(月) 16:53 お礼
【20027】Re:Excelの起動状況 コウ 04/11/24(水) 15:55 質問
【20028】Re:Excelの起動状況 ichinose 04/11/24(水) 19:15 発言
【20038】Re:Excelの起動状況 コウ 04/11/25(木) 10:13 質問
【20039】Re:Excelの起動状況 つん 04/11/25(木) 11:05 発言
【20040】Re:Excelの起動状況 ぴかる 04/11/25(木) 11:10 発言
【20042】Re:Excelの起動状況 つん 04/11/25(木) 14:05 発言
【20043】Re:Excelの起動状況 yuu1 04/11/25(木) 15:09 回答
【20044】Re:Excelの起動状況 コウ 04/11/25(木) 15:49 お礼

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