Xin mở lại file excel về trạng thái bình thường

[hoangdodang]

Mình cài setup chương trình chắc nghiệm của Thầy an. bây giờ mở excel file nào cũng mất thanh hết. Mong các ACE giup đỡ để excel về trạng thái bình thường. Đính kèm file để ACE giup đỡ

 

[duongdv]

Bạn bị mất thanh là mất gì vậy? Mình mở vẫn bình thường mà.

 

[ptlong04x1]

Mình cài setup chương trình chắc nghiệm của Thầy an. bây giờ mở excel file nào cũng mất thanh hết. Mong các ACE giup đỡ để excel về trạng thái bình thường. Đính kèm file để ACE giup đỡ

Chắc là do bạn điều chỉnh trong Option thôi, làm như sau :

menu Tools --> Options --> tab View --> phần Window Options --> chọn hết tất cả các mục thử xem.

 

[nghiaphuc]

Mình cài setup chương trình chắc nghiệm của Thầy an. bây giờ mở excel file nào cũng mất thanh hết. Mong các ACE giup đỡ để excel về trạng thái bình thường. Đính kèm file để ACE giup đỡ

Nếu bạn dùng Windows XP thì vào thư mục C:\Documents and Settings\UserName\Application Data\Microsoft\Excel (UserName là tên User mà bạn đang đăng nhập vào Windows) và xóa file Excel??.xlb (?? có thể là 10, 11, 12,...) trong đó thử xem. Tất cả sẽ được Reset như ban đầu.
Còn với file đính kèm của bạn, mình vẫn thấy bình thường, có gì đặc biệt đâu!

 

[tanlahill]

Mình cài setup chương trình chắc nghiệm của Thầy an. bây giờ mở excel file nào cũng mất thanh hết. Mong các ACE giup đỡ để excel về trạng thái bình thường. Đính kèm file để ACE giup đỡ

Bạn gởi file của thầy An lên để mọi người xem thử nó bị như thế nào!
Theo tôi nghĩ có thể nguyên nhân làm mất thanh như bạn nói là do ở file của thầy An có một số thuộc tính làm cho ẩn (False) các thanh khi Workbook_Open() mà không cho hiện (True) trước khi thoát - Workbook_BeforeClose().
Bạn xem ví dụ sau nhé (Nói nôm na là cứ cái nào Open = True thì Close = False và ngược lại thì nó sẽ trở về lại trạng thái ban đầu!)
Ví dụ
Giả sử file của thầy An có cái này

Private Sub Workbook_Open()
    With Application
        .Calculation = xlCalculationManual
        .Visible = False
        .ScreenUpdating = False
        .EnableEvents = False
        .DisplayAlerts = False
        .IgnoreRemoteRequests = True
        End With
   LOGIN.Show vbModal
End Sub

Thì cần kiểm tra xem đã có cái này chưa?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 With Application
        .Calculation = xlCalculationAutomatic
        .Visible = True
        .ScreenUpdating = True
        .EnableEvents = True
        .DisplayAlerts = True
        .IgnoreRemoteRequests = False
       End With
End Sub

Bạn thử cách đó xem sao nhé! Hy vọng thành công!
Bạn thử mở file mình vừa mới gởi lên rồi thoát và mở lại 1 workbook bất kỳ xem nó thế nào nhé!