Bom dia amigos sempre de plantão! Tenho uma série de planilhas integradas, que dentre outras, possui essa macro abaixo com finalidade de ocultar as linhas que retornam vazias. A macro atende a necessidade, desde que a planilha não esteja protegida. Ocorre que é extremamente necessário que as planilhas estejam protegidas durante a operação. Será que tem jeito??
Agradeço a atenção e qualquer ajuda.
Private Sub CommandButton1_Click()
Ocultar
End Sub
Sub Oculta()
Dim i As Integer
For i = 1 To 165
If Range("A" & i).Value = "" Then
Rows(i & ":" & i).Select
Selection.EntireRow.Hidden = True
Else
End If
Next i
End Sub
Sub Mostrar()
Cells.Select
Selection.EntireRow.Hidden = False
Range("A1").Select
End Sub
cacau123
Novo Membro
Registrado
3 Mensagens
1 Curtida