Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Proteger planilha
 
Notifications
Clear all

Proteger planilha

 
2024 - VBA & Macros
Post Recente por cleiton jm 12 anos atrás
5 Posts
2 Usuários
0 Reactions
1,237 Visualizações
RSS
 cleiton jm
(@cleiton-jm)
Posts: 115
Estimable Member
Topic starter
 

Boa tarde a todos do forum,
Preciso de uma forçinha de vcs, creio que pelo vba, e alguem crack no assunto é possivel que esto querendo ajeitar, funciona assim:

Eu tenho uma planilha quando eu rodo uma macro automaticamente como esse codigo "unprotect"123" desprotege a plan faz as alterações que preciso e volto a proteger "protect"123"...Eu preciso usar uma proteção com alguns comando tipo assim:a primeira linha da planilha "A1:J1 e a coluna K inteira ficara protegida usando o camando Eableselection = NoRestrictions, o restante das celulas que seria ("A2:J65536") seria protegido com a função Eableselection = xlNoSlection, para mim poder selecionar as celulas que estaria nesse intervalo

Obs; da coluna K para frente, não tenho informações, as colunas são ocultas

Alguem sabe como resolver, ou tem outra ideia de como resolver isso..

abraço a todos
att

 
Postado : 16/08/2012 11:46 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

O ideal seria ter postado as rotinas para se saber qual a extrutura e paramentros está utilizando, mas de uma olhada no link abaixo tem as opções que podem seer utilizadas com o Metodo Protect :

Macro proteger planilha com senha
viewtopic.php?f=16&t=2569&p=20342&hilit=protect#p20342

[]s

 
Postado : 16/08/2012 5:51 pm
 cleiton jm
(@cleiton-jm)
Posts: 115
Estimable Member
Topic starter
 

Mauro Coutinho segue em anexo o projeto, to tentando resolver, até agora não tive sucesso...

Obrigado até agora pela ajuda..

abraçosss
att

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

Boa noite!!

Faça os teste....

Private Sub txtData_Change()
ActiveSheet.Unprotect "123"
If Txtdata.Text <> "" And IsDate(Txtdata.Text) And IsDate(TxtAte.Text) Then
Selection.AutoFilter Field:=7, Criteria1:=">=" & Format(Txtdata.Text, "mm/dd/yyyy"), Operator:=xlAnd, Criteria2:="<=" & Format(TxtAte.Text, "mm/dd/yyyy")
Else
Selection.AutoFilter Field:=7
End If
Range("A1:J" & Rows.Count).Locked = True
    ActiveSheet.Protect "123"
End Sub
 
Postado : 17/08/2012 5:18 pm
 cleiton jm
(@cleiton-jm)
Posts: 115
Estimable Member
Topic starter
 

Não deu certo alexandre, a linha 1 e a coluna K, continuo conseguido selecionar as celulas
O certo era poder selecionar as celulas do intervalo "A2:J65536", o restante das celulas a pessoa não conseguir selecionar as celulas, deixar elas inativas vamos dizer assim...

obrigado pelo ajudaa.
att

 
Postado : 18/08/2012 6:17 am
Forum Jump:
  Tópico Anterior
Próximo Tópico