Virus???

  • Thread starter levanduyet
  • Ngày gửi
levanduyet

levanduyet

Welcome
16/10/04
537
19
18
HCM
my.opera.com
Chào các bạn,
Tôi có một số file excel, mới vừa bị tình trạng thanh công cụ Toolbox của tôi các nút đều bị mờ đi. Tôi đã dùng chương trình để sửa lại nhưng không được! (bị từ lúc chép file của BinhOverAC, hi hi hi). Các nút lệnh đều bị không thấy. Vậy đây có phải là virus không? Tôi đã thử tìm hiểu (hình như là virus). Vậy thì làm sao phục hồi lại các file này (vẫn ổn định như trước khi bị...)

Thân,

Lê Văn Duyệt
 
Khóa học Quản trị dòng tiền
levanduyet

levanduyet

Welcome
16/10/04
537
19
18
HCM
my.opera.com
hi hi

Tôi upload file lên các bạn xem sao nha.

Lê Văn Duyệt
 

Đính kèm

  • ForTest.rar
    43.1 KB · Lượt xem: 116
H

heroic

Guest
11/11/04
56
0
0
vn
Đúng rồi, em thử chạy bị dính luôn!

Em đã thử mở file của Bác Duyệt gởi lên đúng như cảnh báo Control toolbox bị mờ không hoạt động được thế là khỏi thiết kế form luôn. Lạ thật Viruts gì kỳ vậy cơ chứ. không nguy hiểm nhưng bực mình thật????????????//
 
H

HảiĐăng

Guest
17/10/05
99
1
0
118
Biển Khơi
www.gic.com.vn
Tôi không hiểu lắm về mấy cái này:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim rs As New ADODB.Recordset
On Error GoTo Workbook_BeforeClose_Error
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
If bConnected = False Then
Call ConnectToDatabase
End If
'If bConnected Then
' gcnAccess.Open
' rs.Open "TB_USERS_INOUT", gcnAccess, adOpenKeyset, adLockOptimistic, adCmdTable
' rs.AddNew
' rs.Fields("User") = IIf(Len(Trim(sUserName)) = 0, User, sUserName)
' rs.Fields("StringLogInOut") = FormatStringLogInOut("LOUT")
' rs.Update
' rs.Close
' Set rs = Nothing
'End If
Call DestroyConnection
'Call AskToEnableWhenOpen
ErrorExit:
If bConnected Then
gcnAccess.Close
bConnected = False
End If
If IsNull(rs) Then
If rs.State = adStateOpen Then
rs.Close
Set rs = Nothing
End If
End If
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Exit Sub

Workbook_BeforeClose_Error:

If bCentralErrorHandler("ThisWorkbook", "Workbook_BeforeClose", , False) Then
Stop
Resume
Else
Resume ErrorExit
End If
End Sub

Private Sub Workbook_Open()

On Error GoTo Workbook_Open_Error
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Call ConnectToDatabase
Application.CommandBars("Control Toolbox").Reset
ErrorExit:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Exit Sub

Workbook_Open_Error:

If bCentralErrorHandler("ThisWorkbook", "Workbook_Open", , False) Then
Stop
Resume
Else
Resume ErrorExit
End If
End Sub


Nhưng ở các máy khác nhau có lẽ sẽ chịu ảnh hưởng khác nhau nhỉ
 
levanduyet

levanduyet

Welcome
16/10/04
537
19
18
HCM
my.opera.com
HảiĐăng nói:
Tôi không hiểu lắm về mấy cái này
Nhưng ở các máy khác nhau có lẽ sẽ chịu ảnh hưởng khác nhau nhỉ

Chào bạn,
Bạn không cần quan tâm mấy cái này vì nó đâu có làm gì ảnh hưởng đến Toolbox.

LVD
 
levanduyet

levanduyet

Welcome
16/10/04
537
19
18
HCM
my.opera.com
help, help

Các bạn có ai help được mình cái vụ này không?

Gấp, gấp...

Thân,

LVD
 
D

dragon2

Trung cấp
14/11/05
52
0
6
Ha Noi
Anh thử dùng AGV quét xem sao !
Nếu không thì gửi cho BKAV .
 
Đào Việt Cường

Đào Việt Cường

Moderator
22/11/05
400
4
18
Khánh Hòa
Dear levanduyet,
----------------
Em nhận thấy "bộ đồ nghề" tools bar chỉ bị vô hiệu hoá khi Workbook For_Test.xls được active. Sao anh không chuyển đổi Workbook này bằng cách sao chép Database và các thủ tục VBA thành Workbook mới?
Còn để tìm hiểu sâu xa, em đã Alt+Shift +11 vào Microsoft Script Editor và so sánh với Workbook bình thường. Em không hiểu mấy nhưng thấy có nhiều mã lệnh khác lắm.
Anh thử tìm hiểu phần đó xem sao!
 
levanduyet

levanduyet

Welcome
16/10/04
537
19
18
HCM
my.opera.com
Đào Việt Cường nói:
----------------
Em nhận thấy "bộ đồ nghề" tools bar chỉ bị vô hiệu hoá khi Workbook For_Test.xls được active. Sao anh không chuyển đổi Workbook này bằng cách sao chép Database và các thủ tục VBA thành Workbook mới?
Dĩ nhiên là làm như vầy thì OK rồi, nhưng tốn thời gian lắm. Vì cái cục nợ của anh hơi bị nhiều.

Tks em nhiều.

Lê Văn Duyệt
 
cold

cold

Cao cấp
20/12/05
243
42
28
46
A2,Hoang Hoa Tham,Q.TB
Virus???
To levanduyet,
Chỉ cần làm như sau: Tool/Options/View/nhấn vào nút " Show all" o Objects.

:bigok: :bigok: :dzo:
 
Đào Việt Cường

Đào Việt Cường

Moderator
22/11/05
400
4
18
Khánh Hòa
cool

Ồ! phải rồi đấy!
---------------
Bạn cold làm mình... "hot" quá! Té ra đây là kiến thức căn bản mà mình lại bỏ qua, lại còn suýt nữa nghi oan cho cái "cục ấy" của bác Duyệt! :cool2: :inlove:
 
levanduyet

levanduyet

Welcome
16/10/04
537
19
18
HCM
my.opera.com
cold nói:
Virus???
To levanduyet,
Chỉ cần làm như sau: Tool/Options/View/nhấn vào nút " Show all" o Objects.

:bigok: :bigok: :dzo:
Tks cold nhiều. Tôi chưa bao giờ rớ vào cái này. Hic

Thân,

Lê Văn Duyệt
 
HongViet

HongViet

Cao cấp
10/11/05
286
10
18
Đà nẵng
Xin ké B. Duyệt 1 câu!

Đáng lí hỏi bên AFC, nhưng tiện thấy có trương mục này xin B. Duyệt cho ké với:
Rằng trong Office của ông B. có vài thứ đã bị virus xơi như words rồi sau đó đến anh Excel;
Vậy khi nào đến anh Access đây, hay là nó có rồi hử các Bác?!:dance2: :angel:
 
L

lehongduc

Trung cấp
29/3/05
131
1
18
64
VietNam
Tất cả các tài liệu của MS. Office đều có thể mang Virus!

HongViet nói:
Đáng lí hỏi bên AFC, nhưng tiện thấy có trương mục này xin B. Duyệt cho ké với:
Rằng trong Office của ông B. có vài thứ đã bị virus xơi như words rồi sau đó đến anh Excel;
Vậy khi nào đến anh Access đây, hay là nó có rồi hử các Bác?!:dance2: :angel:
Xin chào các Bác,
Có 1 điều khẳng định rằng: tất cả các tài liệu được tạo từ Microsoft Office đều có thể mang theo virus.
Vì sao vậy, vì tất cả các thành phần của Microsoft Office đều đã được Bác Bill Gate cho tích hợp ngôn ngữ VBA đằng sau nó. Với VBA các Bác có thể format cả 1 ổ đĩa đi mất tiêu luôn đó chứ!
Kính các Bác cẩn thận hết sức nhé.
 
H

HảiĐăng

Guest
17/10/05
99
1
0
118
Biển Khơi
www.gic.com.vn
Mình thấy sợ mấy cái VBA này quá. Nó cứ tự động chạy, chẳng hỏi han gì cả. Không lẽ khi nào cũng đặt Macro Security ở mức High.

Ps: Mời các bác xem thêm cái này nhé:

Phát hiện lỗ hổng nghiêm trọng trong MS Word

Các chuyên gia nghiên cứu bảo mật vừa mới phát hiện ra một lỗ hổng bảo mật "zero-day" nghiêm trọng trong Microsoft Word đã bị tin tặc Trung Quốc và Đài Loan khai thác.

Microsoft Security Response Center cho biết trung tâm này đã nỗ lực làm việc với các hãng bảo mật nhằm ngăn chặn các cuộc tấn công thông qua các lợi dụng khai thác lỗi bảo mật nói trên. Dự kiến bản vá lỗi sẽ được tung ra vào ngày 13/6 tới đây. Lỗi bảo mật này được khai thác thông qua một tệp tin Word "đặc biệt" được đính kèm trong các email. Nếu người sử dụng mở tệp này bằng Word XP hay Word 2003, một con trojan sẽ đột nhập lên hệ thống của họ. Con trojan này được trang bị các tính năng của rootkit nhằm tự giấu mình trước các ứng dụng bảo mật diệt virus.

Con trojan này có nhiệm vụ liên lạc với một máy chủ ở xa. Tuy nhiên, đến này các chuyên gia vẫn chưa biết là chúng chuyển đi những loại thông tin dữ liệu gì.

Hãng bảo mật F-Secure cho biết con trojan Ginwui.A đột nhập qua tệp tin Word "đặc biệt" cho phép tin tặc tạo, đọc, soạn thảo và tìm kiếm các tệp tin, thư mục, truy cập chỉnh sửa Registry, khởi động dịch vụ, khởi động hoặc huỷ bỏ các tiến trình  (VnMedia/Betanews)
 

Xem nhiều

Webketoan Zalo OA