Protect Selected Sheets

M

M. Authement

I am trying to write some code to protect all of the selected sheets. I
kept getting an application error in the code below until I added the
objSheet.Select line prior to the .Protect line. Why does it not work
unless I select the sheet first?

bAllOK = True
For Each objSheet In ActiveWindow.SelectedSheets
If Not bSheetIsProtected(objSheet) Then
objSheet.Select
objSheet.Protect Password:=strPW, Contents:=True
Else
strLocked = strLocked & Chr(10) & objSheet.Name
bAllOK = False
End If
Next objSheet
 
M

M. Authement

Nevermind...I think I figured it out. You cannot protect sheets when
multiple sheets are selected (based on the fact that Tools | Protection |
Protect Sheets is greyed out if more than one sheet is selected). The
..Select statement therefore works by ensuring only one sheet is selected.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top