プログラム例)
<pre>
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim x As Integer
Dim y As Integer
Dim MaxRow As Integer
Dim MaxCol As Integer
Dim wkStr As String
Dim SheetObj As Worksheet
Dim FileNo As Integer
Dim FileName As String