Advertir sobre Macros

Hola

El problema es que tienes doble la definicion de Sub WorkBook_Open

Visual Basic es un lenguaje que se conduce por eventos, en este caso el
evento es "Al Abrir el libro", es decir que cuando se abre el libro se
dispara el codigo colocado en WorkBook_Open, de forma que la programacion en
VB a diferencia de hace muchos años, que tenia una structura secuenciada,
ahora es conducida por eventos, asi pues, el programador debe estar alerta a
los diferentes eventos que se suciten para responder con codigo a ellos.

un evento es digamoslo asi un suceso, algo que le ocurre a un objeto, en
este caso el objeto es el libro y el susceso es abrirlo.

por ponerte un ejemplo de la vida cotidiana, un objeto puede ser un auto, y
un evento o suceso puede ser que choque, en cuyo caso, se tienen una
respuesta programada que sería activar las bolsas de aire.

de igual forma tu programacion debe responder a los eventos que le ocurran a
tus objetos, en excel todo es un objeto, el libro, la hoja de calculo, las
celdas, una seleccion, etc...

para la version de Visual Basic que se esta utilizando solo puede haber un
"procedimiento de envento" que responda a dicho suceso, el problema es que
estas repitiendo el WorkBook_Open, de forma que Excel no sabe cual de los
dos codigos ejecutar, une el codigo de ambos en un solo procedimiento asi.


Private Sub Workbook_Open()
Dim h As Worksheet
For Each h In ThisWorkbook.Worksheets
h.Visible = xlSheetVisible
Next
'al final oculta la hoja 2, para que asegurar que exista al menos una
Visible
ThisWorkbook.Worksheets("Hoja2").Visible = xlSheetVeryHidden

Worksheets("Ayuda").Activate
Bienvenida
End Sub



Saludos



"Luis Caro" escribió en el mensaje
news:ey$

Hola Carlos.He colocado la instrucción que me enviaste para la advertencia
sobre Macros.
Te coloco otras instrucciones que tenía en ThisWorkBook,y al introducir la
que me enviaste me da un error de compilación.
Quedó así:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim h As Worksheet
' primero hace visible la hoja3 ya que no puede ocultar todas
ThisWorkbook.Worksheets("Hoja2").Visible = xlSheetVisible
For Each h In ThisWorkbook.Worksheets
If h.Name <> "Hoja2" Then
h.Visible = xlSheetVeryHidden
End If
Next
End Sub

Private Sub Workbook_Open()
Dim h As Worksheet
For Each h In ThisWorkbook.Worksheets
h.Visible = xlSheetVisible
Next
'al final oculta la hoja 2, para que asegurar que exista al menos una
Visible
ThisWorkbook.Worksheets("Hoja2").Visible = xlSheetVeryHidden
End Sub

Private Sub Workbook_Open()
Worksheets("Ayuda").Activate
Bienvenida
End Sub
Sub Bienvenida()
MsgBox "Autor: Luis Guillermo Uribe S. Ingeniero Industrial" & vbCrLf &
_
"Empresa: Programas en Computador" & vbCrLf & _
"Este Programa está Registrado y Protegido por las Leyes de Autor. Su
reproducción está prohibida sin el consentimiento del Autor" & vbCrLf & _
"Instrucciones: La Ayuda lo guiará para su manejo adecuado"
End Sub

Debe haber un error por la posición.
El error que me muestra es error de compilación,Se ha detectado un nombre
ambiguo Wokbook_Open
Yo no sé nada de Visual Basic,por lo que te solicito me expliques un poco
con respecto a lo anterior,para aprender un poco.
Mil Gracias.

Cordialmente
Luis Caro

No somos 3.Quitar NOSPAMEPM.Poner epm.y el resto
http://usuarios.lycos.es/maderascolombianas2/
http://www.geocities.com/maderascolombianas2002

Hola Carlos.
Lo puse así, y me dice: Error de compilación No se ha definido Sub o
Function.

Private Sub Workbook_Open()
Dim h As Worksheet
For Each h In ThisWorkbook.Worksheets
h.Visible = xlSheetVisible
Next
'al final oculta la hoja 2, para que asegurar que exista al menos una
Visible
ThisWorkbook.Worksheets("Hoja2").Visible = xlSheetVeryHidden
Worksheets("Ayuda").Activate
Bienvenida
End Sub
Sub Bienvenida()
MsgBox "Autor: Luis Guillermo Uribe S. Ingeniero Industrial" & vbCrLf &
_
"Empresa: Programas en Computador" & vbCrLf & _
"Este Programa está Registrado y Protegido por las Leyes de Autor. Su
reproducción está prohibida sin el consentimiento del Autor" & vbCrLf & _
"Instrucciones: La Ayuda lo guiará para su manejo adecuado"
End Sub

Cordialmente
Luis Caro

No somos 3.Quitar NOSPAMEPM.Poner epm.y el resto
http://usuarios.lycos.es/maderascolombianas2/
http://www.geocities.com/maderascolombianas2002

pues a simple vista parece ser alguno de los comentarios el que esta mal,
por ejemplo desde aqui alcanzo a ver algo que dice "Visible" pero no tiene
apostrofe, solo es cuestion de poner el apostrofe al principio de la linea
para que no te marque ese error... te lo marco entre lineas...

"Luis Caro" escribió en el mensaje
news:

Hola Carlos.
Lo puse así, y me dice: Error de compilación No se ha definido Sub o
Function.

Private Sub Workbook_Open()
Dim h As Worksheet
For Each h In ThisWorkbook.Worksheets
h.Visible = xlSheetVisible
Next
'al final oculta la hoja 2, para que asegurar que exista al menos una
Visible <<<<< PARECE ESTAR AQUI EL
PROLLEMA
ThisWorkbook.Worksheets("Hoja2").Visible = xlSheetVeryHidden
Worksheets("Ayuda").Activate
Bienvenida
End Sub
Sub Bienvenida()
MsgBox "Autor: Luis Guillermo Uribe S. Ingeniero Industrial" & vbCrLf &
_
"Empresa: Programas en Computador" & vbCrLf & _
"Este Programa está Registrado y Protegido por las Leyes de Autor. Su
reproducción está prohibida sin el consentimiento del Autor" & vbCrLf & _
"Instrucciones: La Ayuda lo guiará para su manejo adecuado"
End Sub

Cordialmente
Luis Caro

No somos 3.Quitar NOSPAMEPM.Poner epm.y el resto
http://usuarios.lycos.es/maderascolombianas2/
http://www.geocities.com/maderascolombianas2002