It is my intention to disable users from selecting any cells on
worksheet that I have just created in a workbook using EXCEL 2002. New
to VB, I rely greatly on recording macros then cut/paste. In this case
I did a Ctl+A to select all cells, then FormatCells - Protection,
checked Locked & Hidden and then "OK". Then I went to
ToolsProtectionProtect Sheet. With the exception of "Protect
worksheet and contents of locked cells" all boxes were unchecked when I
hit "OK". The following code was generated:

Cells.Select
Range("C3").Activate
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Cells.Select
Range("C3").Activate

If I then unprotect the worksheet and run the macro, as intended, all
cells are not selectable.

The problem I have is that if the workbook is closed and reopened,
cells are once again selectable and can be copied. Is there a
programmable solution for retaining the protection as implemented?

Thanks,
GCF


---
Message posted from http://www.ExcelForum.com/

I suggest that you do it the othjer way around.
Protect the cells & worksheet then save the workbook.
That way, protection is ON when opened. Use the VBA code
to remove the proetection - use a password. Remember
though that you must keep a note of the password !!!

Patrick Molloy
Microsoft Excel MVP
-----Original Message-----
It is my intention to disable users from selecting any
cells on
worksheet that I have just created in a workbook using
EXCEL 2002. New
to VB, I rely greatly on recording macros then
cut/paste. In this case
I did a Ctl+A to select all cells, then FormatCells -
Protection,
checked Locked & Hidden and then "OK". Then I went to
ToolsProtectionProtect Sheet. With the exception
of "Protect
worksheet and contents of locked cells" all boxes were
unchecked when I
hit "OK". The following code was generated:

Cells.Select
Range("C3").Activate
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Cells.Select
Range("C3").Activate

If I then unprotect the worksheet and run the macro, as
intended, all
cells are not selectable.

The problem I have is that if the workbook is closed and
reopened,
cells are once again selectable and can be copied. Is
there a
programmable solution for retaining the protection as
implemented?

Thanks,
GCF


---
Message posted from http://www.ExcelForum.com/

.

Hi

The problem GCF is having is similar to mine

Marcos in Templates "Dick Johnson"
Dec 21 2003 9:30PM

When I open a template form as a new doc the protection is
lost. I save the form template with the protection on.



-----Original Message-----
I suggest that you do it the othjer way around.
Protect the cells & worksheet then save the workbook.
That way, protection is ON when opened. Use the VBA code
to remove the proetection - use a password. Remember
though that you must keep a note of the password !!!

Patrick Molloy
Microsoft Excel MVP
-----Original Message-----
It is my intention to disable users from selecting any
cells on
worksheet that I have just created in a workbook using
EXCEL 2002. New
to VB, I rely greatly on recording macros then
cut/paste. In this case
I did a Ctl+A to select all cells, then FormatCells -
Protection,
checked Locked & Hidden and then "OK". Then I went to
ToolsProtectionProtect Sheet. With the exception
of "Protect
worksheet and contents of locked cells" all boxes were
unchecked when I
hit "OK". The following code was generated:

Cells.Select
Range("C3").Activate
Selection.Locked = True
Selection.FormulaHidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Cells.Select
Range("C3").Activate

If I then unprotect the worksheet and run the macro, as
intended, all
cells are not selectable.

The problem I have is that if the workbook is closed and
reopened,
cells are once again selectable and can be copied. Is
there a
programmable solution for retaining the protection as
implemented?

Thanks,
GCF


---
Message posted from http://www.ExcelForum.com/

.

.