Prevent Unprotected Cell Status Change When Moving Cells

[Jeffrey Mahoney]

I don't think there is an answer to this.

I have an unprotected range on a protected sheet. When an end user moves the contents of cell C5 to Cell C4, C5 becomes protected.

How do I prevent C5 from becoming protected?

 

[ZVI]

Hi Jeffrey,
Put this code into ThisWorkbook module and save workbook

' Put the below code into ThisWorkbook module
Option Explicit
 
Dim Addr As String, Ws As Worksheet
 
Private Sub Workbook_Open()
  Workbook_SheetSelectionChange ActiveSheet, Selection
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  'If Not Sh Is Sheet1 Then Exit Sub  '<-- Uncomment this line for the Sheet1 only
  If Application.CutCopyMode Then Exit Sub
  If Addr <> vbNullString Then
    On Error Resume Next
    Ws.Range(Addr).Locked = False
    Addr = vbNullString
    On Error GoTo 0
  End If
  If Target.Locked = False Then
    Set Ws = Sh
    Addr = Target.Address
  End If
End Sub
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Workbook_Open
End Sub

Best Regards,
Vladimir