Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
conditional unlock
Is there a way to unlock a cell dependant on values entered in another
(unlocked) cell? Excell 2003 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
conditional unlock
Hi,
Right click the sheet tab, view code and paste this in Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1").Value = "lock" Then ActiveSheet.Unprotect Range("B1").Locked = True ActiveSheet.Protect Else ActiveSheet.Unprotect Range("B1").Locked = False ActiveSheet.Protect End If End Sub Mike "johnsail" wrote: Is there a way to unlock a cell dependant on values entered in another (unlocked) cell? Excell 2003 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
conditional unlock
Hi Mike,
First thanks for quick response. Am new to macros / VB so don't really understand how to use your info. Also don't know if my question was clear so . . . . 3 cells in worksheet. A1 B1 C1. A1 unlocked. B1 and C1 both locked. Enter cat in A1 and need to unlock B1 so data can be entered. Enter dog in A1 and need to unlock C1 so data can be entered. John "Mike H" wrote: Hi, Right click the sheet tab, view code and paste this in Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1").Value = "lock" Then ActiveSheet.Unprotect Range("B1").Locked = True ActiveSheet.Protect Else ActiveSheet.Unprotect Range("B1").Locked = False ActiveSheet.Protect End If End Sub Mike "johnsail" wrote: Is there a way to unlock a cell dependant on values entered in another (unlocked) cell? Excell 2003 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
conditional unlock
Assuming you have A1:A10 unlocked and all other cells locked this event code
will unlock adjacent cells in column B. Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Intersect(Target, Me.Range("A1:A10")) Is Nothing Then Exit Sub On Error GoTo enditall Application.EnableEvents = False If Target.Value < "" Then ActiveSheet.Unprotect Password:="justme" With Target.Offset(0, 1) .Locked = False End With End If enditall: Application.EnableEvents = True ActiveSheet.Protect Password:="justme" End Sub This is sheet event code. Right-click on the sheet tab and "View Code". Copy/paste into that sheet module. Gord Dibben MS Excel MVP On Mon, 22 Oct 2007 04:02:01 -0700, johnsail wrote: Is there a way to unlock a cell dependant on values entered in another (unlocked) cell? Excell 2003 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Unlock VBE | Excel Discussion (Misc queries) | |||
Unlock cells | Excel Discussion (Misc queries) | |||
How to Unlock | New Users to Excel | |||
how do i password protect an .xls file? how do i unlock it for automation. e.g. want to unlock and access a .xls from another .xls macro. | Excel Worksheet Functions | |||
how to unlock a workbook | Excel Worksheet Functions |