| |
エクセルののバージョンは、
Msgbox Application.Version
で、調べられます。。
開く時は、下記コードを
Private Sub Workbook_Open() か、
Sub Auto_Open()
で、判定させればいいと思います。
If Application.Version <> "95のバージョンは上記で調べた物を書く。" Then
MsgBox "エクセルのバージョンが95じゃないので・・・・・"
End If
保存する時、
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.Version <> "" Then
MsgBox "エクセルのバージョンが95じゃないので・・・・・"
'保存中止
Cancel = True
End If
End Sub
95形式で保存するのかどうかの判断は解りません。（出来たかもしれない。）
ただ、97や2000以上で95形式で上書き保存するのは止めた方がいいと思います。
ファイルサイズが、約２倍前後増えるみたいです。
95形式と上書きした時のエクセルバージョン形式の２つ保存する事になるらしいです。
因みに、原本をそのまま使っているのでしょうか？？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
