Excel総合相談所 137

[743 名無しさん＠そうだ選挙にいこう 2019/12/10(火) 20:25:57.87]

>>742
中身これだけだったな
setapp=〜の部分は良く分からなかったけど、単にイベントにかませるだけで行けるみたい

Option Explicit
Private WithEvents App As Application

Private Sub Workbook_Open()
Set App = Application
End Sub

Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
Wb.CheckCompatibility = False
End Sub