Prevent Unprotected Cell Status Change When Moving Cells

Jeffrey Mahoney

Well-known Member
Joined
May 31, 2015
Messages
1,714
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?
 

Some videos you may like

Excel Facts

How to show all formulas in Excel?
Press Ctrl+` to show all formulas. Press it again to toggle back to numbers. The grave accent is often under the tilde on US keyboards.

ZVI

MrExcel MVP
Joined
Apr 9, 2008
Messages
3,658
Hi Jeffrey,
Put this code into ThisWorkbook module and save workbook
Rich (BB code):
' 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
 
Last edited:

Watch MrExcel Video

Forum statistics

Threads
1,098,880
Messages
5,465,238
Members
406,419
Latest member
ldp124

This Week's Hot Topics

Top