Excel VBA質問箱 IV

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

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


41078 / 76732 ←次へ | 前へ→

【40738】Re:セルルの枠線をファイル起動と同時に自動で消すには
回答  Kein  - 06/7/21(金) 18:59 -

引用なし
パスワード
   >新たに任意のファイルB.xlsやC.xlsを開くと
ブックレベルのイベントではなく、アプリケーションレベルのイベントを使います。
ファイルA.xlsのVBEで「挿入」「クラスモジュール」を選択し、"Class1"という
モジュールが追加されるのを確認して下さい。そのモジュールの先頭から

Public WithEvents App As Application

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
  Dim WS As Worksheet

  Application.ScreenUpdating = False
  For Each WS In Wb.Worksheets
   WS.Activate
   ActiveWindow.DisplayGridlines = False
  Next
  Application.ScreenUpdating = True
End Sub

そしてThisWorkbookモジュールには、先頭から

Dim X As New Class1

Private Sub Workbook_Open()
  Set X.App = Application
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  On Error Resume Next
  Set X.App = Nothing: ThisWorkbook.Save  
End Sub

というマクロを入れて、ファイルA.xlsを再起動してみてください。

0 hits

【40733】セルルの枠線をファイル起動と同時に自動で消すには カド 06/7/21(金) 17:15 質問
【40735】Re:セルルの枠線をファイル起動と同時に自... ぱっせんじゃー 06/7/21(金) 17:34 発言
【40737】Re:セルルの枠線をファイル起動と同時に自... ぱっせんじゃー 06/7/21(金) 17:40 発言
【40752】Re:セルルの枠線をファイル起動と同時に自... カド 06/7/22(土) 18:36 お礼
【40738】Re:セルルの枠線をファイル起動と同時に自... Kein 06/7/21(金) 18:59 回答
【40753】Re:セルルの枠線をファイル起動と同時に自... カド 06/7/22(土) 18:37 お礼

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