I have the following code in the spreadsheet which creates a copy of the "signalling" worksheet and protects it, mainly so that the recipient cannot delete/insert open hidden columns etc,
However whilst the newly generated file is protected and the sort function is still working ,the auto filter is not.
Can anyone advise as to how i modify the code below in order to do make the auto filter available whlst still keeping the sheet protected?
Thanks
Sub CREATE_SIGNALLING_FILE()
'
' Macro1 Macro
' Macro recorded 15/07/2010 by shegarty
'
'
Sheets("SIGNALLING").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
Sheets(Array("COVER Sheet", "SIGNALLING", "CATEGORIES")).Select
Sheets("SIGNALLING").Activate
Sheets(Array("COVER Sheet", "SIGNALLING", "CATEGORIES")).Copy
Windows("Commissioning_Tool.xls").Activate
Sheets("PROCESS").Select
Range("B9").Select
Sheets("SIGNALLING").Select
ActiveSheet.Unprotect
Range("A1").Select
End Sub
However whilst the newly generated file is protected and the sort function is still working ,the auto filter is not.
Can anyone advise as to how i modify the code below in order to do make the auto filter available whlst still keeping the sheet protected?
Thanks
Sub CREATE_SIGNALLING_FILE()
'
' Macro1 Macro
' Macro recorded 15/07/2010 by shegarty
'
'
Sheets("SIGNALLING").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
Sheets(Array("COVER Sheet", "SIGNALLING", "CATEGORIES")).Select
Sheets("SIGNALLING").Activate
Sheets(Array("COVER Sheet", "SIGNALLING", "CATEGORIES")).Copy
Windows("Commissioning_Tool.xls").Activate
Sheets("PROCESS").Select
Range("B9").Select
Sheets("SIGNALLING").Select
ActiveSheet.Unprotect
Range("A1").Select
End Sub