解决excel下打开文件灰色看不到的问题

同事电脑突然出现有些xls文件打开不显示，工具栏不能操作，也不报错。

在网上查了一下，最后找到解决方法，特此记录一下：

调出vba编辑器，新建模块，写入一下代码：

sub  showexcel()

on error resume next

for each xlswindow in Application.Window

    xlswindow.Visible=True

next

end sub