run macro on opening

[brian thompson3001 via OfficeKB.com]

Hi
(originally put in wrong grouping)

I have go this off other threads, but would like it to run automatically when
opening the workbook. I am not up to speed with these codes, and therefore
ask if the additional line/lines could be added in the correct place, in
order that I can copy and Paste. Currently, I have to run this every time
after opening the workbook

Option Explicit
Sub auto_open()
With Worksheets("sheet1")
..Protect Password:="test", userinterfaceonly:=True
..EnableAutoFilter = True
End With

End Sub

Can anyone help?,

Brian

 

[PCLIVE]

You need your code in ThisWorkbook. Use this.

Private Sub Workbook_Open()
With Worksheets("sheet1")
Protect Password:="test", userinterfaceonly:=True
EnableAutoFilter = True
End With
End Sub

HTH,
Paul

 

[Dave Peterson]

Open the workbook.
Go to the VBE
Hit ctrl-r to see the project explorer
Find your workbook/project
click on it one time
Insert|Module

Paste the code there (and delete any copies of that code you placed elsewhere).

Alt-f11 to get back to excel
close that file (and save it while saving)
reopen that file (allowing macros to run)

 

[brian thompson3001 via OfficeKB.com]

hi paul/dave

have copied your code following Dave's instructions, however getting
"Compile error"
"named argument not found"

Any idea's

regards

You need your code in ThisWorkbook. Use this.

Private Sub Workbook_Open()
With Worksheets("sheet1")
Protect Password:="test", userinterfaceonly:=True
EnableAutoFilter = True
End With
End Sub

HTH,
Paul

Hi
(originally put in wrong grouping)

[quoted text clipped - 19 lines]

Brian

 

[Dave Peterson]

Option Explicit
Sub auto_open()
With Worksheets("sheet1")
.Protect Password:="hi", userinterfaceonly:=True
'.EnableOutlining = True
.EnableAutoFilter = True
End With
End Sub

Watch those leading dots.

hi paul/dave

have copied your code following Dave's instructions, however getting
"Compile error"
"named argument not found"

Any idea's

regards

You need your code in ThisWorkbook. Use this.

Private Sub Workbook_Open()
With Worksheets("sheet1")
Protect Password:="test", userinterfaceonly:=True
EnableAutoFilter = True
End With
End Sub

HTH,
Paul

Hi
(originally put in wrong grouping)

[quoted text clipped - 19 lines]

Brian

--
bnt

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/ms-excel/200612/1

 

[brian thompson3001 via OfficeKB.com]

thanks dave

works well .

regards

Option Explicit
Sub auto_open()
With Worksheets("sheet1")
.Protect Password:="hi", userinterfaceonly:=True
'.EnableOutlining = True
.EnableAutoFilter = True
End With
End Sub

Watch those leading dots.

hi paul/dave

[quoted text clipped - 29 lines]

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/ms-excel/200612/1