protect sheet using vba
Hi,
If I manually protect a sheet and select use auto filter, that function can be used when the sheet is protected. Using a private sub, if I unprotect the sheet, allowing changes to be made, and then re-protect it, the facility to use auto filter is lost. Is there a line I can add to this: Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Password:="sulby" On Error GoTo ws_exit: Application.EnableEvents = False "my changes" ws_exit: Application.EnableEvents = True 'ActiveSheet.Protect Password:="sulby" End Sub to keep the autofilter functionality? Thanks, -- Traa Dy Liooar Jock |
protect sheet using vba
In XL2003:
ActiveSheet.Protect Password:="sulby", _ AllowFiltering:=True Hope this helps, Hutch "Jock" wrote: Hi, If I manually protect a sheet and select use auto filter, that function can be used when the sheet is protected. Using a private sub, if I unprotect the sheet, allowing changes to be made, and then re-protect it, the facility to use auto filter is lost. Is there a line I can add to this: Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Password:="sulby" On Error GoTo ws_exit: Application.EnableEvents = False "my changes" ws_exit: Application.EnableEvents = True 'ActiveSheet.Protect Password:="sulby" End Sub to keep the autofilter functionality? Thanks, -- Traa Dy Liooar Jock |
All times are GMT +1. The time now is 05:27 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com