Ayuda con consulta a base de datos en access para modificar registros al pulsar un botón

Primero que nada, en las propiedades del formulario, pestaña Datos, desactivá la opción Permitir Ediciones.
Después creás un botón con el nombre CmdEdits y etiqueta (texto del botón) Desproteger Formulario. (Tanto el nombre del botón como el texto de la etiqueta son importantes, ya que se hace referencia a éstos en el código. Si modificás alguno de estos datos tendrás que hacer las modificaciones pertinentes al código). En el evento Al Hacer Clic del botón, el código te tiene que quedar así:
-------------------------------------------------------
Private Sub CmdEdits_Click()
On Error Resume Next
If AllowEdits = False Then
AllowEdits = True
Me.CmdEdits.Caption = "Proteger Formulario"
MsgBox "Se ha desactivado la Protección del Formulario, ya puede realizar modificaciones en los registros.", vbInformation, "Protección del Formulario"
Else
Beep
If MsgBox("¿Desea guardar los cambios realizados en el formulario?", vbQuestion + vbYesNo, "Protección delFormulario") = 7 Then
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Else
Form.Refresh
End If
AllowEdits = False
Me.CmdEdits.Caption = "Desproteger Formulario"
MsgBox "La Protección del formulario ha sido activada.", vbInformation, "Protección del Formulario"
End If
End Sub
-------------------------------------------------------

Lo he hecho tal y como lo dises y entiendo lo que hace el botón pues lo aplique en un formulario pero no me da resultados pues al momento de meterlo en donde lo quiero no me deja ni siquiera abrir el formulario y se traba el access