How to Disable Cut Copy Paste in Multiple Columns

[Nitesh Khot]

Hi..I have code to disable cut copy paste in single column ..but unable to disable multiple column i.e. Column - A , B , D, E,G,P,Q,R


Any one have idea how to this...

Thanks,
Nikh

 

[Chihiro]

Change If statement after "Case Is = "Sheet1"" to something like below.

Select Case Sh.Name
    Case Is = "Sheet1"
        'Disable copy and paste for anything in column A:E, G, P, Q & R
        If InRange(rng, Union(Columns("A:E"), Columns("G"), Columns("P"), Columns("Q"), Columns("R"))) Then
            Call ToggleCutCopyAndPaste(False)
        Else
            Call ToggleCutCopyAndPaste(True)
        End If

 

[vletm]

Something like this ...
without any formulas ...
really disable multi column cut copy paste ...

 

[Nitesh Khot]

Chihiro...Thanks....Working

 

[biswanath91]

but i cant paste data copied from another workbook. if I want to allow paste for F column, what changes i need to do? pls help