R
Ron de Bruin
Hi Robin
You can do it with VBA code
If you copy this event in the Thisworkbook module
http://www.mcgimpsey.com/excel/modules.html
It will run automatic when you open the workbook and
Protect each sheet in the workbook and set the EnableSelection
Test it on a test workbook
Private Sub Workbook_Open()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In ThisWorkbook.Worksheets
Sh.Select
Sh.Protect userinterfaceonly:=True
Sh.EnableSelection = xlUnlockedCells
Next
Sheets(1).Select
Application.ScreenUpdating = True
End Sub
You can do it with VBA code
If you copy this event in the Thisworkbook module
http://www.mcgimpsey.com/excel/modules.html
It will run automatic when you open the workbook and
Protect each sheet in the workbook and set the EnableSelection
Test it on a test workbook
Private Sub Workbook_Open()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In ThisWorkbook.Worksheets
Sh.Select
Sh.Protect userinterfaceonly:=True
Sh.EnableSelection = xlUnlockedCells
Next
Sheets(1).Select
Application.ScreenUpdating = True
End Sub