Mercado De TI

DESMARCANDO AS CÉLULAS DA PLANILHA PARA O BLOQUEIO

1. Selecione todas as células da planilha;

2. Clique com o botão direito do mouse em qualquer uma das células;

3. No menu que se abre, clique na opção "Formatar Células";

4. Vá até a aba chamada "Proteção";

5. Desmarque "Bloqueadas";

6. Clique em OK para salvar suas modificações;

MARCANDO AS CÉLULAS DA PLANILHA PARA O BLOQUEIO

1. Selecione as células que você quer bloquear;

2. Clique com o botão direito do mouse em cima da aba da planilha atual;

3. No menu que abre clique em "Selecionar todas as planilhas";

4. Clique com o botão direito do mouse em umas das células selecionadas;

5. No menu que se abre, clique na opção "Formatar Células";

6. Vá até a aba chamada "Proteção";

7. Marque "Bloqueadas";

8. Clique em OK para salvar suas modificações;

PROTEGENDO AS PLANILHAS

1. Clique com o botão direito do mouse em cima da aba da planilha atual;

2. No menu que abre clique em "Exibir Código";

3. Na nova janela que abre, inserir o seguinte código abaixo:

Sub ProtegerTodas()

Dim i As Integer

For i = 1 To Sheets.Count

Sheets(i).Activate

ActiveSheet.Protect ("atp")

Next

End Sub

4. Mandar salvar ;

5. Pronto, planilhas protegidas;

DESPROTEGENDO AS PLANILHAS

1. Clique com o botão direito do mouse em cima da aba da planilha atual;

2. No menu que abre clique em "Exibir Código";

3. Na nova janela que abre, inserir o seguinte código abaixo:

Sub desproteger_todas_planilhas()

Dim i As Integer

' faz um loop nas planilhas padrão do excel

' caso haja mais do que 03 planilhas a serem desprotegidas altere o numero 3 pra a quantidade desejada

For i = 1 To 3

Sheets(i).Unprotect Password:="atp" ' onde atp é a senha informada

Next i

MsgBox "Planilhas desprotegidas com sucesso!!!" ' mensagem opcional

End