I can not figure out why I get a Compile Error (Expected Function or
Variable). It stops at : Module Protection.unprotect_all_sheets. If I
run the module on its own it works fine.


Private Sub CommandButton1_Click()

On Error GoTo Error

'ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite
Worksheets("January").Protect Password:="popcorn"


If TextBox1.Text = "popcorn" Then
Module Protection.unprotect_all_sheets
End If

If TextBox1.Text < "popcorn" Then
Unload UserFormPassword
MsgBox "Invalid password - you cannot access this"

ThisWorkbook.Close False

Exit Sub

Else

Unload UserFormPassword

End If

Worksheets("January").Protect Password:=""

GoTo LastLine

Error:

ThisWorkbook.Close False

LastLine:

End Sub

If you're trying to run the unprotect_all_sheets procedure in the Protection
module:

Call Protection.unprotect_all_sheets
or
Protection.unprotect_all_sheets

If you don't have procedures with the same name, you could do:
Call unprotect_all_sheets
or
unprotect_all_sheets

(The module name isn't always necessary.)

Patrick Simonds wrote:

I can not figure out why I get a Compile Error (Expected Function or
Variable). It stops at : Module Protection.unprotect_all_sheets. If I
run the module on its own it works fine.

Private Sub CommandButton1_Click()

On Error GoTo Error

'ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite
Worksheets("January").Protect Password:="popcorn"

If TextBox1.Text = "popcorn" Then
Module Protection.unprotect_all_sheets
End If

If TextBox1.Text < "popcorn" Then
Unload UserFormPassword
MsgBox "Invalid password - you cannot access this"

ThisWorkbook.Close False

Exit Sub

Else

Unload UserFormPassword

End If

Worksheets("January").Protect Password:=""

GoTo LastLine

Error:

ThisWorkbook.Close False

LastLine:

End Sub

--

Dave Peterson