TWed2k - 軟體求助討論區 - [求助]有很多個excel活頁薄要加保護密碼，有程式可以處理嗎？

主題: [求助] [求助]有很多個excel活頁薄要加保護密碼，有程式可以處理嗎？ [打印本頁]

發表人: ilovegigi 時間: 2011-11-29 05:30 PM 主題: [求助]有很多個excel活頁薄要加保護密碼，有程式可以處理嗎？

最近公司不知道是哪條筋歪掉（好像從沒正過），說要保護會員個資，所以要我們把上千份的excel檔案給加上保護密碼，沒保護密碼就不能開啟的加密，不知道有沒有人對這方面熟悉的，看有沒有什麼軟體可以提供批次加保護密碼的功能，還是office 2010裡面有這功能的，告訴一下小弟吧，麻煩大家幫幫小弟…

一個一個鎖，很麻煩也很花時間…

發表人: 陽だまり 時間: 2011-11-29 06:26 PM

http://forum.twbts.com/viewthread.php?tid=51
這個試試?

發表人: ilovegigi 時間: 2011-11-29 07:31 PM

引用:

陽だまり寫到:

http://forum.twbts.com/viewthread.php?tid=51
這個試試?

裡面好像是有提供人家寫好的巨集，但是取限不足不能下載…

發表人: boxturtle 時間: 2011-11-29 08:35 PM

既然都要設密碼了，那密碼總不能都設成一樣的吧，可以把球踢回去看看。

發表人: froce 時間: 2011-11-29 08:51 PM

隨便找個資料加密軟體都比office的密碼功能安全吧...
有資料夾加密的軟體多的是...

發表人: ilovegigi 時間: 2011-11-29 10:18 PM

引用:

boxturtle寫到:

既然都要設密碼了，那密碼總不能都設成一樣的吧，可以把球踢回去看看。

其實現在就是要設成一樣的耶

發表人: ilovegigi 時間: 2011-11-29 10:20 PM

引用:

froce寫到:

隨便找個資料加密軟體都比office的密碼功能安全吧...
有資料夾加密的軟體多的是...

就是因為有些軟體不能安裝使用，所以才會頭痛，MIS說權限很麻煩什麼什麼的，所以沒設什麼權限可以安裝那些加密軟體

發表人: mmcatdog 時間: 2011-11-30 12:33 AM

這部分不是你公司有問題而是為了避免資安法規的罰則問題
資料夾加密的軟體不見得比較安全 (大部分根本不叫加密叫隱蔽還比較似當了解的一聽就知道破解法)
試試看要求公司建立資料庫統合管理比較確實單純XLS都沒有一定的安全(本身都會壞)
轉SQL ACCESS 都可以反正符合資安條文就好

發表人: LiuRambo 時間: 2011-11-30 10:10 AM

請說明EXCEL版本(記得PM我)
寫個VFP小程式也許就能達成

我測試了一下EXCEL保護功能
可是很奇怪喔
這只能保護"不被修改"，而不是禁止打開EXCEL查看喔
這真的是你老闆要的???

http://www.megaupload.com/?d=BH4MBGIP

CODE:

[Copy to clipboard]

TWED2KONLY

[LiuRambo 在 2011-11-30 05:24 PM 作了最後編輯]

發表人: froce 時間: 2011-11-30 11:57 PM

引用:

mmcatdog寫到:

這部分不是你公司有問題而是為了避免資安法規的罰則問題
資料夾加密的軟體不見得比較安全 (大部分根本不叫加密叫隱蔽還比較似當了解的一聽就知道破解法)

這當然要找一下符合的啊...也是有真的用金鑰去做加密的軟體啦...

引用:

試試看要求公司建立資料庫統合管理比較確實單純XLS都沒有一定的安全(本身都會壞)
轉SQL ACCESS 都可以反正符合資安條文就好

我公司最近就行文要徹查人員的權限...
本來大家都有的權限...現在一個部門除了主管只有兩個人能有...
喵的...人資部門沒查閱人員資料的權限要怎麼做事啦...

發表人: ags 時間: 2011-12-1 01:12 PM

公司很大嗎?不大的話就用專用電腦，個資放在裡面，沒有對外的連線，鍵盤連主機鎖在大鐵櫃裡，比啥鬼密碼好用多了

發表人: ROACH 時間: 2011-12-1 09:52 PM

引用:

froce寫到:

當資訊人的悲哀

我身為一個程式設計師..我們在正式環境沒有修改的權限、部分程式連讀取也沒權限＠＠
沒權限遇到程式問題怎辦～～
使用者一直喊說～存檔或修改的時候出現程式錯誤
我們自己沒權限所以不了解

我們只能遠端連線透過使用者的電腦去看問題
一看問題就要查很久...佔用人家的時間也不好
人家的帳號當然也沒有開發人員除錯的權限
這樣很怪
又要程式設計師查問題
站在稽核角度有些東西又不可以給人家看到
變成滿矛盾的＠＠閉著眼睛解決問題嗎？

好撇開上面的閒言閒語
有些公司滿善用『網路磁碟的安全性控管的功能』搭配AD帳號
針對這些檔案可以按右鍵來做安全性控管看哪些帳號『可讀』或『可寫』～那不就得的？？
會針對目錄來開放『可以列出資料夾內容』然後把可讀可寫權限拿掉也可以

[ROACH 在 2011-12-1 09:57 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=BH4MBGIP

CODE:

[Copy to clipboard]

TWED2KONLY

[LiuRambo 在 2011-11-30 05:24 PM 作了最後編輯]

感謝LiuRambo大的幫忙，這個的話還是會被「看到」，所以目前還是以「不給密碼就不給看」的方式來做，您這個VFP檔我還是收下了，以後也許會用到，謝謝你喔

引用:

ags寫到:

公司很大嗎?不大的話就用專用電腦，個資放在裡面，沒有對外的連線，鍵盤連主機鎖在大鐵櫃裡，比啥鬼密碼好用多了

總公司不大不小，我們只是一個小小的CALL CENTER，專用電腦是有，但不見得這裡的MIS會設定啊…

引用:

ROACH寫到:

引用:

froce寫到:

是有提供過用ROACH大的方法給MIS的主管，但是可能是小弟位階太低，說的話不是話，所以還是沒採用（攤手）

發表人: 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 作了最後編輯]

發表人: 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 作了最後編輯]

歡迎光臨 TWed2k (http://twed2k.org/)