Excel 2007 : VBA - Password Protect Sheet / certain cells

Hi.

I have a spreadsheet, it basically contains a list of dates from October 2011 to March 2012 - I am trying to create a button so when hit say the rows for October hide, and when hit again rows for October appear. I am also trying to protect most of the cells but a range of cells to be unlocked for editing.

I have managed to do the above, however if I am passing this spreadsheet on to a colleague, they can unlock the cells - how do I put a password on to protect the cells.

Any advise would help. thanks.

The VBA code i have so far is:

Private Sub December_Click()
If December.Value = True Then

Worksheets("Timesheet").Unprotect
'This area contains the things you want to happen
'when the toggle button is not depressed
Rows("120:171").EntireRow.Hidden = False
Worksheets("Timesheet").Rows("120:129").Locked = True
Worksheets("Timesheet").Range("A130:C171,L130:Z171,D116:K171").Locked = True
Worksheets("Timesheet").Protect


Else

Worksheets("Timesheet").Unprotect
'This area contains the things you want to happen
'when the toggle button is depressed
Rows("120:171").EntireRow.Hidden = True
Worksheets("Timesheet").Rows("120:129").Locked = True
Worksheets("Timesheet").Protect


End If
End Sub

Hi.

I have a spreadsheet, it basically contains a list of dates from October 2011 to March 2012 - I am trying to create a button so when hit say the rows for October hide, and when hit again rows for October appear. I am also trying to protect most of the cells but a range of cells to be unlocked for editing.

I have managed to do the above, however if I am passing this spreadsheet on to a colleague, they can unlock the cells - how do I put a password on to protect the cells.

Any advise would help. thanks.

The VBA code i have so far is:

Please Login or Register  to view this content.

(Sorry Roy, Didn't mean to break rules, hope i've done it correct this time!)