| Home |
| Search |
| Today's Posts |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Case Satement
It's me again! I've played around with the statement but still can't get it to work! I thought it might help if I post my latest attempt so that you can see where I'm going wrong! Case "$C$3" 'Monday 'Non-working day If Target.Value = "No" Then ActiveSheet.Unprotect ("MyPassword") Range("C:C").Locked = True Range("$C$3").Locked = False ActiveSheet.Protect ("MyPassword") 'Working Day ElseIf Target.Value = "Yes" Then ActiveSheet.Unprotect ("MyPassword") Range("$C$6:$C$10,$C$16:$C$20,$C$26:$C$30,$C$36:$C $40,$C$46:$C$50").Locked = False ActiveSheet.Protect ("MyPassword") 'Public Holiday ElseIf Target.Offset(1, 0) = "PH" Then ActiveSheet.Unprotect ("MyPassword") Range("$C$6:$C$10").Locked = True ActiveSheet.Protect ("MyPassword") EndIf Thanks again Dave -- deelee ------------------------------------------------------------------------ deelee's Profile: http://www.excelforum.com/member.php...o&userid=34866 View this thread: http://www.excelforum.com/showthread...hreadid=550762 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| change data of entire column from small case to upper case | Excel Worksheet Functions | |||
| If Satement formula | Excel Worksheet Functions | |||
| Changing multiple cell text from lower case to upper case | Excel Discussion (Misc queries) | |||
| Change the text from lower case to upper case in an Excel work boo | Excel Discussion (Misc queries) | |||
| If Satement Modification | Excel Programming | |||
![deelee[_6_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Threaded Mode
