Hi,

I checked the newsgroup but couldnt find my message posted hence, Im
reposting .( Strangely my sent items shows that this message has been
sent ).

Please tell me how to set up the same.

Regards,
Hari
India

"Hari" wrote in message news:...
Hi,

I have got a sheet Report data in which except one cell ( cell A3 ) the
whle
sheet is protected. I want user to enter info in this cell before exiting
the workbook otherwise the workbook will not save. Similarly when I open
the
worksheet I want to copy excel to automatically copy the A3 cell to J3
cell
and make the A3 cell blank.

I wrote the following code. When I open the worksheet excel asks me for
the
password. Cant excel automatically unlock the sheet and then lock the
sheet.
Do I have to give the password here. if so, please tell me what would be
the
syntax of the same.

Regards,
Hari
India


Private Sub Workbook_Open()

Sheets("Report Data").Unprotect

Sheets("Report Data").Cells(12, 10) = Sheets("Report Data").Cells(3, 1)
Sheets("Report Data").Protect

Sheets("Report Data").Cells(3, 1) = ""

End Sub

Sheets("Report Data").Unprotect Password:="Hotdog"



Sheets("Report Data").protect Password:="Hotdog"

--
Regards,
Tom Ogilvy

"Hari" wrote in message
...
Hi,

I checked the newsgroup but couldnt find my message posted hence, Im
reposting .( Strangely my sent items shows that this message has been
sent ).

Please tell me how to set up the same.

Regards,
Hari
India

"Hari" wrote in message news:...
Hi,

I have got a sheet Report data in which except one cell ( cell A3 ) the
whle
sheet is protected. I want user to enter info in this cell before
exiting
the workbook otherwise the workbook will not save. Similarly when I open
the
worksheet I want to copy excel to automatically copy the A3 cell to J3
cell
and make the A3 cell blank.

I wrote the following code. When I open the worksheet excel asks me for
the
password. Cant excel automatically unlock the sheet and then lock the
sheet.
Do I have to give the password here. if so, please tell me what would be
the
syntax of the same.

Regards,
Hari
India


Private Sub Workbook_Open()

Sheets("Report Data").Unprotect

Sheets("Report Data").Cells(12, 10) = Sheets("Report Data").Cells(3, 1)
Sheets("Report Data").Protect

Sheets("Report Data").Cells(3, 1) = ""

End Sub