protect unprotect all cells

kebodebo

New Member
Joined
Sep 22, 2009
Messages
43
I have excel 2010 and want to protect and unprotect all sheets with one click/macro. your help is greatly appreciated
 

Some videos you may like

Excel Facts

Lock one reference in a formula
Need 1 part of a formula to always point to the same range? use $ signs: $V$2:$Z$99 will always point to V2:Z99, even after copying

JoeMo

MrExcel MVP
Joined
May 26, 2009
Messages
17,099
Office Version
365, 2010
Platform
Windows
I have excel 2010 and want to protect and unprotect all sheets with one click/macro. your help is greatly appreciated
Put an Active-X command button on any sheet with the caption "Protect" and attach this code to it:
Code:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If CommandButton1.Caption = "Protect" Then
    For Each sh In ThisWorkbook.Sheets
        sh.Protect
    Next sh
    CommandButton1.Caption = "Unprotect"
Else
    For Each sh In ThisWorkbook.Sheets
        sh.Unprotect
    Next sh
    CommandButton1.Caption = "Protect"
End If
Application.ScreenUpdating = True
End Sub
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,699
Messages
5,512,926
Members
408,923
Latest member
sciencell

This Week's Hot Topics

  • Sort code advice please
    Hi, I have the code below which im trying to edit but getting a little stuck. This was the original code which worked fine,columns A-F would sort...
  • SUMPRODUCT with nested If statement
    Hi everyone, Hope you're all well. I'm hoping someone will be able to point me in the right direction with a problem I'm having with a SUMPRODUCT...
  • VBA - simple sort is killing me!
    Hello all! This should be so easy, but not for me, apparently! I have a table of data that can be of varying lengths and widths. My current macro...
  • Compare Two Lists
    I have two Lists and I need to be able to Identify differences between them. List 100 comes from a workbook - the other is downloaded form the...
  • Formula that deducts points for each code I input.
    I am trying to create a formula that will have each student in my class start at 100 points and then for each code that I enter (PP for Poor...
  • Conditional formatting formula required for day of week and a value
    Hi, I have a really simple spreadsheet where column A is the date, column B is the activity total shown as a number and column C states the day of...
Top