Disable 'Cut' function from worksheet only

[mizogy]

Hi All

I am trying to find a solution to stop users from cutting and pasting values on a particular worksheet. This to avoid (hidden and protected) formula on the same worksheet from becoming corrupted. I still, however, want to provide the user the ability to copy and paste values.

I used the following code, however it removes the ability to copy and paste values from one cell to another.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Simply, I want to avoid the ability to cut. Nor, do I want to use code which disables the cut function from their menu for all workbooks / worksheets.

Any ideas - thank you for your help in advance?

 

[Legacy 143009]

Very easy, btw, you don't need any macro for this.. Select and right click to cells you want to protect. Choose Format Cell from context menu. Go to Protection tab. Check both Locked and Hİdden options.

On the contrary, remove these checks from all other cells where you want the values to be copied and pasted.

Finally, right click to sheetname. Choose Protect Sheet. A menu will appear with several options. Leave first two options as checked and set your password.

Ta taa...

 

[mizogy]

Very easy, btw, you don't need any macro for this.. Select and right click to cells you want to protect. Choose Format Cell from context menu. Go to Protection tab. Check both Locked and Hİdden options.

On the contrary, remove these checks from all other cells where you want the values to be copied and pasted.

Finally, right click to sheetname. Choose Protect Sheet. A menu will appear with several options. Leave first two options as checked and set your password.

Ta taa...

Thanks for your response. The issue is not protecting the cells. I want the user to be able to change the value in the cell, either through input or copying values from other cells, for that reason the cell is unlocked. However, I want to avoid the unlocked cell's value being cut and pasted to a corresponding cell. The reason being, formula linking to cell (that formula being hidden and protected) then becomes corrupted by the cell value being cut and pasted to a cell above or below. Best, Mizogy.

 

[Legacy 143009]

Unfortunately, there is no global solution. Word "Kes" means "Cut" in my language. You have to modify it according to language of the excel being used.

Private Sub Workbook_Open()
 Call DisableCut
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 Call EnableCut
End Sub

Sub DisableCut()
 With Application
  .CommandBars("Cell").Enabled = False
  .CommandBars("Standard").Controls.Item("Kes").Enabled = False
  .CommandBars("Edit").Controls.Item("Kes").Enabled = False
  .OnKey "^x", "CutDisabled"
  .OnKey ("{Delete}"), "CutDisabled"
  .CellDragAndDrop = False
 End With
End Sub


Sub EnableCut()
 With Application
  .CommandBars("Edit").Controls.Item("Cut").Enabled = True
  .CommandBars("Standard").Controls.Item("Cut").Enabled = True
  .CommandBars("Cell").Enabled = True
  .OnKey "^x"
  .OnKey "{Delete}"
  .CellDragAndDrop = True
 End With
End Sub

Sub CutDisabled()
 Application.CutCopyMode = False
 MsgBox ("Cut Disabled")
End Sub