snaki Fco

Así es En el ThisWorkbook, pones esto Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If ActiveCell.Address = "$A$1" Then ActiveCell.Offset(0, 1).Select MsgBox "No se pude acceder a esa celda" End If End Sub Acá...

Para sumar textbox, se debe hacer así: total = cint(textbox1) + cint(textbox2) +......................... textbox11.value = total

Has esto;: Sub password() On Error Resume Next clave = "1234" intentos = 3 For Each N In Sheets N.Visible = False Next N For i = 0 To intentos pass = InputBox("Ingrese Password", "Inicio", "****") If pass = clave Then MsgBox "Bienvenido!",...

Debería ser así Agregas el modulo correspondiente en vb de excel l(ALT+f11 / IINSERTAR / MODULO) PEGA ESTO Sub Modifica_nombre() actual = Range("A1").Value nuevo = Range("B1").Value Name actual As nuevo End Sub Suerte!

Enviame al siguiente mail archivos de ejemplo para ver cual es el error [email protected]

Ok, ya te entendí Mira modifícalo así Private Sub Workbook_Open() clave = InputBox("Ingrese Clave", "Password", "************") If clave = 2536 Then MsgBox "Bienvenido" Else Application.DisplayAlerts = False Application.Quit End If End Sub

herramientas => Seguridad y listo, pones tu contraseña

Me podrías enviar un archivo excel para poder agregarte la macro que necesitas

Intenta con esto Sub elimina() Range("A2").Select Do While Not IsEmpty(ActiveCell) If ActiveCell.Row <= 2 Then ActiveCell.Delete shift:=xlUp End If If ActiveCell = "HOLA " Then ActiveCell.Offset(-1, 0).Select ActiveCell.Delete shift:=xlUp ElseIf...

El problema es con la query Que debería ser así mysql_query("insert into antecedentepersonal (idantecedentepersonal,médicos,traumáticos,quirurg icos,observación) values ('$idantecedentepersonal','$médicos','$traumáticos...