Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
OCULTAR LINHA BLOQU...
 
Notifications
Clear all

OCULTAR LINHA BLOQUEADA E PROTEGIDA

 
2024 - VBA & Macros
6 Posts
1 Usuários
0 Reactions
3,177 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá pessoal, preciso da ajuda de vocês novamente, agora a problema é:

1º) Usei a macro abaixo em um botão para o 1º clique ocultar e 2º clique mostrar em um intervalo de linhas, mas também preciso que as linhas estejem bloqueadas e a planilha protegida, mas quando clico para mostrar ou ocultar esta aparecendo o erro em tempo de execução '1004: Não é possível definir a propriedade Hidden da classe Range.
2º) Preciso também que no momento da execução de ocultar ou mostrar não apareça os dados debaixo do gráfico.

Sub Retângulo1_Clique()
Application.ScreenUpdating = False

If Rows("10:20").EntireRow.Hidden = True Then
Rows("10:20").EntireRow.Hidden = False
ElseIf Rows("10:20").EntireRow.Hidden = False Then
Rows("10:20").EntireRow.Hidden = True
End If
Application.ScreenUpdating = True

End Sub

silva_jmp

Planilhando.rar

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

 
Postado : 11/02/2013 3:33 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Já tenteou...

Sub Button1_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Plan1.Unprotect Password:="aleVBA" '<-- tente assim..
If Rows("10:20").EntireRow.Hidden = True Then
Rows("10:20").EntireRow.Hidden = False
ElseIf Rows("10:20").EntireRow.Hidden = False Then
Rows("10:20").EntireRow.Hidden = True
End If
Plan1.Protect Password:="aleVBA" '<-- tente assim..

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

http://www.sendspace.com/file/xfr2gj
Att

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

 
Postado : 11/02/2013 4:55 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre, obrigado por me ajudar, deu certo, porém não sei se é placa de vídeo ou coisa semelhante, quando mostramos o gráfico ainda da aquela piscadinha aparecendo os dados embaixo do gráfico, mas não dá nada não, já me atende.

Valeu :lol:

silva_jmp

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

 
Postado : 11/02/2013 7:13 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Ao fazer o teste no i5, não tem como ver, porém o tratamento deve ser outro, pois pela lógica isso deve acontecer.
Aquarde para ver se mais alguém possa ajuda-lo!
Att

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

 
Postado : 11/02/2013 7:25 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre, ao aplicar em meu projeto esta dando erro em tempo de execução '1004: A senha fornecida não esta correta. Verifique se a tecla CAPS LOCK está desativada e certifique-se de que o uso de maiúsculo está correto. E ao depurar o erro destaca Plan1.Unprotect Password:="aleVBA" '<-- tente assim..

silva_jmp

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

 
Postado : 11/02/2013 7:37 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Reveja suas restrições.

Tenha certeza de que o livro e a guia não tenha restrição.

Att

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

 
Postado : 11/02/2013 7:46 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico