Hide/Unhide Column

I'm trying to hide and unhide columns using a macro. Ideally it should require a password to unhide. this is what I have so far

Sub View()
' View Macro
' Keyboard Shortcut: Ctrl+v
'
    Columns("G:N").Select
    ActiveSheet.Unprotect
    Selection.EntireColumn.Hidden = False
    Range("N6").Select
End Sub

Sub Hide()
' Hide Macro
' Keyboard Shortcut: Ctrl+h
'
    Columns("H:L").Select
    Selection.EntireColumn.Hidden = True
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False
End Sub

the view works fine but the hide hides ALL columns in the sheet. Can anyone help?

Works fine for me.

You don't need to select the columns. You can just use:

Columns("H:L").EntireColumn.Hidden = True

Regards, TMS