P
Paul
Hi Norman,
Thanks, your solutions look very good, unfortunately they
also look very chineese
I'm afraid I'm just a self-taught excel newby and don't
have any experience with this type of stuff.
I'm assuming its some sort of macro but I'm not sure. I've
never used one. The syntax itself is kind of self
explanatory but I don't know where to put it and how to
set it up?
Thanks again for taking the time to respond.
Paul.
Thanks, your solutions look very good, unfortunately they
also look very chineese
I'm afraid I'm just a self-taught excel newby and don't
have any experience with this type of stuff.
I'm assuming its some sort of macro but I'm not sure. I've
never used one. The syntax itself is kind of self
explanatory but I don't know where to put it and how to
set it up?
Thanks again for taking the time to respond.
Paul.
..-----Original Message-----
Hi Paul!
You'll need VBA for this. Here's some code to protect all sheets with
a password:
Sub ProtectAllSheets()
Dim n As Integer
For n = 1 To Worksheets.Count
Worksheets(n).Protect Password:="not4u2see"
Next n
End Sub
And to unprotect all sheets:
Sub UnprotectAllSheets()
Dim n As Integer
For n = 1 To Worksheets.Count
Worksheets(n).Unprotect Password:="not4u2see"
Next n
End Sub
Or if you'd like fries with that, Sir, try:
Public Sub ToggleProtect1()
' From J E McGimpsey modified by NH
Application.ScreenUpdating = False
Const PWORD As String = "not4u2see"
Dim wkSht As Worksheet
Dim statStr As String
For Each wkSht In ActiveWorkbook.Worksheets
With wkSht
statStr = statStr & vbNewLine & "Sheet " & .Name
If .ProtectContents Then
wkSht.Unprotect Password:=PWORD
statStr = statStr & ": Unprotected"
Else
wkSht.Protect Password:=PWORD
statStr = statStr & ": Protected"
End If
End With
Next wkSht
Application.ScreenUpdating = True
MsgBox Mid(statStr, 2)
End Sub
--
Regards
Norman Harker MVP (Excel)
Sydney, Australia
(e-mail address removed)
Excel and Word Function Lists (Classifications, Syntax and Arguments)
available free to good homes.
.