Macro - Help

  • Thread starter Thread starter Jaleel
  • Start date Start date
J

Jaleel

Hi,

I don't know whether it is possible. Still I am asking the experts. My
requirement is this.

In a blank worksheet, if anything is typed in a cell, it must become like
protected. Means it cannot be deleted or edited or retyped. This is
required for the whole worksheet.

Can anybody help?

Thanks & Regards,

Jaleel
 
To lock all the cells in a Worksheet in EXCEL 2007 take the following action:-

1. Hit Ctrl-1 to launch Format Cells.

2. Protection tab.

3. Remove the green tick from the box called:-

Locked

- then hit OK.

4. Highlight all the cells in your Worksheet by clicking in the box to the
left of A and above 1 in the top left hand corner.

This should cause your Worksheet to become highlighted.

5. Ctrl-1 to launch Format Cells once more.

6. Protection tab.

7. Place a green tick from the box called:-

Locked

- then hit OK.

8. Home / Cells group / Format / Protect Sheet / place a password in the box
called:-

Password to unprotect sheet

(I have used password called test).

At this point there are 3 cells on this window that should have a green tick
in them. They are:-

Protect worksheet and contents of locked cells

Select locked cells

Select unlocked cells

After you have entered your password hit OK and then put the password in
again in the box called:-

Reenter password to proceed.

- and then hit OK.

Save the file at this point if required.

9. Close and re-open the file.

Now try to amend any of the cells in the Worksheet and you will not be able
to.

Please hit Yes if my comments have helped.

Thanks!

(I have just run the above procedure and looks OK to me. Let me know if any
probs).
 
Hi,

What you suggested is to protect the worksheet. But my idea is not that.
Worksheet must not be protected. But if anything is entered in any of the
cell, that cell must get protected.

Thanks & Regards,

Jaleel
 
there are ways around it if people know what they're doing, but you can try
something like this. test it on some test data.

select all of the cells, click format , cells, and uncheck locked on the
protection tab. or select whichever cells you want to work with.

then paste the code on the relevant worksheet's code page in the vb editor.
change the password to whatever you want.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target > "" Then
ActiveSheet.Unprotect Password:="123"
Target.Locked = True
ActiveSheet.Protect Password:="123"
End If
End Sub
 
Hi Jaleel, you did say:-

"This is required for the whole worksheet."

However, I shall come back very shortly and show you how to protect just a
few cells.

Please hit Yes if my comments have helped.
 
Let me assume that I wish to protect the following range of cells D 83 to D
85 (inclusive) in a particular worksheet.

In EXCEL 2007 take the following action:-

1. Highlight all the cells in your Worksheet by clicking in the box to the
left of A and above 1 in the top left hand corner.

This should cause your Worksheet to become highlighted.

2. Hit Ctrl-1 to launch Format Cells.

3. Protection tab.

4. Remove the green tick from the box called:-

Locked

- then hit OK.

5. Highlight cells D 83 to D 85 inclusive in your Worksheet.

This should cause those cells to become highlighted.

6. Ctrl-1 to launch Format Cells once more.

7. Protection tab.

8. Place a green tick from the box called:-

Locked

- then hit OK.

9. Home / Cells group / Format / Protect Sheet / place a password in the box
called:-

Password to unprotect sheet

(I have used password called test).

At this point there are 3 cells on this window that should have a green tick
in them. They are:-

Protect worksheet and contents of locked cells

Select locked cells

Select unlocked cells

After you have entered your password hit OK and then put the password in
again in the box called:-

Reenter password to proceed.

- and then hit OK.

Save the file at this point if required.

10. Close and re-open the file.

Now try to amend any of the cells D 83 to D 85 in the Worksheet and you will
not be able to.

11. Now try to amend any other cells (apart from D 83 to D 85) and you will
be able to amend them.

Please hit Yes if my comments have helped.

Thanks!
 
Back
Top