Chart and Shape object protection?

[rsjury]

Trying to figure out with VBA how to protect and unprotect specific objects in one sheet. In other words, I have one sheet with many Charts and Shapes, I want to choose which ones are protected and which ones are not. I figure that I can use the "name" for each object I just don't know the VBA Syntax. if someone can just give me a couple samples I could figure it out. The samples I would like are (unlock all charts but lock all shapes and choosing which specific Charts and Shapes to protect or not). THANKS IN ADVANCE!

 

[DanteAmor]

I guess the sheet is protected.
Change "abc" for the password of your sheet.

With the following, unlock all shapes and charts and lock specific shapes and charts.

Sub Lock_Shape_Chart()
  Dim sc As Shape
  
  Application.ScreenUpdating = False
  With ActiveSheet
    .Unprotect "abc"
    .Shapes.SelectAll
    Selection.Locked = False  'Unlock all Shapes and Charts
    '
    For Each sc In .Shapes
      Select Case sc.Name
        'Lock specific Shapes and Charts
        Case "Shape1", "Shape3", "Shape5", "etc", _
             "Chart2", "Chart4", "Chart6", "etc"
          sc.Locked = True
      End Select
    Next
    Range("A1").Select
    .Protect "abc"
  End With
  Application.ScreenUpdating = True
End Sub

 

[rsjury]

I guess the sheet is protected.
Change "abc" for the password of your sheet.

With the following, unlock all shapes and charts and lock specific shapes and charts.

Sub Lock_Shape_Chart()
  Dim sc As Shape
 
  Application.ScreenUpdating = False
  With ActiveSheet
    .Unprotect "abc"
    .Shapes.SelectAll
    Selection.Locked = False  'Unlock all Shapes and Charts
    '
    For Each sc In .Shapes
      Select Case sc.Name
        'Lock specific Shapes and Charts
        Case "Shape1", "Shape3", "Shape5", "etc", _
             "Chart2", "Chart4", "Chart6", "etc"
          sc.Locked = True
      End Select
    Next
    Range("A1").Select
    .Protect "abc"
  End With
  Application.ScreenUpdating = True
End Sub

Thanks so much, will be trying this out later today!!

 

[rsjury]

I guess the sheet is protected.
Change "abc" for the password of your sheet.

With the following, unlock all shapes and charts and lock specific shapes and charts.

Sub Lock_Shape_Chart()
  Dim sc As Shape
 
  Application.ScreenUpdating = False
  With ActiveSheet
    .Unprotect "abc"
    .Shapes.SelectAll
    Selection.Locked = False  'Unlock all Shapes and Charts
    '
    For Each sc In .Shapes
      Select Case sc.Name
        'Lock specific Shapes and Charts
        Case "Shape1", "Shape3", "Shape5", "etc", _
             "Chart2", "Chart4", "Chart6", "etc"
          sc.Locked = True
      End Select
    Next
    Range("A1").Select
    .Protect "abc"
  End With
  Application.ScreenUpdating = True
End Sub

This is what I ended up with! Thanks for your help it works perfect!

Sub ProtectTool()
    Dim SC As Shape
    
    Application.ScreenUpdating = False
    On Error Resume Next
    
    For Each ws In Worksheets
    With ws

        If Not ws.CodeName Like "Lock*" Then ws.Protect _
        DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, password:=AdminPW
        
        If ws.CodeName Like "Lock*" Then ws.Protect _
        Contents:=True, Scenarios:=True, AllowFiltering:=True, password:=pw
        For Each SC In .Shapes
        Select Case SC.Name
        Case "TotalChart", "IndianaChart", "CaliforniaChart"
        SC.Locked = False
        Case "Unprotect", "Protect" 'Buttons
        SC.Locked = True
        End Select
        Next SC
    End With
    Next ws
       
    ThisWorkbook.Protect password:=AdminPW, Structure:=True, Windows:=False
    
    On Error GoTo 0
    Application.ScreenUpdating = True
End Sub

 

[DanteAmor]

Glad we could help & thanks for the feedback