Protecting and Unprotecting multiple sheets

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Ok, I found the macros, but where do I enter them? I don't know the first thing about macros so bear with me..
I've got 31 sheets, one for each day of the week, so it's a major pain trying to fix stuff as I find it..
Thanks!
 
What macros? You didn't say but I would imagine that you would want to put
in a regular module or the ThisWorkbook module would work. To put
there>right click on the excel logo in the upper LEFT of the screen>view
code>copy/paste.
Now, the question becomes, why one ws for each day. Why not one ws for all
days that can be sorted or filtered to look at any one day.

--
Don Guillett
SalesAid Software
(e-mail address removed)
pkley said:
Ok, I found the macros, but where do I enter them? I don't know the first
Click to expand...
thing about macros so bear with me...
I've got 31 sheets, one for each day of the week, so it's a major pain
Click to expand...
trying to fix stuff as I find it...
 
Ok, that worked for the Protect code, but now I need to figure out how to also insert the unprotect code. It's almost the same as the protect stuff, I'm just too unfamiliar with VBA.
Public Sub UnProtectMultipleSheets()
Const Pword As String = "drowssap"
Dim WkSht As Worksheet
For Each WkSht In Worksheets
WkSht.Unprotect=Pword
Next WkSht
End Sub
 
I assume you've figured out the problem by now, but for the sake of anyone else reading...

Don't include the equal sign (=) between the Unprotect method and the password argument. Use it like this:

WkSht.Unprotect Pword


Also, you'll often want to remember the Protected state just before you Unprotect. You can use a series of Boolean variables to do that. Here's an example.

Dim blnDrawingObjects As Boolean
Dim blnContents As Boolean
Dim blnScenarios As Boolean
Dim blnAutoFilter As Boolean
Dim blnOutlining As Boolean
Dim blnPivotTable As Boolean
Dim blnUserInterface As Boolean

With ThisWorkbook.Worksheets("MyWorksheetName")

'
' remember the protection state of the sheet
'
blnDrawingObjects = .ProtectDrawingObjects
blnContents = .ProtectContents
blnScenarios = .ProtectScenarios
blnAutoFilter = .EnableAutoFilter
blnOutlining = .EnableOutlining
blnPivotTable = .EnablePivotTable
blnUserInterface = .ProtectionMode

.Unprotect "MyPassword"

' do some stuff here that requires unprotected sheet
 
Back
Top