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 編程思想，函數功能，提供各種應用系統，方案解決等内容。
點擊下方“了解更多”真的有很多...
,
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
