how i inactive all cells in a active sheet using VBA

[dearmoawiz]

hi guys
hows you all. i have query i want to create an application in EXCEL VBA in which i want to inactive all cells and only one cell will be selected on active sheet all other cells will be inactive.
so is there any one who guide me in this matter
thanxx in advance
waiting for response.

 

[RoryA]

activesheet.Range("A1").Select

adjusting the range as required.
HTH

 

[dearmoawiz]

this will select a cell but if user click on any other cell then that cell will also be selected but i want that only selected cell will be active during whole whole sheet. User will not be able to select any other cell.
did u got my point HTH?

wiz

 

[VoG]

Right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Activate()
Me.ScrollArea = "A1"
End Sub

 

[RoryA]

You can select the cell you want unlocked, choose Format-Cells from the menu, and on the Protection tab uncheck the Locked option. Then protect the worksheet using Tools-Protect sheet and make sure the Select Locked cells option is unchecked.

PS. 'HTH' stands for 'Hope That Helps' - it's not my name.

 

[Jonmo1]

rorya...I don't think the OP's name is PS...

 

[dearmoawiz]

Thnxx Buddy that is what i want

 

[RoryA]

it's probably not OP either...

 

[keithmct]

Is anyone still available on this one? This is exactly what I want to do as well, but I have a date picker calendar in a cell with this code:

Private Sub Calendar1_DbleClick()
    ActiveCell.NumberFormat = "dd/mm/yyyy" (this line is yellow highlighted)
    ActiveCell = Calendar1
    Calendar1.Visible = False
End Sub

and I get a Run-time error '1004'
Unable to set the NumberFormat property of the Range class