Toggle Macro on Button

Hi Guys,

How can I toggle this macro on a button click?

Sub Button1_ToggleforEdit()

    ActiveSheet.Unprotect
    Range("B2").Select
    ActiveSheet.ListObjects("List1").Unlist
End Sub

Thanks in advance