To hide and and protect sheet and specific column

To hide and  and protect sheet and column

Sub SetActive()
    Worksheets("STORE INPUT").Activate
    Worksheets("STORE INPUT").Range("U21").Activate

End Sub
 

Public Sub UnhideInput()
    Worksheets("STORE INPUT").Activate
    ActiveSheet.AutoFilterMode = False
    Columns("G:Z").EntireColumn.Hidden = False

 
End Sub

Public Sub HideInput()
    Worksheets("STORE INPUT").Activate
    ActiveSheet.AutoFilterMode = False
    Columns("G:Z").EntireColumn.Hidden = True
End Sub

Public Sub ProtectInput()
    Worksheets("STORE INPUT").Activate
    ActiveSheet.AutoFilterMode = False
    ActiveSheet.Protect Password:="CENTRUM17"
End Sub

Public Sub UnProtectInput()
    Worksheets("STORE INPUT").Activate
    ActiveSheet.AutoFilterMode = False
    ActiveSheet.Unprotect Password:="CENTRUM17"
End Sub

Public Sub GoToSWS()
 Worksheets("STORE INPUT").Activate
    Worksheets("STORE INPUT").Range("A36").Activate

End Sub



Sub Clear_All()

    Range("K13:K300").Select
    Selection.ClearContents
        Range("N13:N300").Select
    Selection.ClearContents
        Range("R13:R300").Select
    Selection.ClearContents

End Sub

Public Sub UnHideMOTRow()
  ActiveWorkbook.Sheets("MASTER ORDER TEMPLATE").Activate
  Rows("2:10").EntireRow.Hidden = False
  Rows("11:12").EntireRow.Hidden = True
 
End Sub

Public Sub HideMOTRow()
  ActiveWorkbook.Sheets("MASTER ORDER TEMPLATE").Activate
   ActiveSheet.AutoFilterMode = False
  Rows("2:10").EntireRow.Hidden = True
  Rows("11:12").EntireRow.Hidden = False
End Sub

Public Sub UnHideMOTColumn()
  ActiveWorkbook.Sheets("MASTER ORDER TEMPLATE").Activate
  ActiveSheet.AutoFilterMode = False
 Columns("W:AT").EntireColumn.Hidden = False
 
End Sub

Public Sub HideMOTColumn()
 Workbooks("CENTRUM REPLENISHMENT TEMPLATE.xlsm").Worksheets("Master Order Template").Activate
  ActiveSheet.AutoFilterMode = False
 Columns("W:AT").EntireColumn.Hidden = True
 
End Sub
Public Sub ProtectMOT()
  ActiveWorkbook.Sheets("MASTER ORDER TEMPLATE").Activate
  ActiveSheet.Protect Password:="CENTRUM17"
'  ActiveSheet.AutoFilterMode = True
End Sub
Public Sub UnProtectMOT()
  ActiveWorkbook.Sheets("MASTER ORDER TEMPLATE").Activate
 ActiveSheet.Unprotect Password:="CENTRUM17"

 
End Sub


Sub ViewMOTFiltered()
    Worksheets("MASTER ORDER TEMPLATE").Activate
    Worksheets("MASTER ORDER TEMPLATE").Range("A12").Activate
  ActiveSheet.AutoFilterMode = False
  ActiveSheet.Range("$A$12:$AP$300").AutoFilter Field:=24, Criteria1:=Array("Y", "NT"), Operator:=xlFilterValues
End Sub

Sub ViewMOT2()
    Worksheets("MASTER ORDER TEMPLATE").Activate
    Worksheets("MASTER ORDER TEMPLATE").Range("A12").Activate

End Sub