Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Sub Protect_sheets() Dim wSheet As Worksheet Dim Pwd As String Pwd = InputBox("Enter your password to protect all worksheets", "Password Input") For Each wSheet In Worksheets wSheet.Protect Password:=Pwd Next wSheet End Sub Sub Unprotect_sheets() Dim wSheet As Worksheet Dim Pwd As String Pwd = InputBox("Enter your password to unprotect all worksheets", "Password Input") On Error Resume Next For Each wSheet In Worksheets wSheet.Unprotect Password:=Pwd Next wSheet If Err <> 0 Then MsgBox "You have entered an incorect password. All worksheets could not " & _ "be unprotected.", vbCritical, "Incorect Password" End If On Error GoTo 0 End Sub
|Average across mutiple sheets||5||32|
|Printer Setup Pop-up when Opening Excel File||4||20|
|Need help on countif statements using VBA and excel||16||32|
|.xltm file opens as .xlsx file||3||22|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
19 Experts available now in Live!