Lock sheets automatically

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

		Home » OfficeFrustration forum » Microsoft Excel » General Discussion
Lock sheets automatically

Home

« Previous Thread | Next Thread »

Thread Tools

Display Modes

November 18th, 2009, 12:39 AM posted to microsoft.public.excel.misc

Thu Ng[_2_]

external usenet poster

Posts: 1

Lock sheets automatically

Hi everyone,
I have 26 fortnightly timesheets in a workbook for every staff and would
like to lock each timesheet after some days.Can you please help me to fix my
code as the follows:

Select Case s_worksheet
Case "TS1", "TS2", "TS3"
If (DateDiff("d", B12, Date) 6) Then
s_worksheet.Unprotect "admin"

s_worksheet.Range("C6:C12,D6

12,F6:F12,G6:G10,H6: H10,I6:I10").Locked = True
s_worksheet.Protect "admin"
End If
Case Else: End
End Select

Many thanks for you help in advance

Report this post as spam, offensive or inappropriate

« Previous Thread | Next Thread »

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is Off HTML code is Off

Forum Jump

All times are GMT +1. The time now is 09:00 PM.