Macro to protect/unprotect sheet and book

[mrMadCat]

Hello, I'm trying to run quite a simple macro but it doesn't work and says "object not defined".

The macro is run when the ToggleButton is pressed. So:
Sheet1:

Private Sub ToggleButton1_Click()    Protect_and_Structure
End Sub

Module1

Sub Protect_and_Structure(wsSh As Worksheet)    Dim wsSh As Object
    For Each wsSh In Me.Worksheets
        If Me.ToggleButton1.Value = True Then
            wsSh.Unprotect "PASS"
            wsSh.EnableOutlining = True
            wsSh.Protect Password:="PASS", Contents:=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True, UserinterfaceOnly:=True
        Else
            wsSh.Unprotect
    Next wsSh
'    ActiveWorkbook.Unprotect
    End If
End Sub

What I do wrong?

I also have a problem with "ActiveWorkbook.Unprotect" not asking for the password the way wsSh.Unprotect does. The only way is to manually create input box and all the error checks?

 

[RoryA]

The declaration line should read:

Sub Protect_and_Structure()

and not:

Sub Protect_and_Structure(wsSh As Worksheet)

 

[mrMadCat]

Now I have another error: Invalid use of Me statement.

I've changed module1 to following but it still doesn't work saying "Next without For" error:

Sub Protect_and_Structure()
     Dim wsSh As Object
    For Each wsSh In ActiveWorkbook.Worksheets
        If ToggleButton1.Value = True Then
            wsSh.Unprotect "PASS"
            wsSh.EnableOutlining = True
            wsSh.Protect Password:="PASS", Contents:=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True, UserinterfaceOnly:=True
        Else
            wsSh.Unprotect
    Next wsSh
'    ActiveWorkbook.Unprotect
    End If
End Sub

 

[RoryA]

Your End If needs to come before the Next wsSh line, and you should specify where ToggleButton1 is:

Sub Protect_and_Structure()
     Dim wsSh As Object
    For Each wsSh In ActiveWorkbook.Worksheets
        If ActiveSheet.ToggleButton1.Value = True Then
            wsSh.Unprotect "PASS"
            wsSh.EnableOutlining = True
            wsSh.Protect Password:="PASS", Contents:=True, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True, UserinterfaceOnly:=True
        Else
            wsSh.Unprotect
        End If
    Next wsSh
'    ActiveWorkbook.Unprotect

End Sub