Boa tarde meus amigos, me chamo Rafael e sou novo por aqui!!!

Tenho uma planilha que trabalho diariamente de forma compartilhada com uma equipe através do DROPBOX, porem algumas linhas (24 a 32) não devem ser visualizadas por todos, apenas por mim.

Inicialmente criei/montei uma macro (copiando códigos pesquisados) para ocultar as barras de comando e proteger algumas celulas de forma a torna-la um "formulario de preenchimento" e agora gostaria que me ajudassem a inserir linhas de comando de modo que ao executar a macro PROTEGER automaticamente as linhas 24 a 32 ficassem ocultas em TODAS as PLANILHAS e que quando eu executasse a macro DESPROTEGER as linhas de 24 a 32 fossem reexibidas, tambem em todas, para que eu possa trabalhar.

Abaixo envio o codigo que tenho usado no estado em que travei.

Agradeço demais a ajuda

Sub Proteger()

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
    'AQUI TENTEI OCULTAR E NAO CONSEGUI
    Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", _
        "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25")).Select
    Sheets("01").Activate
    Sheets(Array("26", "27", "28", "29", "30", "31", "R E S U M O")).Select Replace:= _
        False
    Rows("24:32").Select
    Range("C24").Activate
    Selection.EntireRow.Hidden = True
    Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", _
        "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25")).Select
    Sheets("01").Activate
    Sheets(Array("26", "27", "28", "29", "30", "31", "R E S U M O")).Select Replace:= _
        False
    Sheets("01").Select
    
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

    'Oculta todas as guias de menu
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    
    'Ocultar barra de fórmulas
    Application.DisplayFormulaBar = False
    
    'Ocultar barra de status, disposta ao final da planilha
    Application.DisplayStatusBar = False
    
    'Alterar o nome do Excel
    Application.Caption = "MODO DE TRABALHO DO BAR"
    
    With ActiveWindow
        
        'Oculta os títulos de linha e coluna
        .DisplayHeadings = False
        
        'Oculta valores zero na planilha
        .DisplayZeros = False
        
        'Oculta as linhas de grade da planilha
        .DisplayGridlines = False
    End With
    
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
    
    Dim Planilha As Worksheet
    Dim Senha As String
    
    Senha = 1234
    For Each Planilha In Worksheets
        Planilha.Protect Senha
    Next
    
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

End Sub
-------------------------------------------------------------------------------------------------------------------------
Sub Desproteger()

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

    Dim Planilha As Worksheet
    Dim Senha As String
    
    Senha = 1234
    For Each Planilha In Worksheets
        Planilha.Unprotect Senha
    Next
    
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

'Reexibe os menus
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    
    'Reexibir a barra de fórmulas
    Application.DisplayFormulaBar = True
    
    'Reexibir a barra de status, disposta ao final da planilha
    Application.DisplayStatusBar = True
    
    'Reexibir o cabeçalho da Pasta de trabalho
    ActiveWindow.DisplayHeadings = True
    
    'Retornar o nome do Excel
    Application.Caption = ""
    
    With ActiveWindow
        'Reexibir barra horizontal
        .DisplayHorizontalScrollBar = True
        
        'Reexibir barra vertical
        .DisplayVerticalScrollBar = True
        
        'Reexibir guias das planilhas
        .DisplayWorkbookTabs = True
        
        'Reexibir os títulos de linha e coluna
        .DisplayHeadings = True
        
        'Reexibir valores zero na planilha
        .DisplayZeros = True
        
        'Reexibir as linhas de grade da planilha
        .DisplayGridlines = True
    End With
 
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

    Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", _
        "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25")).Select
    Sheets("01").Activate
    Sheets(Array("26", "27", "28", "29", "30", "31", "R E S U M O")).Select Replace:= _
        False
    Rows("23:33").Select
    Selection.EntireRow.Hidden = False
    Range("D25:N31").Select
    Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", _
        "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25")).Select
    Sheets("01").Activate
    Sheets(Array("26", "27", "28", "29", "30", "31", "R E S U M O")).Select Replace:= _
        False
    Sheets("01").Select

'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

End Sub