Sebas Torres

Lug nose para quien iba tu pregunta pero si puedo ayudarte con mucho gusto =) comparte la macro y la vemos juntos...

Como estas... no puedes proteger un archivo excel contra copia, cualquier archivo excel se puede copiar. Lo que si puedes hacer es colocar una contraseña de apertura para que aunque lo copien no lo puedan abrir sin tu contraseña =) Aunque si la...

Si colocaste el código tal cual lo publicaste tu error esta en el cierre =) no puedes tener nada fuera de "END SUB" a menos que sea un comentario.. saludos =)

Puedes usar la protección de la hoja para realizar esta acción... * Selecciona toda la hoja, desmarca la casilla de "Bloqueada" para que todas las celdas queden libres * Coloca el siguiente código en vba, dentro de la hoja que usaras Private Sub...

¿Por qué no permite el uso de macros? Las macros las habilitas en configuración, no depende del libro... Sino tiene datos confidenciales puedes enviármelo y te ayudo a desbloquearlo saludos Mi mail: [email protected]

Los números enteros y los decimales siempre van separados por una ', ' (coma) si le colocas un punto te dará error... y veo en tu imagen que todo tiene puntos. revisa tu formato ... Si tu colocas: 12.23 al pasarlo a tu formato moneda quedara $ 1.223...

Podrías probar meter tu macro en el textbox de este modo Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'TU MACRO End Sub De este modo se realizara tu operacion solo cuando salgas del textbox

Sub COPIAS() Dim COPIAS As Integer COPIAS = Application.InputBox(prompt:="¿Cuantas copias deseas imprimir?", Title:="Imprimiendo paginas...") If COPIAS = 0 Then Exit Sub ActiveWindow.SelectedSheets.PrintOut Copies:=COPIAS, Collate:=True End Sub Saludos =)

Para desbloquear solo tienes que usar una línea Para hoja: Activesheet. Unprotect "contraseña" Para libro: Activeworkbook. Unprotect "contraseña"

Coloca 3 checkbox en tu hoja y pega la siguiente macro dentro del modulo de hoja que estes usando Private Sub CheckBox1_Click() If CheckBox1.Value = True Then CheckBox2.Value = False CheckBox3.Value = False End If End Sub Private Sub...