auto-protect a sheet upon workbook close

[ryguy7272]

Hi, I am trying to auto-protect a sheet upon workbook close (so people a
certain person doesn’t forget to reapply protection when closing out of a
file that he maintains).
The below macro works fine, but disables ALL options for the user.
Sub ApplySecurity()
Worksheets("Master").Protect Password:="1225"
End Sub

I’d like to allow the user to a few basic things, such as select
locked/unlocked cells, use auto filter, and edit objects.

Sub ApplySecurity()
Worksheets("Master").Protect DrawingObjects:=False, Contents:=True,
Scenarios:= _
True, AllowFiltering:=True Worksheets("Master").Protect

End Sub

How do I add the password in there? I’ve tried a couple things; I get only
errors.

In ThisWorkbook, I’ve got:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ApplySecurity
End Sub

Private Sub Workbook_Open()
Call ApplySecurity
End Sub

Thanks,
Ryan--

 

[Mike H]

Hi,

Like this

Sub ApplySecurity()
Worksheets("Master").Protect Password:="1234", DrawingObjects:=False, _
Contents:=True, Scenarios:=True, AllowFiltering:=True

End Sub

 

[Mike H]

Hi,

I should have added that your calls to this sub will work fine

Mike

 

[ryguy7272]

So weird; thought I tried that. I probably forgot the comma after the
password. Thanks MikeH!!!
Ryan---

 

[Mike H]

Your welcome and thanks for the feedback

So weird; thought I tried that. I probably forgot the comma after the
password. Thanks MikeH!!!
Ryan---