Excel macro proteger hoja con contraseña y autofiltro disponible

A [email protected] [email protected] [email protected] y gracias por anticipado por vuestra ayuda. Tengo una hoja protegida con varios macros que la desprotegen al empezar a correr y la protegen al finalizar. Necesito que en estas hojas protegidas un usuario normal pueda seleccionar las celdas desprotegidas y ejecutar el autofiltro, por lo que la macro está así:

Sub ENVIAR()
'
' ENVIAR Macro
' Macro grabada el 24/03/2013 por Juan Antonio
ActiveSheet.Unprotect

Aquí va el resto de la macro y la cierro así:

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

ActiveWorkbook.Save
End Sub

Necesitaría que la protección tenga una contraseña pero,¿Donde pongo el password="contraseña"?

Porque si lo pongo así:

ActiveSheet.Protect password=:"contraseña" DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True

Me da error de compilación:se esperaba:fin de la instrucción.

A lo mejor es una tontería pero no doy con ello.

1 Respuesta

Respuesta
4

La instrucción quedaría así:

ActiveSheet.Protect "gmanager", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
O también válida, donde solo te faltaba la coma:
ActiveSheet.Protect password=:"contraseña", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas