Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Macro con Clave

wicho15

Member
Registrado
4 Jun 2012
Mensajes
69
Adjunto un ejemplo de una macro de cambiar formular por valores con clave, pero se me ejecuta de todos modos la macro y luego me pide la clave. Si alguien me puede ayudar, se lo agradezco. Muchas...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Solución
Lo consigues, por ejemplo, con una macro así:
JavaScript:
Sub de_Fórmula_a_Valor()
Dim Resp, iRow As Range
Do
  Resp = Application.InputBox("Introduce la clave correcta si deseas ejecutar la macro:", _
    "Reemplazar Fórmulas x Valores", Type:=2)
  If Resp = False Then Exit Sub
Loop Until LCase(Resp) = "martin1592"
For Each iRow In Selection.SpecialCells(xlCellTypeVisible).Rows
  iRow = iRow.Value
Next
MsgBox "Proceso terminado."
End Sub
Perfecto. la macro es reemplazar formulas x valores. Quiero que antes de realizar los cambios, me solicite la clave. Ahora hace los cambios y luego me pide la clave. Gracias
 
adjunto un nuevo archivo, que contiene solamente la macro de reemplazar formulas x valores, en donde se observa que la macro se ejecuta y luego pide la clave y debería ser al revés.
 
Lo consigues, por ejemplo, con una macro así:
JavaScript:
Sub de_Fórmula_a_Valor()
Dim Resp, iRow As Range
Do
  Resp = Application.InputBox("Introduce la clave correcta si deseas ejecutar la...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Última edición:
Volver
Arriba