Using a UserForm in VBA code to password protect.

Question

I have put together some code to password protect a workbook because Excel's encryption of VBA code when you password protect with Excel's built in feature causes Excel to disable my VBA code.

The problem with my UserForm, password entry form, is the X in the upper right corner of the UserForm.

By clicking on the X, one can bypass my code.

Can one eliminate the X in the upper right corner of a UserForm?

Answer 1

I wouldn't eliminate clicking the X.  It's a natural choice for the user.

But you could just run the code associated with the cancel/quit button from that

event:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    If CloseMode = vbFormControlMenu Then

        Call CommandButton2_Click 'or whatever button you're using

    End If

End Sub

peeshepme wrote:

I have put together some code to password protect a workbook because Excel's encryption of VBA code when you password protect with Excel's built in feature causes Excel to disable my VBA code.

The problem with my UserForm, password entry form, is the X in the upper right corner of the UserForm.

By clicking on the X, one can bypass my code.

Can one eliminate the X in the upper right corner of a UserForm?

--

Dave Peterson

Answer 2

Thank you.

Answer 3

Thank you.

Answer 4

Hi

Private Sub UserForm_QueryClose(Cancel As Integer, _

  CloseMode As Integer)

  If CloseMode = vbFormControlMenu Then

    Cancel = True

    MsgBox "Please use the Close Button!"

  End If

End Sub

Answer 5

Hi,

Try this which also disables ALT+F4 method of closing

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

  If CloseMode = vbFormControlMenu Then

    Cancel = True

    MsgBox "Please use the EXIT button on form!"

  End If

End Sub

---

If this post answers your question, please mark it as the Answer.

Mike H