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