Notifications
Clear all

ajuda em planilha de registro diário

5 Posts
2 Usuários
0 Reactions
905 Visualizações
(@bigboss)
Posts: 6
Active Member
Topic starter
 

preciso de uma ajuda a fim de montar uma planilha de registro de fatos diários
sendo ao efetuar o registro e salvar, os campos preenchidos fiquem travados só sendo permitido a edição
digitando uma "senha".
seria possivel?

 
Postado : 02/12/2015 2:06 pm
(@miguel-70)
Posts: 207
Estimable Member
 

Veja o modelo se lhe atende, só trava texto para travar as formula é preciso usar outro texto no código.

 
Postado : 02/12/2015 5:16 pm
(@miguel-70)
Posts: 207
Estimable Member
 

li o teu enunciado com mais atenção então fiz algumas alterações, agora quanto as formulas das colunas A, B e C ainda não conseguir resolver mas veja o modelo estou a disposição para ti ajudar.
Senha para Editar, Apagar = 1111
Os código no Visual Basic é necessário ficar protegido, para visualizar abra o Visual Basic e vá em propriedade e click com a direita e digite a senha é = 0000

 
Postado : 02/12/2015 8:13 pm
(@bigboss)
Posts: 6
Active Member
Topic starter
 

Miguel, obrigado por responder.
Ficou boa, quase lá,rs, só preciso que vc, se possível, faça um ajuste conforme explico, aí sim ficará perfeita, se não puder avisa que considerarei resolvido, pois utilizei de outra forma sua ideia.

 
Postado : 02/12/2015 9:50 pm
(@miguel-70)
Posts: 207
Estimable Member
 

Utilize este código vai proteger Texto e as Formulas.

Private Sub Worksheet_Change(ByVal Target As Range) 'Código bloqueia formula e texto
Dim rng As Range
ActiveSheet.Unprotect Password:="1111"
Cells.Locked = False
On Error Resume Next
Set rng = Cells.SpecialCells(XlCellTypeText)
Set rng = Cells.SpecialCells(xlCellTypeFormulas)
If Err.Number > 0 Then
Set rng = Cells.SpecialCells(xlCellTypeConstants)
Set rng = Union(rng, Cells.SpecialCells(XlCellTypeText))
Set rng = Union(rng, Cells.SpecialCells(xlCellTypeFormulas))
Else
End If
On Error GoTo 0
If Not rng Is Nothing Then rng.Locked = True
ActiveSheet.Protect Password:="1111"
ActiveWorkbook.Save
End
End Sub

Se vc usar código no filtro para pesquisa, assim fica liberado sem a necessidade de senha. Pesquise no fórum ou então abra outro tópico tem muita gente boa para ti ajudar.

 
Postado : 03/12/2015 12:10 pm