保護工作表時加設的密碼,在vba中如何取得及驗證

[u110686]

有關保護工作表及密碼的問題請幫忙,謝謝!
1.保護工作表時加設的密碼,在巨集中如何取得?
2.如何在vba中以已知的密碼來取消保護及保護工作表?
3.如何驗證使用者輸入的密碼?

[leonchou]

1.保護工作表時加設的密碼,在巨集中如何取得??

如果巨集能輕易取得密碼，那密碼就不叫密碼了。
為何人們處心積慮要找破解密碼的軟體?
為何駭客絞盡腦汁寫一大堆破解的軟體?
如果你純粹討論技術，沒有那麼簡單啦。
如果你要破解的東東，也不會來這問吧。

2.如何在vba中以已知的密碼來取消保護及保護工作表?

Sheet(1).Protect "12345" '保護
Sheet(1).UnProtect "12345" '取消保護

3.如何驗證使用者輸入的密碼?

以下是呼叫內建 "保護/取消保護工作表" 的對話框來檢查密碼 --

Sub sheet_protection()
On Error GoTo 1 '稍後出錯時表示密碼錯誤,跳至最後一行顯示錯誤訊息
Sheets("Sheet1").Select '要檢查的工作表
Application.Dialogs(xlDialogProtectDocument).Show '呼叫內建對話框
Exit Sub
1 MsgBox Err.Description, 16
End Sub

Sheet1 工作表模組 --

Private Sub Worksheet_Deactivate() '離開此工作表時
If Not Me.ProtectContents Then _
　　Me.Protect "12345" '保護此工作表
End Sub

[u110686]

原來這樣寫
Sheet(1).Protect "12345" '保護
Sheet(1).UnProtect "12345" '取消保護
就可以在程式中自定密碼來保護級取消保護,感謝leonchou大大悉心指導真是受益匪淺,剩下印表機設定問題海望大大幫忙解決,感恩不盡!