Unhide/ hide rows with password

You could set a password for your sheet then lock it once complete...

Try this:

Private Sub CommandButton1_Click()
Dim pswrd As String
pswrd = "Change this to your password"
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Password = InputBox("A password is required to run this procedure." & vbCrLf & _
    "Please enter the password:", "Password")
    If Password <> "hs" Then
           MsgBox ("Wrong Password")
    Else
ActiveSheet.Unprotect pswrd
Columns("A:E").EntireColumn.Hidden = True = Not _
Columns("A:E").EntireColumn.Hidden = True
ActiveSheet.Protect pswrd
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Untested