现有一Excel,内有数据,如何处理保存后再打开时,只剩数据那部分,其他为空白

Alt+F11讲代码复制到Thisworkbook里面.
这是一个工作簿事件,工作簿关闭前触发.
访问每个工作表,根据已已使用单元格区域的,行号列号来隐藏工作表其他的单元格.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Sht As Worksheet
Dim R As Integer, C As Integer
For Each Sht In ThisWorkbook.Worksheets
R = Sht.UsedRange.Rows.Count
C = Sht.UsedRange.Columns.Count
Range(Rows(R + 1), Rows(65536)).EntireRow.Hidden = True
Range(Columns(C + 1), Columns(256)).EntireColumn.Hidden = True
Next

End Sub