在很多企事業單位，處于商業機密保護的需要，常常需要禁止一些文件格式的“另存為”功能，防止通過“另存為”將文件另行保存，據為己有的目的；尤其是在局域網中訪問服務器共享文件的時候，常常需要禁止將共享文件另存為本地，防止將服務器共享文件泄露出去。尤其是對常見的Word、Excel和一些圖片格式的文件，必須有效禁止其另存為的功能，以保護文件安全。

?

那么，企事業單位如何實現禁止Word另存為、禁止圖片另存為、禁止Excel另存為呢？筆者認為，這一方面可以借助于專門的文件保護軟件，尤其是一些“共享文件夾管理軟件”、“共享文件加密軟件”等，通過將共享文件進行加密保護的方式，禁用上述文件的“另存為”功能；另一方面也可以借助一些技術方法（如宏命令或文件格式轉換）來實現。

?

一、通過宏命令禁止Word另存為、實現Excel禁止另存為、禁止圖片另存為本地磁盤

?

1、使用Word模板、微軟接口、Word插件來禁用Word另存為

?

1）建立WORD模板，在模板中寫宏代碼，重載FileSaveAs方法，在此方法里邊不要寫任何代碼，如：sub FileSaveAsend sub用代碼讓操作的WORD加載此模板。

?

此方法的前提是：宏安全性設置為中或低。

?

2）使用微軟接口，將按鈕灰掉或不可見

?

灰：設置菜單的Enabled，屬性為false

?

不可見：設置菜單的Visible，屬性為false

?

此方法缺點：在出現異常時會修改本地的normal模板，造成所有文件都不可用另存為按鈕。

?

3）制作word插件

?

類似于第一種方法，只不過是寫word插件，在插件中重載另存事件。

?

此方法和第一種方法相比，沒有宏安全性的限止。

?

三種方法，第1種最簡單；第3種最好；第2種有BUG，但也是一般人常用的方法。

?

2、Excel禁止另存為、禁用Excel另存為功能

?

在宏編輯器里的ThisWorkBook下寫入代碼：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then Cancel = True
End Sub

文件打開什么樣子，關閉時將不會有任何變化。

?

3、禁止圖片另存為

?

這種情況一般是通過將圖片轉化成flash的方式來阻止用戶將圖片另存為本地，或者即便另存為了也無法修改圖片，畢竟是動態的flash了。網上有很多專門將圖片轉化為flash的軟件，如Ailt PNG to SWF。

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的禁止word另存为,禁止图片另存为excel禁止另存为的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。