Here is the code I use for protecting the sheets, thought you may be
interested. This macro allows you to either protect all sheets with the
same password or individualize the sheets.
This Macro can be simply inserted into any excel workbook, and it will work
like a champ as it it.
Please let me know what you think,
Dave Marden
There are separate Sub's for Protect and for Unprotect.
Sub Protect_All_Sheets()
'
' Protect_All_Sheets Macro
' Macro recorded 3/3/2001 by David Allen Marden
'
' This Macto Can Be Used In Any Excel Project
'
' Keyboard Shortcut: Ctrl+Shift+P
'
'
Dim CurrentSheetName As String
Dim Password As String
Dim CheckPassword As String
Dim Decision As String
CurrentSheetName = ActiveSheet.Name
Sheets(1).Select
'Check if sheet is protected.
If ActiveSheet.ProtectContents = False Then
Do While ActiveSheet.ProtectContents = False
'If not, get a password
Password = InputBox("Enter a password for this sheet")
CheckPassword = InputBox("Re Enter Password for this sheet")
If CheckPassword = Password Then
'Set Password
ActiveSheet.Protect (Password)
Else: MsgBox ("Passwords did not Match")
End If
Loop
End If
Decision = InputBox("Typing G will copy last password to all other
sheets, Typing I will individualize all sheets, If you type anything else
then the first page protected is the only page that will get protected.")
If Decision = "i" Or Decision = "I" Then
For i = 1 To Sheets.Count - 1
ActiveSheet.Next.Select
'Check if sheet is protected.
If ActiveSheet.ProtectContents = False Then
Do While ActiveSheet.ProtectContents = False
'If not, get a password
Password = InputBox("Enter a password for this sheet")
CheckPassword = InputBox("Re Enter Password for this sheet")
If CheckPassword = Password Then
'Set Password
ActiveSheet.Protect (Password)
Else: MsgBox ("Passwords did not Match")
End If
Loop
End If
Next
End If
If Decision = "g" Or Decision = "G" Then
For i = 1 To Sheets.Count - 1
ActiveSheet.Next.Select
If ActiveSheet.ProtectContents = False Then
ActiveSheet.Protect (Password)
End If
Next
End If
Sheets(CurrentSheetName).Select
Range("A1").Select
End Sub
Sub Unprotect_All_Sheets()
'
' Unprotect_All_Sheets Macro
' Macro recorded 3/3/2001 by David Allen Marden
'
' This Macto Can Be Used In Any Excel Project
'
' Keyboard Shortcut: Ctrl+Shift+U
'
'
Dim CurrentSheetName As String
Dim Password As String
Dim CheckPassword As String
Dim Decision As String
CurrentSheetName = ActiveSheet.Name
Sheets(1).Select
'Check if sheet is protected.
If ActiveSheet.ProtectContents = True Then
Do While ActiveSheet.ProtectContents = True
'If not, get a password
Password = InputBox("Enter the password for this sheet")
'Reset Password
ActiveSheet.Unprotect (Password)
Loop
End If
Decision = InputBox("Typing G will use the last password to unprotect
all other sheets, Typing I will individualize all sheets, If you type
anything else then the first page protected is the only page that will get
unprotected.")
If Decision = "i" Or Decision = "I" Then
For i = 1 To Sheets.Count - 1
ActiveSheet.Next.Select
'Check if sheet is protected.
If ActiveSheet.ProtectContents = True Then
Do While ActiveSheet.ProtectContents = True
'If not, get a password
Password = InputBox("Enter a password for this sheet")
'Reset Password
ActiveSheet.Unprotect (Password)
Loop
End If
Next
End If
If Decision = "g" Or Decision = "G" Then
For i = 1 To Sheets.Count - 1
ActiveSheet.Next.Select
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect (Password)
End If
Next
End If
Sheets(CurrentSheetName).Select
Range("A1").Select
End Sub