Lock Scrolling of Columns

[Farah]

Hello,

Can we lock / disable column width scrolling through VBA ?

Warm Regards,
Farah

 

[Scott Huish]

Is this what you mean?

Worksheets("Sheet1").ScrollArea = "A:N"

Set it to empty string to reset it:
Worksheets("Sheet1").ScrollArea = ""

 

[Farah]

hello,

not exactly that, i want that after i hide my column through VB (Entirecolumn.hidden = true), users should not be able to change the width of the certain columns which are hidden. So i wanted that the scrolling of width of certain columns can somehow be disabled.

Warm Regards,
Farah

 

[erik.van.geit]

searching for "Warm Regards" I found my way to this "old" unsolved post

you can restrict the selection to only visible cells using this

Option Explicit

Dim flag As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range

If flag = True Then Exit Sub
flag = True
Set rng = Intersect(Target, Cells.SpecialCells(xlCellTypeVisible))
If Not rng Is Nothing Then rng.Select
flag = False
End Sub

hide column F
select column EFG
try to change the width
F will remain invisible

if you don't have buttons to restore the column
type F1 in the namebox
menu format / column / unhide

of course protecting the sheet would disable columnwidthchanges

warm regards,
Erik

 

[Farah]

This is Exactly what i was looking for.
Thanks Erik,

Warm Regards,
Farah

 

[erik.van.geit]

You're welcome !!
it's nice to respond now you've displayed your avatar

God bless you!
Erik