| Home |
| Search |
| Today's Posts |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Password Protect Sheet with formatting allowed
Your welcome
"CER" wrote: That worked. Thank you for the quick help. CER "Mike H" wrote: Hi, The line where you apply the password is messing things up, Try this Range("A:D,S:S").EntireColumn.Hidden = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _ True, AllowFormattingColumns:=True, AllowFormattingRows:=True, _ AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True, _ Password:="aaaa" ActiveSheet.EnableSelection = xlNoRestrictions Mike "CER" wrote: I recorded a macro (don't know enough to write one yet) to hide certain columns, then password protect the sheet, but allow filtering, sorting, pivot tables and formatting columns and rows. However, it doesn't check those options when I run it. Any help is appreciated. Here's the code: Columns("A:D").Select Selection.EntireColumn.Hidden = True ActiveWindow.SmallScroll ToRight:=5 Columns("S:S").Select Selection.EntireColumn.Hidden = True ActiveWindow.LargeScroll ToRight:=-2 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowSorting:= _True, AllowFiltering:=True, AllowUsingPivotTables:=True ActiveSheet.EnableSelection = xlNoRestrictions ActiveSheet.Protect Password:="aaaa" |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| password protect a sheet | Excel Discussion (Misc queries) | |||
| Password Protect a single sheet using VBA | Excel Worksheet Functions | |||
| Protect sheet without password? | Excel Discussion (Misc queries) | |||
| password protect a single sheet | Excel Discussion (Misc queries) | |||
| Password Protect a Sheet | Excel Discussion (Misc queries) | |||
Threaded Mode
