Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
MACRO for cell protect after a date is reached
Hello,
In an sheet I need that after a date is reached, some cells to be protected from writing. For example: today is 11.03,2009 and after 31.03.2009 some cells (example A1:G1, A2:G2 etc) from the sheet will be protected for writing. I have the following code, but you can unprotect the cells from the review tab - so this doesnt help me at all: Private Sub Worksheet_Change(ByVal Target As Range) Range("D6").FormulaR1C1 = "=TODAY()" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) final_date = Cells(4, 4).Value current_date = Cells(6, 4).Value If current_date final_date Then ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True If current_date <= final_date Then ActiveSheet.Unprotect End Sub can you please advise me in this issue? How to protect the cells with a psswd? Thank you, Andrei |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
MACRO for cell protect after a date is reached
Hi
ActiveSheet.Protect Password:="JustMe", DrawingObjects:=True, Contents:=True, Scenarios:=True ActiveSheet.UnProtect Password:="JustMe" Regards, Per skrev i meddelelsen ... Hello, In an sheet I need that after a date is reached, some cells to be protected from writing. For example: today is 11.03,2009 and after 31.03.2009 some cells (example A1:G1, A2:G2 etc) from the sheet will be protected for writing. I have the following code, but you can unprotect the cells from the review tab - so this doesnt help me at all: Private Sub Worksheet_Change(ByVal Target As Range) Range("D6").FormulaR1C1 = "=TODAY()" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) final_date = Cells(4, 4).Value current_date = Cells(6, 4).Value If current_date final_date Then ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True If current_date <= final_date Then ActiveSheet.Unprotect End Sub can you please advise me in this issue? How to protect the cells with a psswd? Thank you, Andrei |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Send email notice when date reached in an excel spreadsheet | Excel Programming | |||
How do I run a macro when a pre-determined time has been reached . | Excel Discussion (Misc queries) | |||
Repeat Macro until Empty Cell Reached | Excel Programming | |||
Excel VBA - macro to recalculate random numbers until target reached | Excel Programming | |||
HOW ? Running a different Macro if value reached | Excel Programming |