Access - Macro no funciona

   
Vista:

Macro no funciona

Publicado por lursaildi (16 intervenciones) el 29/06/2015 19:05:49
Tengo la siguiente macro pero no me funciona con la hoja bloqueada pero si funciona si la desbloqueo a mano antes de activar macro , cual puede ser el error ya que teoricamente esta macro esta preparada para desbloquear al entrar la macro y volver a bloquear cuando termine la macro.
Gracias por anticipado


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Desbloquear()
 
  Sheets("Peticion Ensayos").Select 'Selecciona la Hoja1
 
  ActiveSheet.Unprotect 'Desprotege la hoja activa. Sin contraseña
 
End Sub
 
Public Sub OcultarLineasVacias()
 
 Dim rng As Range
 Dim intLastCol As Integer
 Dim intLastRow As Integer
 Dim blnEmptyRow As Boolean
 Dim i As Integer
 Dim j As Integer
 
 Set rng = Selection.SpecialCells(xlCellTypeLastCell)
 intLastCol = rng.Column
 intLastRow = rng.Row
 
 For i = 1 To intLastRow
 
   blnEmptyRow = True
   For j = 1 To intLastCol
 
       If Cells(i, j).Value <> "" Then
          blnEmptyRow = False
          Exit For
       End If
   Next
 
   If blnEmptyRow Then
      Cells(i, j).EntireRow.Hidden = True
   End If
 Next
 
End Sub
Sub Protejer()
 
  Sheets("Peticion Ensayos").Select 'Selecciona la Hoja1
 
  ActiveSheet.Protect 'Protege la hoja activa.
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Macro no funciona

Publicado por Enrique Heliodoro (1663 intervenciones) el 29/06/2015 20:18:38
O bien mi ordenador interpreta el original como le apetece, o bien esa rutina de código es mas propia de Excel que de Access
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Macro no funciona

Publicado por lursaildi (16 intervenciones) el 29/06/2015 20:33:56
Perdon tienes razon cerrado tema
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de douglas

Macro no funciona

Publicado por douglas (280 intervenciones) el 30/06/2015 01:21:23
Es correcto es un macro de excell VBA
si mandas el excell te lo arreglo por así de vista al código no le vi el error


Un saludo...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar