Home |
Search |
Today's Posts |
#1
![]() |
|||
|
|||
![]()
Hi
I have a code which as Target.Address which works in Excel 2000 but will not work in excel 98. Does anyone know what code to use for when a workbook change is to take affect. The current code which works in Excel 2000 is below: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$26" Then If Range("G26") = "Other" Then ActiveSheet.Unprotect Sheets("Recording Sheet").Range("E28") = "Please speficy:" Sheets("Recording Sheet").Range("G28:I28").Interior.ColorIndex = 2 Sheets("Recording Sheet").Range("G28:I28") = "" Sheets("Recording Sheet").Range("G28:I28").Locked = False ActiveSheet.Protect Sheets("Recording Sheet").Range("G28:I28").Select ElseIf Range("G26").Value = "" Then ActiveSheet.Unprotect Sheets("Recording Sheet").Range("E28") = "" Sheets("Recording Sheet").Range("G28:I28") = "" Sheets("Recording Sheet").Range("G28:I28").Interior.ColorIndex = 1 Sheets("Recording Sheet").Range("G28:I28").Locked = True ActiveSheet.Protect Else ActiveSheet.Unprotect Sheets("Recording Sheet").Range("E28") = "" Sheets("Recording Sheet").Range("G28:I28") = "" Sheets("Recording Sheet").Range("G28:I28").Interior.ColorIndex = 1 Sheets("Recording Sheet").Range("G28:I28").Locked = True ActiveSheet.Protect End If End If End Sub Any help would be appreciated. Thanks Noemi |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
"Group" function very slow with Excel 2003 :( ... While very quick with Excel2000 :O) | Excel Discussion (Misc queries) | |||
Stop Excel Rounding Dates | Excel Discussion (Misc queries) | |||
Hints And Tips For New Posters In The Excel Newsgroups | Excel Worksheet Functions | |||
Excel error - Startup (and Acrobat PDFMaker) | Setting up and Configuration of Excel | |||
Excel 2002 and 2000 co-install. Control Which Starts ? | Excel Discussion (Misc queries) |