tanmowatel
Thành viên mới
- Tham gia
- 5/1/09
- Bài viết
- 1
- Được thích
- 1
Có 1 file Excel đang làm bình thường. Mình save lại, rùi sao đó mở lên thì không thấy hiển thị gì nữa. Nhờ mọi người kiểm tra giúp dùm.
Sao một hồi nghiên cứu mày mò trên google.com thì cũng tìm ra được cách khắc phục lỗi. Giờ share cho mọi người nè:
Open the invisible file. Then make a new spreadsheet, hit ALT + F11, and choose "Insert" then "Module".
Then paste the following text into the module:
Sub RestoreExcelWindows()
Dim t As Integer, s As Integer
t = Application.Windows.Count
For s = 1 To t
Windows(s).EnableResize = True
Windows(s).Visible = True
Windows(s).WindowState = xlNormal
Windows(s).Left = 0
Windows(s).Width = 900
Windows(s).Top = 0
Windows(s).Height = 400
Windows(s).WindowState = xlMaximized
Next s
End Sub
Then try running the code (hit F5 from within the code editor window, or choose "Tools... Macro... Macros... Run" from within Excel)
If it doesn't work, well, you can have your money back. Its got to be worth a try, though.
PS: My apologies - remove the line:
Windows(s).EnableResize = True
if it gives you any trouble!
Sao một hồi nghiên cứu mày mò trên google.com thì cũng tìm ra được cách khắc phục lỗi. Giờ share cho mọi người nè:
Open the invisible file. Then make a new spreadsheet, hit ALT + F11, and choose "Insert" then "Module".
Then paste the following text into the module:
Sub RestoreExcelWindows()
Dim t As Integer, s As Integer
t = Application.Windows.Count
For s = 1 To t
Windows(s).EnableResize = True
Windows(s).Visible = True
Windows(s).WindowState = xlNormal
Windows(s).Left = 0
Windows(s).Width = 900
Windows(s).Top = 0
Windows(s).Height = 400
Windows(s).WindowState = xlMaximized
Next s
End Sub
Then try running the code (hit F5 from within the code editor window, or choose "Tools... Macro... Macros... Run" from within Excel)
If it doesn't work, well, you can have your money back. Its got to be worth a try, though.
PS: My apologies - remove the line:
Windows(s).EnableResize = True
if it gives you any trouble!
File đính kèm
Chỉnh sửa lần cuối bởi điều hành viên: