Using XL 2000

I have posted in worksheet functions aswell because i'm
open to solutions.

I have a workbook containing 3 worksheets.
I need a to prevent users from editing Worksheet1 but
allow the filter functionality.

Any ideas?

Thanks, Paul

Pau

You can allow filtering on a protected sheet using the following code

With Worksheets("Sheet1"
.Unprotect Password:="YourPassword
If Not .AutoFilterMode The
.Range("A1").AutoFilte
End I

.EnableAutoFilter = Tru
.Protect Password:="YourPassword",
contents:=True, userinterfaceonly:=Tru
End Wit

Regard
Rowan

Hi
see your answer in Excel.worksheet.functions

--
Regards
Frank Kabel
Frankfurt, Germany


Paul wrote:
Using XL 2000

I have posted in worksheet functions aswell because i'm
open to solutions.

I have a workbook containing 3 worksheets.
I need a to prevent users from editing Worksheet1 but
allow the filter functionality.

Any ideas?

Thanks, Paul

Many thanks Rowan.
A perfect solution.

Paul

-----Original Message-----
Paul

You can allow filtering on a protected sheet using the
following code:

With Worksheets("Sheet1")
.Unprotect Password:="YourPassword"
If Not .AutoFilterMode Then
.Range("A1").AutoFilter
End If

.EnableAutoFilter = True
.Protect Password:="YourPassword", _
contents:=True, userinterfaceonly:=True
End With

Regards
Rowan
.