Msgbox And Input Box To Hide Columns

I have sheet with Oval button and when I pressed the Oval button input box appears and ask for password and I made msgbox if the password is wrong and I made loop 4 times to enter the password then after for trials will exit the inputbox ,But I have 2 problem with my code below

1st problem : when i press the cancel button before I insert any character in Inputbox the msgbox appears which its say the password is wrong

2nd problem : when i press the cancel button before I insert any character in Inputbox the column which the Oval Button exist on it disappear.

Code:

Sub Hide_Sal_Table()
Const pass As String = "123"
Dim Inp
Dim Retry
Dim lTries As Long
Inp = InputBox("please enter the password", "Zmhnk", vbOKCancel + vbQuestion)
Application.ScreenUpdating = False

[Code] ........