P
Patrick Simonds
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
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