經常有網友問，用Access把軟件開發好了，怎么樣設置VBA代碼的密碼？以保護自己的代碼不被同事修改。
這里簡單整理了一下。
設置VBA代碼的密碼及取消VBA代碼的密碼步驟如下:
1.打開任意一個窗體，進入設計視圖，按工具欄“查看代碼”按鈕，如下圖:
2.進入代碼區再點工具欄“工具”按鈕→“屬性”，如下圖:
3.點“保護”選項，將“查看時鎖定工程”按鈕打鈎→在“查看工程屬性的密碼”設置你需要的密碼，或者是不需要密碼就把原有的密碼刪除即可，如下圖:
設置代碼如下：
Dim a As String
a = InputBox("請輸入密碼", "提示信息")
If a = "設置的密碼" Then
Else
MsgBox "密碼不正確，請重試！", vbInformation, "提示"
Call btnClose_Click
Cancel = True
Exit Sub
End If
將以上代碼放置在主窗體的打開事件中即可.
進入【用戶登錄】窗體，輸入用戶名和密碼，點“登錄”按鈕。核對【用戶信息】表里用戶名和密碼，若都正確則打開下一個【用戶界面】窗口。
Private Sub 登錄按鈕_Enter()
'驗證用戶和密碼,登錄系統
If DCount("[用戶名]", "用戶信息", "[用戶名]='" & Text0 & "'") = 0 Then
MsgBox "請輸入正確的用戶名！"
ElseIf DCount("[用戶密碼]", "用戶信息", "[用戶密碼]='" & Text2 & "'") = 0 Then
'Text1為用戶名輸入框
MsgBox "請輸入正確的用戶密碼！"
ElseIf Nz([Text2]) = Nz(DLookup("[用戶密碼]", "用戶信息", "[用戶密碼]='" & Text2 & "'")) Then
'Text2為密碼輸入框
Me.Visible = False
'隱藏窗體
DoCmd.OpenForm "用戶界面"
'打開用戶界面窗體
Else
'密碼錯誤后的處理
MsgBox "密碼錯誤，請重輸！"
End If
End Sub