Macro para proteger hoja al decir no al imprimir

Que tal estimado:
Espero me puedas ayudar a resolver mi problema, pasa que tengo una hoja protegida para que la secretaria no cometa errores al digitar, pero necesito un contador automático en dicha hoja protegida (que servirá como un correlativo de control), he copiado una macro que da el numero correlativo al imprimir, pero al estar protegida la hoja (no quiero que se modifique dicho numero correlativo) me daba error, lo solucione con ActiveSheet.Unprotect, pero solo si la condición de imprimir dice si, vuelve a proteger la hoja, en el caso de decir no... La hoja queda desprotegida... ¿me podrías ayudar a solucionar este problema?, te mando la macro que tengo hasta el momento:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Unprotect "clave"
Dim Mensaje, Resp
Dim Total As Double
Total = WorksheetFunction.Sum(Range("E14:E25"))
Mensaje = "El total es " & Total
Mensaje = Mensaje & "¿Desea Imprimir?"
Resp = MsgBox(Mensaje, vbQuestion + vbYesNo)
If Resp = 7 Then
Cancel = True
Exit Sub
End If
[E28] = Total
[F12] = [F12] + 1
ActiveSheet.Protect "clave"
End Sub
Agradecido de antemano por tu atención.

1 Respuesta

Respuesta
1
El código debe quedar de esta forma:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Unprotect "clave"
Dim Mensaje, Resp
Dim Total As Double
Total = WorksheetFunction.Sum(Range("E14:E25"))
Mensaje = "El total es " & Total
Mensaje = Mensaje & " ¿Desea Imprimir?"
Resp = MsgBox(Mensaje, vbQuestion + vbYesNo)
If Resp = 7 Then
[E28] = Total
[F12] = [F12] + 1
Cancel = True
Exit Sub
End If
[E28] = Total
[F12] = [F12] + 1
ActiveSheet.Protect "clave"
End Sub
Con esto ya te lleva el conteo aunque se cancele la impresión.
[email protected]
Estimado, gracias por tu tiempo... he probado la macro que me enviaste, pero no me supe explicar y lo que yo deseo es que la macro al decir no!, no cambie el numero correlativo y ademas que proteja la hoja; mi idea es que la impresión solamente haga cambiar el numero correlativo, pero que en ambas circunstancias (diga si o diga no a la impresión) la hoja quede protegida, espero no sea mucho pedir, gracias por tu ayuda de antemano.
p.d.: Tengo otra pregunta, como puedo aplicar esta macro solo a una hoja en específico, pasa que tengo tres hojas más en el mismo libro de donde extraigo la información para el formulario y pasa que me di cuenta que al imprimir en las otras hojas la macro igual se dispara; yo solo quiero aplicarla a la hoja del formulario para impresión no para todas las demás hojas, si pudieras decirme te lo agradecería mucho... espero tu respuesta, atentamente. Christian.
Prueba de esta forma:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Unprotect "clave"
Dim Mensaje, Resp
Dim Total As Double
Total = WorksheetFunction.Sum(Range("E14:E25"))
Mensaje = "El total es " & Total
Mensaje = Mensaje & " ¿Desea Imprimir?"
Resp = MsgBox(Mensaje, vbQuestion + vbYesNo)
If Resp = 7 Then
[E28] = Total
[F12] = [F12] + 1
Cancel = True
ActiveSheet.Protect Password:="clave", DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If
[E28] = Total
[F12] = [F12] + 1
ActiveSheet.Protect "clave"
End Sub
Si quieres que no se dispare la macro desde cualquier hoja tendrías que insertar la rutina en algún Botón y quitarla de donde la tienes. Otra forma sería crear algo como:
If Worksheet.Name = "OtraHoja" then exit sub
[email protected]
Estimado amigo, espero no aburrirte con mi insistencia, pero pasa que la macro que me enviaste deja protegida la hoja aun en la cancelación de la impresión, más yo deseo que la proteja y que no cambie el numero correlativo... entonces al cancelar, que no cambie el numero correlativo y que deje igualmente protegida la hoja, espero me puedas ayudar y no te este tomando mucho tiempo mis consultas, gracias de antemano por tu buena disposición, atentamente. Christian
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Unprotect "clave"
Dim Mensaje, Resp
Dim Total As Double
Total = WorksheetFunction.Sum(Range("E14:E25"))
Mensaje = "El total es " & Total
Mensaje = Mensaje & " ¿Desea Imprimir?"
Resp = MsgBox(Mensaje, vbQuestion + vbYesNo)
If Resp = 7 Then
Cancel = True
ActiveSheet.Protect Password:="clave", DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If
[E28] = Total
[F12] = [F12] + 1
ActiveSheet.Protect "clave"
End Sub
[email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Botón imprimir con macro

Necesito que esta macro: ActiveSheet. Unprotect "clave" Dim Mensaje, Resp Dim Total As Double Total = WorksheetFunction.Sum(Range("E14:E25")) Mensaje = "El total es " & Total Mensaje = Mensaje & " ¿Desea Imprimir?" Resp = MsgBox(Mensaje, vbQuestion +...
1 respuesta

Macro para bloquear celdas escritas en Excel

Tengo la siguiente macro, pero yo quiero que solo se aplique a la Hoja1. ¿Es posible? Private Sub Workbook_BeforePrint(Cancel As Boolean) 'Proteger celdas con información 'Por.Dam Application.ScreenUpdating = False ActiveSheet.Unprotect...
2 respuestas

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
3 respuestas

Bloquear celdas una vez introducido un valor

Estoy creando una hoja de excel, que lleva macros, bloqueos, condicionales, etc etc pero me falla una cosa!. Hay unas celdas que la gente debe introducir un numero. Quieo que una vez hayan introducido el número esta celda se bloquee y ya no puedan...
2 respuestas

Exportar archivo de excel a pdf y pregunte la ruta

Tengo un problema con una macro que hice para exportar informes de excel a PDF, la cuestión es que quiero que la macro me exporte el archivo a PDF pero me pregunte donde la quiero guardar puesto que el informe lo quiero guardar en una Memoria USB y...
1 respuesta

Impedir impresión...

Necesito poder impedir la impresión de un documento excel, por todas las vías, hasta tanto compruebe que ciertas condiciones se cumplen. No tengo problemas con las condiciones pero desconozco como puedo impedir POR TODOS LOS MEDIOS que impriman un...
1 respuesta

No puedo filtrar

Gustavo como esta me colabora con los siguiente: tengo una macro que usted me ayudo la vez pasado : Private Sub Worksheet_Change(ByVal Target As Range) Application.MoveAfterReturn = False If Target.Count = 1 Then If (Target.Column = 14 And Target <>...
1 respuesta

Bloquear una casilla o no dependiendo del valor de otr

Tengo que proteger contra escritura una casilla en función del valor de otra, por ejemplo si mi casilla A1 vale "dital" la casilla B1 debe bloquarse contra escritura. Sin embargo si mi casilla A1 vale Analógico B2 debe estar sin bloquear y en ella yo...
1 respuesta

Macro de autofiltros/oculte de columnas con celdas bloqueadas

Tengo una planilla con muchas macros que ejecutan autofiltros y oculte de columnas. Y necesito bloquear celdas luego de que se ingresen valores. El tema que cuando bloqueo las celdas tengo conflicto con la ejecución de las macros. Supongo porque...
1 respuesta