Como bloqueo una acción con una contraseña en una macro

como puedo hacer que la función de solicitar contraseña al momento de que sea incorrecta no ejecute el resto de la macro o debo de hacerlo por separado esta es la macro que estoy trabajando:

Sub Supervisor()
'
' Supervisor Macro
'
' Acceso directo: Ctrl+Mayus+S
'
Entrada = InputBox("Ingrese contraseña para continuar", "PROCESO PROTEGIDO")
If Entrada = "HOLA" Then
' aquí debes colocar la macro a ejecutar si la clave es correcta
Else
MsgBox "Acceso Denegado", vbExclamation, "CLAVE INCORRECTA"
End If
Application.ScreenUpdating = False
Sheets("Inicio").Select
Sheets("Cuotas").Visible = True
Sheets("Cuotas").Select
Sheets("Supervisor").Visible = True
Sheets("Supervisor").Select
Sheets("Fore Cast Supervisores").Visible = True
Sheets("Cuotas").Select
Rows("8:14").Select
Range("B8").Activate
ActiveSheet.Unprotect
Rows("8:14").Select
Range("B8").Activate
Selection.EntireRow.Hidden = True
Rows("24:30").Select
Range("B24").Activate
Selection.EntireRow.Hidden = True
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
Application.ScreenUpdating = True
End Sub

espero me puedan ayudar

1 Respuesta

Respuesta
1

De loq ue observo el orden de los códigos estaría mal, prueba con este cambio y me avisas:

Entrada = InputBox("Ingrese contraseña para continuar", "PROCESO PROTEGIDO")
If Entrada = "HOLA" Then
Application.ScreenUpdating = False
Sheets("Inicio").Select
Sheets("Cuotas").Visible = True
Sheets("Cuotas").Select
Sheets("Supervisor").Visible = True
Sheets("Supervisor").Select
Sheets("Fore Cast Supervisores").Visible = True
Sheets("Cuotas").Select
Rows("8:14").Select
Range("B8").Activate
ActiveSheet.Unprotect
Rows("8:14").Select
Range("B8").Activate
Selection.EntireRow.Hidden = True
Rows("24:30").Select
Range("B24").Activate
Selection.EntireRow.Hidden = True
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
Application.ScreenUpdating = True
Else
MsgBox "Acceso Denegado", vbExclamation, "CLAVE INCORRECTA"
End If

End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas