Como proteger hoja excel con macro

[lphant]

Buenos días, a ver quien me puede echar una mano, quiero proteger una hoja Excel con macro y después desprotegerla para realizar ciertos cambios, la cosa es que yo lo he hecho grabando y si no pongo contraseña funciona, pero con la contraseña ni idea ya que cuando la grabo no graba la contraseña, se puede hacer con contraseña??, y como??.

Esto el lo que he usado;

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _

False, AllowFiltering:=True, AllowUsingPivotTables:=True

ActiveSheet.EnableSelection = xlNoSelection

ActiveSheet.Unprotect

Muchas gracias de antemano.

[Antoni]

Hola:

Directamente de la Ayuda de Excel-VBA.

[TABLE=width: 100%]

[TR]

[TD=align: left]Referencia del programador de Excel[/TD]

[/TR]

[TR]

[TD=align: left]WorkSheet.Protect (método)[/TD]

[/TR]

[/TABLE]

Protege una hoja de cálculo para que no se pueda modificar.Sintaxis

expresión.Protect(Password, DrawingObjects, Contents, Scenarios, UserInterfaceOnly, AllowFormattingCells, AllowFormattingColumns, AllowFormattingRows, AllowInsertingColumns, AllowInsertingRows, AllowInsertingHyperlinks, AllowDeletingColumns, AllowDeletingRows, AllowSorting, AllowFiltering, AllowUsingPivotTables)

expresión Variable que representa un objeto WorkSheet.

Parámetros

[TABLE]

[TR]

[TH]Nombre[/TH]

[TH]Obligatorio/Opcional[/TH]

[TH]Tipo de datos[/TH]

[TH]Descripción[/TH]

[/TR]

[TR]

[TD=class: mainsection]Password[/TD]

[TD=class: mainsection]Opcional[/TD]

[TD=class: mainsection]Variant[/TD]

[TD=class: mainsection]Cadena que especifica una contraseña de la hoja de cálculo o del libro (se distingue entre mayúsculas y minúsculas). Si no se especifica este argumento, puede desproteger la hoja de cálculo o el libro sin utilizar una contraseña. De lo contrario, debe especificar la contraseña para desproteger la hoja de cálculo o el libro. Si olvida la contraseña, no puede desproteger la hoja de cálculo o el libro.[/TD]

[/TR]

[TR]

[TD=class: mainsection]DrawingObjects[/TD]

[TD=class: mainsection]Opcional[/TD]

[TD=class: mainsection]Variant[/TD]

[TD=class: mainsection]True para que las formas estén protegidas. El valor predeterminado es True.[/TD]

[/TR]

[TR]

[TD=class: mainsection]Contents[/TD]

[TD=class: mainsection]Opcional[/TD]

[TD=class: mainsection]Variant[/TD]

[TD=class: mainsection]True para que el contenido esté protegido. En un gráfico, protege el gráfico completo. En una hoja de cálculo, protege las celdas bloqueadas. El valor predeterminado es True.[/TD]

[/TR]

[TR]

[TD=class: mainsection]Scenarios[/TD]

[TD=class: mainsection]Opcional[/TD]

[TD=class: mainsection]Variant[/TD]

[TD=class: mainsection]True para que los escenarios estén protegidos. Este argumento sólo es válido para hojas de cálculo. El valor predeterminado es True.[/TD]

[/TR]

[TR]

[TD=class: mainsection]UserInterfaceOnly[/TD]

[TD=class: mainsection]Opcional[/TD]

[TD=class: mainsection]Variant[/TD]

[TD=class: mainsection]True para proteger la interfaz de usuario, pero no las macros. Si no se especifica este argumento, la protección se aplica tanto a las macros como a la interfaz de usuario.[/TD]

[/TR]

[TR]

[TD=class: mainsection]AllowFormattingCells[/TD]

[TD=class: mainsection]Opcional[/TD]

[TD=class: mainsection]Variant[/TD]

[TD=class: mainsection]True permite al usuario aplicar formato a cualquier celda de una hoja de cálculo protegida. El valor predeterminado es False.[/TD]

[/TR]

[TR]

[TD=class: mainsection]AllowFormattingColumns[/TD]

[TD=class: mainsection]Opcional[/TD]

[TD=class: mainsection]Variant[/TD]

[TD=class: mainsection]True permite al usuario aplicar formato a cualquier columna de una hoja de cálculo protegida. El valor predeterminado es False.[/TD]

[/TR]

[TR]

[TD=class: mainsection]AllowFormattingRows[/TD]

[TD=class: mainsection]Opcional[/TD]

[TD=class: mainsection]Variant[/TD]

[TD=class: mainsection]True permite al usuario aplicar formato a cualquier fila de una hoja de cálculo protegida. El valor predeterminado es False.[/TD]

[/TR]

[TR]

[TD=class: mainsection]AllowInsertingColumns[/TD]

[TD=class: mainsection]Opcional[/TD]

[TD=class: mainsection]Variant[/TD]

[TD=class: mainsection]True permite al usuario insertar columnas en una hoja de cálculo protegida. El valor predeterminado es False.[/TD]

[/TR]

[TR]

[TD=class: mainsection]AllowInsertingRows[/TD]

[TD=class: mainsection]Opcional[/TD]

[TD=class: mainsection]Variant[/TD]

[TD=class: mainsection]True permite al usuario insertar filas en una hoja de cálculo protegida. El valor predeterminado es False.[/TD]

[/TR]

[TR]

[TD=class: mainsection]AllowInsertingHyperlinks[/TD]

[TD=class: mainsection]Opcional[/TD]

[TD=class: mainsection]Variant[/TD]

[TD=class: mainsection]True permite al usuario insertar hipervínculos en una hoja de cálculo protegida. El valor predeterminado es False.[/TD]

[/TR]

[TR]

[TD=class: mainsection]AllowDeletingColumns[/TD]

[TD=class: mainsection]Opcional[/TD]

[TD=class: mainsection]Variant[/TD]

[TD=class: mainsection]True permite al usuario eliminar columnas en la hoja de cálculo protegida, siempre que cada celda de la columna que se desee eliminar esté desbloqueada. El valor predeterminado es False.[/TD]

[/TR]

[TR]

[TD=class: mainsection]AllowDeletingRows[/TD]

[TD=class: mainsection]Opcional[/TD]

[TD=class: mainsection]Variant[/TD]

[TD=class: mainsection]True permite al usuario eliminar filas en la hoja de cálculo protegida, siempre que cada celda de la fila que se desee eliminar esté desbloqueada. El valor predeterminado es False.[/TD]

[/TR]

[TR]

[TD=class: mainsection]AllowSorting[/TD]

[TD=class: mainsection]Opcional[/TD]

[TD=class: mainsection]Variant[/TD]

[TD=class: mainsection]True permite al usuario ordenar la hoja de cálculo protegida. Todas las celdas del rango de ordenación deben estar desbloqueadas y desprotegidas. El valor predeterminado es False.[/TD]

[/TR]

[TR]

[TD=class: mainsection]AllowFiltering[/TD]

[TD=class: mainsection]Opcional[/TD]

[TD=class: mainsection]Variant[/TD]

[TD=class: mainsection]True permite al usuario establecer filtros en la hoja de cálculo protegida. Los usuarios pueden cambiar los criterios de filtrado, pero no habilitar ni deshabilitar filtros automáticos. Los usuarios pueden aplicar filtros a un filtro automático existente. El valor predeterminado es False.[/TD]

[/TR]

[TR]

[TD=class: mainsection]AllowUsingPivotTables[/TD]

[TD=class: mainsection]Opcional[/TD]

[TD=class: mainsection]Variant[/TD]

[TD=class: mainsection]True permite al usuario emplear informes de tabla dinámica en una hoja de cálculo protegida. El valor predeterminado es False.[/TD]

[/TR]

[/TABLE]

Comentarios

Si desea aplicar cambios a una hoja de cálculo protegida, puede utilizar el método Protect en ella si suministra la contraseña. Otro método posible es desproteger la hoja de cálculo, realizar los cambios necesarios y volver a protegerla.

[Ebalams]

Hola, sí lo que quieres es ejecutar una macro pero antes de esta desproteger la hoja y al final de esta volver a proteger la hoja tengo lo siguiente:

Sin contraseña:

'Desactiva la protección de la hoja

ActiveSheet.Unprotect

'Aquí tu macro

'Activa la protección de la hoja

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

Con contraseña:

'Al inicio se debe insertar el siguiente Código para desbloquear la hoja

ActiveSheet.Unprotect "Escribe tu contraseña"

'Aquí tu macro

'Al final insertar el siguiente Código para bloquear nuevamente la hoja

ActiveSheet.Protect Password:="Escribe tu contraseña", DrawingObjects:=True, Contents:=True, Scenarios:=True

Con contraseña sólo escribes tu contraseña donde dice ("Escribe tu contraseña") sin quitar las comillas.

Espero haberte podido ayudar.

Nota: Si deseas darle ciertos atributos a la protección, como modificar objetos u ordenar, te recomiendo proteger primero la hoja de acuerdo a lo que deseas y esta tomará por default los atributos que has elegido.