今宵月は何処を照らすの

進入表單時，是鎖住不可編輯的狀態

要按下編輯鈕後才可以在 可編輯/不可編輯 二項中做切換


=================================================================

Private Sub 編輯鈕_Click()

End Sub

將上述程式碼修改為下列程式碼 (點選編輯鈕後，編輯鈕字體變為紅色，即可編輯表單內容，若字體變為黑色，則不可編輯)

Private Sub 編輯鈕_Click()
On Error Resume Next
If 編輯鈕.ForeColor = 0 Then
編輯鈕.ForeColor = 255
Me.AllowEdits = True
Me.AllowDeletions = True
Else
編輯鈕.ForeColor = 0
Me.AllowEdits = False
Me.AllowDeletions = False
End If
End Sub

並在空白處再貼上下列程式碼 (預設表單被開啟時，為不可編輯的狀態，按鈕上的字體為黑色)

Private Sub Form_Current()
編輯鈕.ForeColor = 0
Me.AllowEdits = False
Me.AllowDeletions = False
End Sub



來源：Yahoo奇摩知識+
=================================================================

最後一段的，我用在From_current中沒有效果
放在Load時才有效果
但在切換至可編輯後，就鎖不回去了