Notifications
Clear all

Macro

28 Posts
4 Usuários
0 Reactions
5,862 Visualizações
(@rogbrand)
Posts: 17
Active Member
Topic starter
 

Boa noite!

Preciso de uma ajuda.

Criei uma planilha para que meus estagiários pudessem marcar seu ponto. Nesta planilha, tenho uma macro que copia uma determinada celula e cola na outra, em outra planilha. Até aqui tudo bem. Ocorre, que tenho muitos "espertinhos" e tenho medo que os mesmos possam acessar posteriormente a planilha para alteração desses dados. Dito isso, preciso de uma ajuda para que quando eu entre na planilha a senha seja desabilitada, após a marcação, a senha volte a ser habilitada e assim impossibilite a edição dos dados.

Obrigado. ;)

Segue o cód. gravado no "botão marcar ponto":
---------------------------------------------------------------------------
Sub marcador()
'
' marcador Macro
'
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

End Sub

 
Postado : 01/08/2012 5:33 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/08/2012 6:11 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 01/08/2012 6:13 pm
(@rogbrand)
Posts: 17
Active Member
Topic starter
 

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.

 
Postado : 02/08/2012 9:10 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!!

Seria melhor disponibilizar seu arquivo COMPACTADO!!!!

aTT

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/08/2012 4:29 am
(@rogbrand)
Posts: 17
Active Member
Topic starter
 

Segue...

 
Postado : 03/08/2012 4:34 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!!

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

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/08/2012 4:49 am
(@rogbrand)
Posts: 17
Active Member
Topic starter
 

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.

 
Postado : 03/08/2012 9:03 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/08/2012 7:18 am
(@rogbrand)
Posts: 17
Active Member
Topic starter
 

SENHA "TESTE"

 
Postado : 04/08/2012 3:40 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/08/2012 4:19 pm
(@escuderia)
Posts: 179
Estimable Member
 

Bom dia a todos !!!

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

escuderia

 
Postado : 09/08/2012 7:23 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!
Disponibilizar o que??

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/08/2012 10:58 am
(@escuderia)
Posts: 179
Estimable Member
 

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 ?

 
Postado : 09/08/2012 12:39 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

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

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 09/08/2012 5:41 pm
Página 1 / 2