Giúp sửa lỗi khi mở file Excel (1 người xem)

[hunganh.nguyen]

Chào các anh chị em GPE,

Mình có 1 file khi mở ra thì hiện thông báo


Sau khi chọn Yes thì hiện tiếp thông báo


Mình không biết làm cách nào loại bỏ thông báo này mỗi khi mở file.
Mọi người ai biết thì chỉ giúp mình nhé.
Mình cám ơn!

 

[ndu96081631]

Chào các anh chị em GPE,

Mình có 1 file khi mở ra thì hiện thông báo

View attachment 194528
Sau khi chọn Yes thì hiện tiếp thông báo
View attachment 194530

Mình không biết làm cách nào loại bỏ thông báo này mỗi khi mở file.
Mọi người ai biết thì chỉ giúp mình nhé.
Mình cám ơn!

Xem sơ qua thì thấy file này có đến hơn 60,000 styles rác. Kinh thật!

 

[hunganh.nguyen]

Xem sơ qua thì thấy file này có đến hơn 60,000 styles rác. Kinh thật!

Cám ơn thầy!

Vậy có cách nào để loại bỏ chúng không ạ?

 

[bebanhbeo]

Cám ơn thầy!

Vậy có cách nào để loại bỏ chúng không ạ?

http://www.giaiphapexcel.com/diendan/threads/sửa-lỗi-khi-mở-file-excel.134505/

 

[hunganh.nguyen]

Xem sơ qua thì thấy file này có đến hơn 60,000 styles rác. Kinh thật!

Chào thầy!
Thầy đã có giải pháp nào giúp em chưa ạ?

 

[ndu96081631]

Chào thầy!
Thầy đã có giải pháp nào giúp em chưa ạ?

File bạn nặng quá, còn máy tôi lại yếu quá nên chưa xử lý được

 

[hunganh.nguyen]

Vâng!
File này em đang dùng cho công việc hàng ngày nên lỗi đó cũng khá bất tiện.
Rất mong thầy sớm giúp em.
Cám ơn thầy!

 

[Bong0503]

Chào các anh chị em GPE,

Mình có 1 file khi mở ra thì hiện thông báo

View attachment 194528
Sau khi chọn Yes thì hiện tiếp thông báo
View attachment 194530

Mình không biết làm cách nào loại bỏ thông báo này mỗi khi mở file.
Mọi người ai biết thì chỉ giúp mình nhé.
Mình cám ơn!

Bạn thử đoạn code sau.
Sub StyleKill()
Dim styT As Style
Dim intRet As Integer
For Each styT In ActiveWorkbook.Styles
If Not styT.BuiltIn Then
intRet = MsgBox("Delete style '" & styT.Name & "'?", vbYesNo)
If intRet = vbYes Then styT.Delete
End If
Next styT
End Sub
code phát hiện được style rác trong sheet nhưng không có pass sheet nên không biết kq sao.

 

[hunganh.nguyen]

Bạn thử đoạn code sau.
Sub StyleKill()
Dim styT As Style
Dim intRet As Integer
For Each styT In ActiveWorkbook.Styles
If Not styT.BuiltIn Then
intRet = MsgBox("Delete style '" & styT.Name & "'?", vbYesNo)
If intRet = vbYes Then styT.Delete
End If
Next styT
End Sub
code phát hiện được style rác trong sheet nhưng không có pass sheet nên không biết kq sao.

Mình đã thử nhưng code chay bị lỗi bạn ạ.
File mình đã mở pass tất cả các sheet, bạn thử test dùm mình nhé.

 

[Bong0503]

Mình đã thử nhưng code chay bị lỗi bạn ạ.
File mình đã mở pass tất cả các sheet, bạn thử test dùm mình nhé.

Còn rất nhiều sheet chưa mở pass mà ví dụ SLI_NCTS.
bạn chạy code này để mở pass tất cả các sheet sau đó chạy lại code trên nhé
Sub UnProtectAll()

Dim wSheet As Worksheet
Dim Pwd As String

Pwd = InputBox("Enter your password to unprotect all worksheets", "Password Input")
On Error Resume Next
For Each wSheet In Worksheets
wSheet.Unprotect Password:=Pwd
Next wSheet
If Err <> 0 Then
MsgBox "You have entered an incorect password. All worksheets could not " & _
"be unprotected.", vbCritical, "Incorect Password"
End If
On Error GoTo 0

End Sub

 

[dazkangel]

Mình đã thử nhưng code chay bị lỗi bạn ạ.
File mình đã mở pass tất cả các sheet, bạn thử test dùm mình nhé.

Mình vừa thử xong, bạn xem thử:

 

[hunganh.nguyen]

Còn rất nhiều sheet chưa mở pass mà ví dụ SLI_NCTS.
bạn chạy code này để mở pass tất cả các sheet sau đó chạy lại code trên nhé
Sub UnProtectAll()

Dim wSheet As Worksheet
Dim Pwd As String

Pwd = InputBox("Enter your password to unprotect all worksheets", "Password Input")
On Error Resume Next
For Each wSheet In Worksheets
wSheet.Unprotect Password:=Pwd
Next wSheet
If Err <> 0 Then
MsgBox "You have entered an incorect password. All worksheets could not " & _
"be unprotected.", vbCritical, "Incorect Password"
End If
On Error GoTo 0

End Sub

Còn rất nhiều sheet chưa mở pass mà ví dụ SLI_NCTS.
bạn chạy code này để mở pass tất cả các sheet sau đó chạy lại code trên nhé
Sub UnProtectAll()

Dim wSheet As Worksheet
Dim Pwd As String

Pwd = InputBox("Enter your password to unprotect all worksheets", "Password Input")
On Error Resume Next
For Each wSheet In Worksheets
wSheet.Unprotect Password:=Pwd
Next wSheet
If Err <> 0 Then
MsgBox "You have entered an incorect password. All worksheets could not " & _
"be unprotected.", vbCritical, "Incorect Password"
End If
On Error GoTo 0

End Sub

Còn rất nhiều sheet chưa mở pass mà ví dụ SLI_NCTS.
bạn chạy code này để mở pass tất cả các sheet sau đó chạy lại code trên nhé
Sub UnProtectAll()

Dim wSheet As Worksheet
Dim Pwd As String

Pwd = InputBox("Enter your password to unprotect all worksheets", "Password Input")
On Error Resume Next
For Each wSheet In Worksheets
wSheet.Unprotect Password:=Pwd
Next wSheet
If Err <> 0 Then
MsgBox "You have entered an incorect password. All worksheets could not " & _
"be unprotected.", vbCritical, "Incorect Password"
End If
On Error GoTo 0

End Sub

Còn rất nhiều sheet chưa mở pass mà ví dụ SLI_NCTS.
bạn chạy code này để mở pass tất cả các sheet sau đó chạy lại code trên nhé
Sub UnProtectAll()

Dim wSheet As Worksheet
Dim Pwd As String

Pwd = InputBox("Enter your password to unprotect all worksheets", "Password Input")
On Error Resume Next
For Each wSheet In Worksheets
wSheet.Unprotect Password:=Pwd
Next wSheet
If Err <> 0 Then
MsgBox "You have entered an incorect password. All worksheets could not " & _
"be unprotected.", vbCritical, "Incorect Password"
End If
On Error GoTo 0

End Sub

Cám ơn bạn đã giúp đỡ mình xử lý vấn đề.
Nhưng mình vẫn còn chút lo lắng là code đó xử lý triệt để nguyên nhân tạo ra style rác chưa hay trong quá trình mình dùng file này lại tiếp tục phát sinh rác nữa?

 

[hunganh.nguyen]

Mình vừa thử xong, bạn xem thử:

Cám ơn bạn giúp đỡ!
File đã có vẻ chạy ổn rồi.