Excel工作表保護可以對表格格式和數據進行很好的保護，防止其它人對工作表修改，是表保護的一個 重要方法。
下面介紹一下給所有表一次加密的方法。
Excel工作表加密編制一個簡單的窗體，插入文本框，用來輸入密碼。按鈕對象"設置保護"調用一個函數功能，依次對表進行加密操作。
setProtect()'對當前活動工作薄内所有表進行遍曆，并加密。
Sub setProtect() '設置所有表保護
On Error Resume Next
Dim sheetPW As String
sheetPW = VBA.UCase(VBA.Trim(Me.TextBox1.Value))
If VBA.Len(sheetPW) = 0 Then MsgBox "江覓提示您：密碼不能為空值！": Exit Sub
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.ProtectContents = False Then '判斷是否保護
ws.Activate
ActiveSheet.Protect Password:=sheetPW
End If
Next ws
If VBA.Err.Number <> 0 Then MsgBox "密碼錯誤，請重新輸入！", vbInformation, "錯誤提示": Exit Sub
MsgBox "表保護成功！", vbOKOnly, "成功！江覓.頭條"
End Sub
江覓頭條，将不斷介紹 Excel vba 編程思想，函數功能，提供各種應用系統，方案解決等内容。
點擊下方“了解更多”真的有很多...
,更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
