>>160
遅れたがサンクス。

とりあえず各アソバイスを入れた結果、Ctrl+Sで保存で行が消せるようになった！
ビュアーでみてもちゃんと消える。
ただ
・ブックを閉じようとすると上書き保存するか聞かれるが保存するを選んでも何度も同じことを聞かれる。
いいえかキャンセルのみで抜けられる。
は解消されないな……一度保存すればあとはいいえ押せばいいだけなんだけどね。
ThisWorkbook.Saved = Trueの使い方がまずい？


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean _
, Cancel As Boolean)
With ActiveWindow
.DisplayHeadings = False '行列番号消し

'Application.DisplayAlerts = False

Application.EnableEvents = False
ThisWorkbook.Save 'セーブ。できてない？
Application.EnableEvents = True

Cancel = True '通常の上書き保存をキャンセル

.DisplayHeadings = True '行列番号表示
ThisWorkbook.Saved = True '変更適応OK
End With

'Application.EnableEvents = False
End Sub
※その他、Open時とClose時にそれぞれ行列表示のOn,Offをいれてます。