Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Protected Sheet Problem in Excel 2000
I have built an automated workbook application that contains the
following code: Private Sub Workbook_Open() On Error Resume Next ThisWorkbook.Worksheets("Planning").Protect _ Password:="atom", UserInterfaceOnly:=True ThisWorkbook.Worksheets("Planning").EnableSelectio n = xlUnlockedCells ThisWorkbook.Worksheets("Sales").Protect _ Password:="atom", UserInterfaceOnly:=True ThisWorkbook.Worksheets("Sales").EnableSelection = xlUnlockedCells Application.ActiveWorkbook.Protect Password:="atom", Structu=True Sheets("Sales").Range("h3").Select End Sub It works fine for me, but another user can not see the cell border of his selection highlighted on the "Planning" sheet. Does anyone know why this would be and how to correct? Thanks. John Scott |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Protected Sheet Problem in Excel 2000
I have seen that behavior and activating the sheet first before applying the
protection fixed it for me. Private Sub Workbook_Open() On Error Resume Next Application.ScreenUpdating = False With ThisWorkbook.Worksheets("Planning") .Activate .Protect _ Password:="atom", UserInterfaceOnly:=True .EnableSelection = xlUnlockedCells End With With ThisWorkbook.Worksheets("Sales") .Activate .Protect _ Password:="atom", UserInterfaceOnly:=True .EnableSelection = xlUnlockedCells End With Application.ThisWorkbook.Protect Password:="atom", Structu=True ThisWorkbook.Sheets("Sales").Range("h3").Select Application.ScreenUpdating = True End Sub -- Regards, Tom Ogilvy "JG Scott" wrote in message ups.com... I have built an automated workbook application that contains the following code: Private Sub Workbook_Open() On Error Resume Next ThisWorkbook.Worksheets("Planning").Protect _ Password:="atom", UserInterfaceOnly:=True ThisWorkbook.Worksheets("Planning").EnableSelectio n = xlUnlockedCells ThisWorkbook.Worksheets("Sales").Protect _ Password:="atom", UserInterfaceOnly:=True ThisWorkbook.Worksheets("Sales").EnableSelection = xlUnlockedCells Application.ActiveWorkbook.Protect Password:="atom", Structu=True Sheets("Sales").Range("h3").Select End Sub It works fine for me, but another user can not see the cell border of his selection highlighted on the "Planning" sheet. Does anyone know why this would be and how to correct? Thanks. John Scott |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Protected Sheet Problem in Excel 2000
Thanks, Tom.
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Combobox problem in protected sheet | Excel Discussion (Misc queries) | |||
Problem doing Query to Access with Excel sheet protected | Excel Programming | |||
Enable filter to work in a protected sheet from Excel 2003 to 2000 | Excel Programming | |||
Query Into Protected Sheet - Excel 2000 on WinXP Home (SR2) | Excel Programming | |||
Solver via VBA on protected sheet problem | Excel Programming |