| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code not working in a PROTECTED Worksheet
I have the code below in a worksheet on a file in SharePoint. The worksheet
is Protected so only unprotected Cells are selectable. The problem I am having is that when the sheet is protected I get an error on: Me.Rows("5:169").EntireRow.Hidden = False and I know it is because on the protection because when I remove the protection from the sheet, the macro works fine. Is there a way around this problem? Private Sub cmdCPA_Click() Application.ScreenUpdating = False Me.Rows("5:169").EntireRow.Hidden = False ActiveWindow.ScrollRow = 4 ActiveSheet.Range("20:169").EntireRow.Hidden = True Application.ScreenUpdating = True End Sub |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code not working in a PROTECTED Worksheet
I think you just answered your own question. Unprotect the sheet, run the
code you have, re-protect the sheet. Sheets("Sheet1").Select ActiveSheet.Unprotect 'your code in here Sheets("Sheet1").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ' or whatever kind of protection you need...turn on the macro recorder and go through the steps...that's the easiest way... -- Ryan--- If this information was helpful, please indicate this by clicking ''Yes''. "Ayo" wrote: I have the code below in a worksheet on a file in SharePoint. The worksheet is Protected so only unprotected Cells are selectable. The problem I am having is that when the sheet is protected I get an error on: Me.Rows("5:169").EntireRow.Hidden = False and I know it is because on the protection because when I remove the protection from the sheet, the macro works fine. Is there a way around this problem? Private Sub cmdCPA_Click() Application.ScreenUpdating = False Me.Rows("5:169").EntireRow.Hidden = False ActiveWindow.ScrollRow = 4 ActiveSheet.Range("20:169").EntireRow.Hidden = True Application.ScreenUpdating = True End Sub |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Code not working in a PROTECTED Worksheet
Thanks.
"ryguy7272" wrote: I think you just answered your own question. Unprotect the sheet, run the code you have, re-protect the sheet. Sheets("Sheet1").Select ActiveSheet.Unprotect 'your code in here Sheets("Sheet1").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ' or whatever kind of protection you need...turn on the macro recorder and go through the steps...that's the easiest way... -- Ryan--- If this information was helpful, please indicate this by clicking ''Yes''. "Ayo" wrote: I have the code below in a worksheet on a file in SharePoint. The worksheet is Protected so only unprotected Cells are selectable. The problem I am having is that when the sheet is protected I get an error on: Me.Rows("5:169").EntireRow.Hidden = False and I know it is because on the protection because when I remove the protection from the sheet, the macro works fine. Is there a way around this problem? Private Sub cmdCPA_Click() Application.ScreenUpdating = False Me.Rows("5:169").EntireRow.Hidden = False ActiveWindow.ScrollRow = 4 ActiveSheet.Range("20:169").EntireRow.Hidden = True Application.ScreenUpdating = True End Sub |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How to get worksheet change code to work on protected worksheet? | Excel Programming | |||
| Hyperlinks in cells in a protected worksheet not working | Excel Discussion (Misc queries) | |||
| Range Validation property not working w/ Protected worksheet | Excel Programming | |||
| Protected Worksheet - tabs stop working in certain areas | Excel Discussion (Misc queries) | |||
| check if worksheet is protected using code | Excel Programming | |||
Linear Mode
