View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
Gord Dibben Gord Dibben is offline
external usenet poster
 
Posts: 22,906
Default outline with protection

Auto_open goes in a general module

Workbook_open would go in Thisworkbook


Gord Dibben MS Excel MVP

On Thu, 18 Sep 2008 19:32:07 GMT, "BNT1 via OfficeKB.com" <u19326@uwe
wrote:

Thanks Kevin for the response

Copied into "this workbook". Saved, and the opened, but did not work.

Any ideas?

regards

Kevin B wrote:
See if the following does the trick, but save your real file under a new name
before running as this has not been tested:

Sub auto_open()

Dim wb as Workbook
Dim ws as Worksheet

Set wb = ThisWorkbook

For each ws in wb.Worksheets
With ws
.Protect Password:="template", userinterfaceonly:=True
.EnableOutlining = True
.EnableAutoFilter = True
End With
Next ws

Set wb = Nothing
End Sub

Hi

[quoted text clipped - 28 lines]

Brian