Proteger células específicas


#1

Olá a todos!
Preciso proteger todas as células coloridas em cinza e rosa de minha planilha, deixando nessas apenas as opções de selecionar e formatar colunas e linhas. Já tentei diversas vezes conforme vários tutoriais mas não obtive o resultado que queria.
Alguém poderia me ajudar?
Matriz de Risco


#2

Colega, veja se é isso:

Option Explicit

Sub Protect()
Dim i, lline, fline As Long

Plan1.Unprotect

fline = 6
lline = Plan1.Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To 49
    Select Case Cells(fline, i).Interior.ColorIndex
        Case Is = 2, 15
            Plan1.Range(Cells(fline, i), Cells(lline, i)).Locked = True
        Case Else
             Plan1.Range(Cells(fline, i), Cells(lline, i)).Locked = False
    End Select
Next i

Plan1.Protect _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
AllowFormattingColumns:=True, _
AllowFormattingRows:=True

End Sub

MATRIZ DE RISCO - ENSP Template_Acreditação v2.xlsm (92,4 KB)


#3

Olá xlarruda!
Pelo que entendi são comandos em DOS, é isso? Não entendo quase nada de programação. Não sei como aplicar esses comandos na minha planilha de Excel.


#4

Ultilizei a ferramenta VBA do excel para executar a rotina desejada de forma automatizada.
Faça o download do arquivo que anexei e veja se é o que deseja…


#5

Desculpe, mas não estou encontrando o arquivo.


#6

https://forum-luz-production.s3-sa-east-1.amazonaws.com/original/2X/c/c88cce5bf8cb8862411ef6a31691870861f59f08.xlsm


#7

Ok vou verificar meu amigo!