How to close/exit VBA Form macro if conditions are success

[gl3nnyb0y24]

How to close/exit VBA Form if conditions are success;
(unprotect all sheets with a password)

- I created a form for Inputting passwords to unprotect all sheets
- Then click the Submit button to execute the code

If the password is correct the form did close, how do I close the form if the password is correct?

Thank you!

Private Sub cmdInput_Click()

Dim ws As Worksheet
Dim pwd As String

pwd = txtPassword.Value

On Error Resume Next
For Each ws In Worksheets
ws.unprotect Password:=pwd
Next ws
If Err <> 0 Then
MsgBox "You have entered an incorrect password. Please check your password."
On Error GoTo 0

End If

End Sub

 

[Max1616]

If you're just trying to get the form to unload at the end of your code, this will do the trick:

Private Sub cmdInput_Click()

Dim ws As Worksheet
Dim pwd As String

pwd = txtPassword.Value

On Error Resume Next
For Each ws In Worksheets
ws.Unprotect Password:=pwd
Next ws
If Err <> 0 Then
MsgBox "You have entered an incorrect password. Please check your password."
On Error GoTo 0
Exit Sub

End If

Unload Me

End Sub

 

[DanteAmor]

Try this:

Private Sub cmdInput_Click()
  Dim ws As Worksheet
  Dim pwd As String
  
  pwd = txtPassword.Value
  
  On Error Resume Next
  For Each ws In Worksheets
    ws.Unprotect Password:=pwd
  Next ws
  
  If Err <> 0 Then
    MsgBox "You have entered an incorrect password. Please check your password."
    On Error GoTo 0
    txtPassword.SetFocus
    txtPassword.Value = ""    'If you want to clear textbox
  Else
    Unload Me
  End If
End Sub

 

[gl3nnyb0y24]

If you're just trying to get the form to unload at the end of your code, this will do the trick:

Private Sub cmdInput_Click()

Dim ws As Worksheet
Dim pwd As String

pwd = txtPassword.Value

On Error Resume Next
For Each ws In Worksheets
ws.Unprotect Password:=pwd
Next ws
If Err <> 0 Then
MsgBox "You have entered an incorrect password. Please check your password."
On Error GoTo 0
Exit Sub

End If

Unload Me

End Sub

Hi Max1616, thank you very much for your help.

 

[gl3nnyb0y24]

Try this:

Private Sub cmdInput_Click()
  Dim ws As Worksheet
  Dim pwd As String
 
  pwd = txtPassword.Value
 
  On Error Resume Next
  For Each ws In Worksheets
    ws.Unprotect Password:=pwd
  Next ws
 
  If Err <> 0 Then
    MsgBox "You have entered an incorrect password. Please check your password."
    On Error GoTo 0
    txtPassword.SetFocus
    txtPassword.Value = ""    'If you want to clear textbox
  Else
    Unload Me
  End If
End Sub

Hi DanteAmor, thank you very much for your help

btw, how do I add MsgBox "All sheets are now unprotected" after inputting the correct password?

 

[DanteAmor]

MsgBox "All sheets are now unprotected" after inputting the correct password?

Private Sub cmdInput_Click()
  Dim ws As Worksheet
  Dim pwd As String
  
  pwd = txtPassword.Value
  
  On Error Resume Next
  For Each ws In Worksheets
    ws.Unprotect Password:=pwd
  Next ws
  
  If Err <> 0 Then
    MsgBox "You have entered an incorrect password. Please check your password."
    On Error GoTo 0
    txtPassword.SetFocus
    txtPassword.Value = ""    'If you want to clear textbox
  Else
    MsgBox "All sheets are now unprotected"
    Unload Me
  End If
End Sub

 

[gl3nnyb0y24]

Private Sub cmdInput_Click()
  Dim ws As Worksheet
  Dim pwd As String
 
  pwd = txtPassword.Value
 
  On Error Resume Next
  For Each ws In Worksheets
    ws.Unprotect Password:=pwd
  Next ws
 
  If Err <> 0 Then
    MsgBox "You have entered an incorrect password. Please check your password."
    On Error GoTo 0
    txtPassword.SetFocus
    txtPassword.Value = ""    'If you want to clear textbox
  Else
    MsgBox "All sheets are now unprotected"
    Unload Me
  End If
End Sub

Hi DanteAmor, Again, thank you very much for your help.