Duplicar hoja

20/09/2008 - 18:25 por Ignacio Perez | Informe spam
Hola a todos:
Necesito evitar que los usuarios de un libro puedan duplicar hojas.
El evento nueva hoja no se produce si lo que se hace es duplicar una de las
existentes de modo que a traves del nombre de la hoja y en el evento de
activacion de hoja he logrado esto:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Ficha (2)" Then
MsgBox "No se puede duplicar la Hoja Ficha." & Chr(13) & "Usa el boton
guardar datos y se guardaran los datos de cada recorrido.", vbInformation,
"Nueva hoja"
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End If
End Sub

Pero la duda me surge respecto al nombre que Excel asigna a una hoja
duplicada, en la version 2007, que es la que tengo añade " (2)" al nombre
con dos espacios entre medias pero y ¿en otras version es de Excel?, ¿hay
alguna otra posibilidad para evitar que se dupliquen hojas?

Un saludo
 

Leer las respuestas

#1 Ignacio Perez
20/09/2008 - 18:38 | Informe spam
Evidentemente protegiendo el libro, ¡¡que cabeza la mia!!

"Ignacio Perez" escribió:

Hola a todos:
Necesito evitar que los usuarios de un libro puedan duplicar hojas.
El evento nueva hoja no se produce si lo que se hace es duplicar una de las
existentes de modo que a traves del nombre de la hoja y en el evento de
activacion de hoja he logrado esto:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Ficha (2)" Then
MsgBox "No se puede duplicar la Hoja Ficha." & Chr(13) & "Usa el boton
guardar datos y se guardaran los datos de cada recorrido.", vbInformation,
"Nueva hoja"
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End If
End Sub

Pero la duda me surge respecto al nombre que Excel asigna a una hoja
duplicada, en la version 2007, que es la que tengo añade " (2)" al nombre
con dos espacios entre medias pero y ¿en otras version es de Excel?, ¿hay
alguna otra posibilidad para evitar que se dupliquen hojas?

Un saludo

Preguntas similares