Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Can use arrows after App.InputBox
Hi everyone. When I execute the code below, it prompts an Input box for
data entry. If I hit cancel or if I enter data into the inputbox, the arrow keys on my keyboard no longer work. If I click on a different sheet, then back to this one, it now works! Any idea why? Thanks. Sub Overwrite() Dim userid As Variant If ActiveCell.Column < 5 Or ActiveCell.Row < 5 Then MsgBox ("Active Cell must be on the User ID you wish to change") Else userid = Application.InputBox("New User ID") If userid = False Then Exit Sub Else 'Unprotect HR DB Data.Unprotect Password ActiveCell.Value = userid 'Protect HR DB Data.Unprotect Password Data.Protect Password, True, True, True, True End If End If End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Can use arrows after App.InputBox
Never mind. Focus issue. Sheet1.Select did it. Thanks anyway!
"Steph" wrote in message ... Hi everyone. When I execute the code below, it prompts an Input box for data entry. If I hit cancel or if I enter data into the inputbox, the arrow keys on my keyboard no longer work. If I click on a different sheet, then back to this one, it now works! Any idea why? Thanks. Sub Overwrite() Dim userid As Variant If ActiveCell.Column < 5 Or ActiveCell.Row < 5 Then MsgBox ("Active Cell must be on the User ID you wish to change") Else userid = Application.InputBox("New User ID") If userid = False Then Exit Sub Else 'Unprotect HR DB Data.Unprotect Password ActiveCell.Value = userid 'Protect HR DB Data.Unprotect Password Data.Protect Password, True, True, True, True End If End If End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Up & Down Arrows | Setting up and Configuration of Excel | |||
Up/down arrows | Excel Discussion (Misc queries) | |||
auditing arrows | Excel Discussion (Misc queries) | |||
Up Arrows / Down Arrows | Excel Worksheet Functions | |||
Inputbox and Application.InputBox | Excel Programming |