返回列表 上一主題 發帖

[發問] 如何將增益集的項目完全移除掉?

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2015-11-9 09:23 | 顯示全部帖子
本帖最後由 GBKEE 於 2015-11-9 09:26 編輯

回復 1# PKKO


   
program這個增益集,透過VBA的方式從清單內刪除,而不是取消打勾而已

須將program這檔案移開 增益集的資料夾
或 將program這檔案 刪除
2003增益集的資料夾
  1. C:\Program Files\Microsoft Office\OFFICE11\Library\
複製代碼
  1. Sub Ex()
  2.     Dim ad As AddIn
  3.     For Each ad In Application.AddIns
  4.         MsgBox ad.Path '增益集的資料夾
  5.     Next
  6. End Sub
複製代碼
如何移動檔案 請用 vba  的 FileSystemObject 物件
可自行練習
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2015-11-9 14:33 | 顯示全部帖子
本帖最後由 GBKEE 於 2015-11-9 14:34 編輯

回復 3# PKKO

2003增益集清單存放的資料夾
  1. C:\Program Files\Microsoft Office\OFFICE11\Library
  2. C:\Program Files\Microsoft Office\OFFICE11\Library\SOLVER
  3. C:\Program Files\Microsoft Office\OFFICE11\LIBRARY\ANALYSIS
複製代碼
你的自訂增益集 需存放 在這些資料夾中.移除或刪除不要的自訂增益集.
請重啟excel 增益集的清單中 ,消除了不要的自訂增益集.
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2015-11-9 19:47 | 顯示全部帖子
本帖最後由 GBKEE 於 2015-11-10 06:54 編輯

回復 5# PKKO
2003增益集
檔案另存新檔(檔案類型 addin)的資料夾
  1. C:\Documents and Settings\使用者(你電腦上的名稱)\Application Data\Microsoft\AddIns
複製代碼
2003 Excel 程式指定的資料夾
  1. C:\Program Files\Microsoft Office\OFFICE11\Library
  2. C:\Program Files\Microsoft Office\OFFICE11\Library\SOLVER
  3. C:\Program Files\Microsoft Office\OFFICE11\LIBRARY\ANALYSIS
複製代碼
program你的增益集  須存在上面的任一資料夾.中
執行程式後,再開啟Excel, program你的增益集已不在增益集的選單中
  1. Option Explicit
  2. Sub Ex()
  3.     Dim A As AddIn
  4.     For Each A In Application.AddIns
  5.       If LCase(A.Title) Like "*program*" Then
  6.         A.Installed = False   '取消 勾選
  7.         Kill A.FullName  '刪除這檔案
  8.       End If
  9.     Next
  10.     ThisWorkbook.Save
  11.     Application.Quit
  12. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題