Detectar Versión de Excel

Ya encontre la respuesta. La expongo por si a alguién mas
le interesa.

Sub Filtros()
If Val(Application.Version) > 9 Then
'si la Versión es XP o 2003 Proteje la Hoja
Habilitando los Filtros
Range(Cells(BOF - 1, BOC), Cells(EOF, EOC)).AutoFilter
ActiveSheet.Protect Password:="pass",
DrawingObjects:=True, Contents:=True, Scenarios:=True,
AllowFiltering:=True
Else
'Si la versión es 2000 o menor Solo proteje la Hoja
ActiveSheet.Protect Password:="pass",
DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

Saludos,

Buenos días foristas,

Necesito una ayudita para ver como se detecta a través

de

una Macro la Versión de Excel que estoy corriendo.

Lo que necesito es correr un codigo si la versión es XP

o

superior.

Gracias
.

Camilo,

No se si lo sabias y esa era la idea, pero al menos en XL2000 (tal vez en 97
tambien) se puede habilitar el AutoFiltro mientras la hoja esta protegida
mediante el siguiente codigo:

With ActiveSheet
.EnableAutoFilter = True
.Protect userinterfaceonly:=True, _
password:="pass"
End With

Saludos,
KL

"Camilo Bathory" wrote in message
news:136b01c4f1b5$61888cd0$
Ya encontre la respuesta. La expongo por si a alguién mas
le interesa.

Sub Filtros()
If Val(Application.Version) > 9 Then
'si la Versión es XP o 2003 Proteje la Hoja
Habilitando los Filtros
Range(Cells(BOF - 1, BOC), Cells(EOF, EOC)).AutoFilter
ActiveSheet.Protect Password:="pass",
DrawingObjects:=True, Contents:=True, Scenarios:=True,
AllowFiltering:=True
Else
'Si la versión es 2000 o menor Solo proteje la Hoja
ActiveSheet.Protect Password:="pass",
DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub

Saludos,

Buenos días foristas,

Necesito una ayudita para ver como se detecta a través

de

una Macro la Versión de Excel que estoy corriendo.

Lo que necesito es correr un codigo si la versión es XP

o

superior.

Gracias
.