capture column delete

[starl]

Is there a way of capturing a delete column? According to the help, a Worksheet_Change will ignore it.. is there anything else I can try?

thanks

 

[smozgur]

Oh sorry,

Tom, my code seems like yours for deselecting when columns or rows are selected. Sorry, I noticed it right now.

Suat

 

[starl]

Wow! HI Oz

the deal is - I only want to block them from CERTAIN columns.

 

[smozgur]

ok,

This one will prevent user deleting columns 3 and 7 by selecting all column with one click.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Rows.Count = 65536 And (Target.Column = 3 Or Target.Column = 7) Then
    Application.Goto Range(Cells(Target.Row, Target.Column), Cells(Target.Row, Target.Column))
  End If
End Sub

you can add more column index into second condition part:

(Target.Column = 3 Or Target.Column = 7 Or ... Or ...)

Hope it works like you need this time.

Suat

 

[starl]

thanks oz. It's a great workaround.

 

[Legacy 98055]

I always amaze myself by overcomplicating things. By the time I was finished with this poor fellow we would have had to rename the application. Good solution Smoz.

 

[starl]

well, my mind was set on one direction, too. But, oz is right - it's not a good idea to mess w/menus....
that's why I post here - other points of view