Boa noite

Seja bem vindo ao fórum!

Uma saída para o teu problema seria vc proteger a planilha com senha, e colocar estas linhas de código no início e no final da tua macro .
Este código desbloqueia a planilha para execução da Macro e depois volta a bloquear a planilha.

no início, logo após o nome da macro docoloque este código:

'comando que desprotege a planilha, no caso a senha é TESTE
ActiveSheet.Unprotect "TESTE"

No final da macro antes do End Sub:

'comando que protege a planilha
ActiveSheet.Protect "TESTE"

Substitua a palavra TESTE pela senha da tua planilha.

Seu código ficará assim:

Sub marcador()
'
' marcador Macro
'comando que desprotege a planilha, no caso a senha é TESTE
ActiveSheet.Unprotect "TESTE"
Application.Goto Reference:="dados_ponto"
Selection.Copy
Sheets("Banco de Dados").Select
Application.Goto Reference:="R5C2"
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Save
Sheets("Marcador").Select
Range("J8").Select
Selection.ClearContents
'comando que protege a planilha
ActiveSheet.Protect "TESTE"
End Sub

Dê retorno.

Se a resposta foi útil, clique na mãozinha que fica ao lado da ferramenta Citar.

Tópicos que vc deve tomar conhecimento:

viewtopic.php?f=7&t=3784
viewtopic.php?f=7&t=3841

Um abraço.

Boa noite!!

Você consegue adaptar esse exemplo?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim NewValue As Variant, OldValue As Variant
    If Target.Count > 1 Then Exit Sub
     'Altere de acordo com sua necessidade
    If Not Intersect(Target, Range("A1:F10")) Is Nothing Then
        NewValue = Target.Value
        Application.EnableEvents = False
        Application.Undo
        OldValue = Target.Value
        If OldValue <> "" Then
            MsgBox "Você não pode alterar o conteudo da celula.", 16, "Células Bloqueadas"
            Target.Value = OldValue
        Else
            Target.Value = NewValue
        End If
        Application.EnableEvents = True
    End If
End Sub

Amigo, não deu certo... depois que incluo o comando que me enviaste, dá o seguinte erro quando bloqueio, fecho e retorno a fazer a marcação (ver imagem em anexo):

O que pode estar dando errado?

Um abraço.

Bom dia!!!

Seria melhor disponibilizar seu arquivo COMPACTADO!!!!

aTT

Segue...

Bom dia!!!

Deposite seu arquivo xlsm e NÃO sua imagem !!!!

Att

Oi Alexandre,
Sem querer eu havia digitado uma letra errada no cód. por isso não consegui... O que ocorre agora, a rotinha bloqueia apenas a PLAN1, mas preciso que todas fiquem bloqueadas após o clique do botão... Consegue me ajudar? Abração e um ótimo final de semana para vc.

Bom dia!!!

Sem olhar tua planilha já sei que não vai adiantar responde pelo que você fala, já sei que sua planilha deve ter código para isso e para aquilo.

Toda a vez que temos rotinas alheias isso, acontece.

Ex: eu preciso de código para "X" , eu preciso de código para "W", quem te responde pensa numa coisa genérica e não tão dinâmica, justamente porque na primeira vez vc pede "X", no final vc precisa de "Y", e por conta "X", "W", o "Y" não funciona.

Resumindo, mande o arquivo considerando que todos os recursos aplicados esteja nele!!!

Att

SENHA "TESTE"

Boa noite!!

Agora que fui prestar atenção em um detalhe, o código que o Patropi te mandou não funciona???

Eu mandei quase a mesma coisa....
Att

Bom dia a todos !!!

Estava dando uma olhada e achei muito interessante esse ponto, será que tem como disponibilizar para que possamos utilizar?

escuderia

Boa tarde!!
Disponibilizar o que??

Att

a planilha em questão Folha ponto_Estagiários, pois aqui esta dando erro ..... achei muito interessante para poder adaptar aqui na empresa !!!!!! será que tem como ?

Boa noite!!

Veja se a versão dele contra a sua está dando incompatibilidade...

Att