none
Proteger um intervalo de celulas preenchidas apos salvar? RRS feed

  • Pergunta

  • ola! Pessoal boa noite.

    Sou novo aqui no fórum, mas tenho acompanhado já a um tempo, bem estou com um problema no meu trabalho que gostaria de resolver mas não sei como, e queria  ajuda, se alguém souber.

    Então, tenho uma planilha compartilhada onde são feitos lançamentos diários por mais de uma pessoa e que ocorre o travamento da célula logo a pois seu preenchimento, E eu queria que esse travamento da célula ocorresse logo apos salvar.

    Tenho usado esse Código:

    Private Sub Worksheet_Change(ByVal Target As Range)
    Target.Select
    If Target.Column = 1 Or 6 Or 7 Or 9 Or 10 Or 11 Or 12 Or 13 Or 14 Or 15 Or 16 Or 17 Or 18 Or 21 Or 22 Or 25 Then ' O número se refere à coluna em que o código funcionará.
    If IsNumeric(ActiveCell.Value) Then
    Sheets("CONTROLE CX").Unprotect Password:="andares1319" ' Senha da planilha
    Selection.Locked = True
    Sheets("CONTROLE CX").Protect Password:="andares1319", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True
    End If
    End If
    End Sub

    Esse código tem sido usado mas não ta viável pela quantidade de informações que temos lançada diariamente, sempre se erra um lançamento e temos que destravar a planilha.

    Desde de já Agradeço.

    terça-feira, 4 de outubro de 2016 02:43

Todas as Respostas

  • Olá Felipe!

    Você pode trabalhar seu código no módulo da pasta de trabalho, utilizando o evento BeforeSave. Por exemplo:

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sheets("CONTROLE CX").Protect Password:="andares1319", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True, AllowFiltering:=True
    End Sub



    Rafael Kamimura - http://excelmaniacos.com

    terça-feira, 4 de outubro de 2016 17:41