Object variable or With block not defined

[Cunning]

I keep getting runtime error 91 Object Variable or With block not defined for the following VBA.

Private Sub CommandButton1_Click()

ActiveSheet.Unprotect Password:=TextBox1.Text

Unload Me

End Sub

How can I rectify this?

 

[Andrew Poulsom]

Is a particular line highlighted when you get that error? If not choose Tools|Options|General tab, check Break in Class Module and click OK. Is a line highlighted when you get the error now?

 

[Cunning]

It reports

ActiveSheet.Unprotect Password:=TextBox1.Text

This as the error. I'm guessing it's the TextBox1.Text variable that's not defined.

 

[Andrew Poulsom]

I can't reproduce your error. If TextBox1 doesn't exist I get an 'Object required' error not an 'Object Variable not set error'. With Option Explict at the top of the module I get a compile error if TextBox1 doesn't exist. Do you?

 

[Cunning]

Unfortunately I'm struggling to replicate the error on my machine. It's being used on a number of computers across 3 companies and one companies produces the error.

I have Option Explicit set on mine and produce no errors at all.

 

[mikerickson]

Is that code in a userform's code module or a sheet module or ...?

 

[Cunning]

It's in the sheet module linked by a userform.

 

[Andrew Poulsom]

Shouldn't it be in a UserForm module (given the use of the Me keyword after Unload)?

 

[Cunning]

Apologies,
This is in the userform and runs on OK.

The idea is that people enter the sheet specific password via a click of the button here rather than having to go through the menus to unprotect.

 

[Andrew Poulsom]

What do you mean by "runs on OK"?