Paste and automatically lock cells

koconnell

New Member
Joined
Feb 6, 2013
Messages
12
Hi,
I am trying to write code that will allow data to be pasted into multiple cells and then have the cells that were pasted into lock.

The code I'm using works if data is entered into a single cell however when I paste to multiple cells the code returns the error "Run Time Error 13: Type Mismatch"

My code is below

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("B19:R39")) Is Nothing Then
If Target.Value <> "" Then
ActiveSheet.Unprotect Password:="pass"
Target.Locked = True
End If
End If

ActiveSheet.Protect Password:="pass"

Application.EnableEvents = True
End Sub
Thanks in advance.
 

Some videos you may like

Excel Facts

VLOOKUP to Left?
Use =VLOOKUP(A2,CHOOSE({1,2},$Z$1:$Z$99,$Y$1:$Y$99),2,False) to lookup Y values to left of Z values.

Watch MrExcel Video

Forum statistics

Threads
1,095,172
Messages
5,442,819
Members
405,198
Latest member
Florence Thomas

This Week's Hot Topics

  • Copy entire row if CountA <>0 to another sheet
    [B]I want to copy entire row if CountA <>0 for column J7:AM7 (headers on J6:AM6) and so on till the last used cell is column D and paste the...
  • Select last used Row in Table
    I have created a Table in a Worksheet which is locked to prevent user errors and protect formula. Some of the cells require freetext entries which...
  • excel workbook: do not allow certain file name
    Hello all, Don't think this has ever been asked before, but how do I restrict file save [Before_Save Event] if the name of the file being saved...
  • fixing problem autofilter
    hello i need help about my code when i search by code in textbox it doesn't show anything this is my data [ATTACH type="full"...
  • “Weight”
    Hi, i’ve got a long sheet filled with weights such as kg,g,L & ml. i can build a formula to convert kg into g and liter into ml. How ever, my...
  • How to capitalize everything before a certain character?
    In column A, I have some text: Hello good day.mp3 Hello good day.flac etc. I'd like to capitalize everything before the period. I don't need the...
Top