Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
lock cell after value is automatically placed when workbook is ope
I am trying to lock a cell after todays date is placed into the cell. I want
this date to remain in the cell so when the application is re opened the original date remains. Does anyone have any ideas? The script below that I am using falls over at the Selection.Locked = True line of code. Private Sub Workbook_Open() If ActiveWorkbook.Name = "Status Report Template.xls" Then NewNameforTemplate End If Application.DisplayAlerts = True ThisWorkbook.Sheets("Form").Range("$E$12").Select Selection.Value = Format(Now(), "dd mmm yyyy") ThisWorkbook.Sheets("Form").Range("$E$12").Select Selection.Locked = True On Error Resume Next End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
lock cell after value is automatically placed when workbook is ope
Damien wrote: I am trying to lock a cell after todays date is placed into the cell. I want this date to remain in the cell so when the application is re opened the original date remains. Does anyone have any ideas? The script below that I am using falls over at the Selection.Locked = True line of code. Private Sub Workbook_Open() If ActiveWorkbook.Name = "Status Report Template.xls" Then NewNameforTemplate End If Application.DisplayAlerts = True ThisWorkbook.Sheets("Form").Range("$E$12").Select Selection.Value = Format(Now(), "dd mmm yyyy") ThisWorkbook.Sheets("Form").Range("$E$12").Select Selection.Locked = True On Error Resume Next End Sub you could replace this Selection.Value = Format(Now(), "dd mmm yyyy") with these lines If Selection.Locked = True Then Exit Sub ' do this to advoid an error message if selection is locked & sheet protected. If Selection.Value = "" Then Selection.Value = Format(Now(), "dd mmm yyyy") NOTE: remember locked only works if the sheet is protected. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Lock sheets automatically | Excel Discussion (Misc queries) | |||
can a cell be automatically populated with the workbook name? | Excel Worksheet Functions | |||
Lock cell in a shared workbook | New Users to Excel | |||
automatically move cell data in 1 workbook to another workbook | Excel Worksheet Functions | |||
How do I lock a cell automatically after it has data entered. | Excel Discussion (Misc queries) |