dennischerry
|
發表於 2012-1-5 08:52 AM |
把您錄的巨集改一下, 就可以用了!!
Sub Trans()
Me.File1.Path = "您的資料夾路徑"
Me.File1.Pattern = ".xls"
Me.File1.Refresh
For I=0 to Me.File1.ListCount-1
AddPassword(Me.File1.Path & "\ " & Me.File1.List(I))
Next I
End Sub
Sub AddPassword(byval Pathfile as string)
Workbooks.Open Filename:=Pathfile
ActiveWorkbook.SaveAs Filename:=Pathfile , _
FileFormat:=xlNormal, Password:="1234", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
End Sub
[dennischerry 在 2012-1-5 09:02 AM 作了最後編輯]
| |
ROACH
|
發表於 2011-12-4 02:50 PM |
我不懂巨集
我只知道用巨集去錄製我想要的東西
剛用2003去錄的一下加密開啟的巨集
原來要設定這加密功能是存檔的選項上
所以這幾段可以把1.xls自動開啟後加入密碼後自動關閉
Pathfile 這個字串～或許可以跑回圈『把該目錄的Excel用迴圈全部讀進來～可以找找看相關資訊
Pathfile = "C:\excelTest\1.xls"
Workbooks.Open Filename:=Pathfile
ActiveWorkbook.SaveAs Filename:=Pathfile , _
FileFormat:=xlNormal, Password:="1234", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
[ROACH 在 2011-12-4 08:41 PM 作了最後編輯]
| |
ilovegigi
|
發表於 2011-12-3 01:50 AM |
抱歉，最近因為放假的關係，我把這事都忘了XDDDD
引用: mmcatdog寫到: 
這部分不是你公司有問題 而是為了避免資安法規的罰則問題
資料夾加密的軟體 不見得比較安全 (大部分根本不叫加密 叫隱蔽還比較似當 了解的一聽就知道破解法)
試試看要求公司 建立資料庫統合管理比較確實 單純XLS都沒有一定的安全(本身都會壞)
轉SQL ACCESS 都可以 反正符合資安條文就好
其實就目前來講，公司提供的資源很有限，內部作業都是用EXCEL，連查詢系統還是我們員工自己寫的ASP+SQL，所以目前只是先找一個可以讓香港總公司查核可以過關的方法而已…
引用: LiuRambo寫到:
請說明EXCEL版本(記得PM我)
寫個VFP小程式也許就能達成
我測試了一下EXCEL保護功能
可是很奇怪喔
這只能保護"不被修改"，而不是禁止打開EXCEL查看喔
這真的是你老闆要的???
http://www.megaupload.com/?d=BH4MBGIPTWED2KONLY [LiuRambo 在 2011-11-30 05:24 PM 作了最後編輯]
感謝LiuRambo大的幫忙，這個的話還是會被「看到」，所以目前還是以「不給密碼就不給看」的方式來做，您這個VFP檔我還是收下了，以後也許會用到，謝謝你喔
引用: ags寫到:
公司很大嗎?不大的話就用專用電腦，個資放在裡面，沒有對外的連線，鍵盤連主機鎖在大鐵櫃裡，比啥鬼密碼好用多了
總公司不大不小，我們只是一個小小的CALL CENTER，專用電腦是有，但不見得這裡的MIS會設定啊…
引用: ROACH寫到:
引用: froce寫到:
我公司最近就行文要徹查人員的權限...
本來大家都有的權限...現在一個部門除了主管只有兩個人能有...
喵的...人資部門沒查閱人員資料的權限要怎麼做事啦...
當資訊人的悲哀
我身為一個程式設計師..我們在正式環境沒有修改的權限、部分程式連讀取也沒權限＠＠
沒權限遇到程式問題怎辦～～
使用者一直喊說～存檔或修改的時候出現程式錯誤
我們自己沒權限所以不了解
我們只能遠端連線透過使用者的電腦去看問題
一看問題就要查很久...佔用人家的時間也不好
人家的帳號當然也沒有開發人員除錯的權限
這樣很怪
又要程式設計師查問題
站在稽核角度有些東西又不可以給人家看到
變成滿矛盾的＠＠閉著眼睛解決問題嗎？
好撇開上面的閒言閒語
有些公司滿善用『網路磁碟的安全性控管的功能』搭配AD帳號
針對這些檔案可以按右鍵來做安全性控管看哪些帳號『可讀』或『可寫』～那不就得的？？
會針對目錄來開放『可以列出資料夾內容』然後把可讀可寫權限拿掉也可以
[ROACH 在 2011-12-1 09:57 PM 作了最後編輯]
是有提供過用ROACH大的方法給MIS的主管，但是可能是小弟位階太低，說的話不是話，所以還是沒採用（攤手）
| |
ROACH
|
發表於 2011-12-1 09:52 PM |
引用: froce寫到:
我公司最近就行文要徹查人員的權限...
本來大家都有的權限...現在一個部門除了主管只有兩個人能有...
喵的...人資部門沒查閱人員資料的權限要怎麼做事啦...
當資訊人的悲哀
我身為一個程式設計師..我們在正式環境沒有修改的權限、部分程式連讀取也沒權限＠＠
沒權限遇到程式問題怎辦～～
使用者一直喊說～存檔或修改的時候出現程式錯誤
我們自己沒權限所以不了解
我們只能遠端連線透過使用者的電腦去看問題
一看問題就要查很久...佔用人家的時間也不好
人家的帳號當然也沒有開發人員除錯的權限
這樣很怪
又要程式設計師查問題
站在稽核角度有些東西又不可以給人家看到
變成滿矛盾的＠＠閉著眼睛解決問題嗎？
好撇開上面的閒言閒語
有些公司滿善用『網路磁碟的安全性控管的功能』搭配AD帳號
針對這些檔案可以按右鍵來做安全性控管看哪些帳號『可讀』或『可寫』～那不就得的？？
會針對目錄來開放『可以列出資料夾內容』然後把可讀可寫權限拿掉也可以
[ROACH 在 2011-12-1 09:57 PM 作了最後編輯]
| |
ags
|
發表於 2011-12-1 01:12 PM |
公司很大嗎?不大的話就用專用電腦，個資放在裡面，沒有對外的連線，鍵盤連主機鎖在大鐵櫃裡，比啥鬼密碼好用多了
| |
froce
|
發表於 2011-11-30 11:57 PM |
引用: mmcatdog寫到:
這部分不是你公司有問題 而是為了避免資安法規的罰則問題
資料夾加密的軟體 不見得比較安全 (大部分根本不叫加密 叫隱蔽還比較似當 了解的一聽就知道破解法)
這當然要找一下符合的啊...也是有真的用金鑰去做加密的軟體啦...
引用:
試試看要求公司 建立資料庫統合管理比較確實 單純XLS都沒有一定的安全(本身都會壞)
轉SQL ACCESS 都可以 反正符合資安條文就好
我公司最近就行文要徹查人員的權限...
本來大家都有的權限...現在一個部門除了主管只有兩個人能有...
喵的...人資部門沒查閱人員資料的權限要怎麼做事啦...
| |
LiuRambo
|
發表於 2011-11-30 10:10 AM |
|
|
mmcatdog
|
發表於 2011-11-30 12:33 AM |
這部分不是你公司有問題 而是為了避免資安法規的罰則問題
資料夾加密的軟體 不見得比較安全 (大部分根本不叫加密 叫隱蔽還比較似當 了解的一聽就知道破解法)
試試看要求公司 建立資料庫統合管理比較確實 單純XLS都沒有一定的安全(本身都會壞)
轉SQL ACCESS 都可以 反正符合資安條文就好
| |
ilovegigi
|
發表於 2011-11-29 10:20 PM |
引用: froce寫到:
隨便找個資料加密軟體都比office的密碼功能安全吧...
有資料夾加密的軟體多的是...
就是因為有些軟體不能安裝使用，所以才會頭痛，MIS說權限很麻煩什麼什麼的，所以沒設什麼權限可以安裝那些加密軟體
| |
ilovegigi
|
發表於 2011-11-29 10:18 PM |
引用: boxturtle寫到:
既然都要設密碼了，那密碼總不能都設成一樣的吧，可以把球踢回去看看。
其實現在就是要設成一樣的耶
| |
| 本主題回覆較多，請 點擊這裡 檢閱。 |
