Jump to content

Cinta de opciones bloqueada


Recommended Posts

Hola, tengo un doc word con varios formularios y macros para rellenar datos y posterior envió a varias direcciones. Está protegido con contraseña pero la tengo. Con ella veo todo el código vba, ya que tengo que actualizarla porque se creo con una versión anterior de word y no funciona en 2010. El problema es que quien la hizo, elimino toda la cinta de opciones y dejó una pestaña personalizada e inhabilitó la personalización de la misma, y por mas vueltas que le doy no se como dejar el documento de forma que lo pueda editar completamente y me salgan todas las opciones de la cinta de opciones con todos sus bloques.

Alguien sabría que es lo que hizo el anterior programador para deshacerlo y poder arreglar el documento.

Os dejo pantallazo para que os hagáis una idea.

Captura006.jpg

Captura005.jpg

Link to comment
Share on other sites

No tengo muy claro entonces como funciona esto, sin los programas "Visual Studio o Custom UI Editor" no puedo hacer esto?

Me refiero, si hago un formulario como el que tratamos y lo quiero bloquear, para que los usuarios solo puedan operar con el de manera limitada como el programador ha diseñado, es decir tal y como estaba, ¿no lo puedo bloquear y limitar desde el mismo word, tengo que usar esos programas?

O por el contrario, ¿Visual Studio o Custom UI Editor son herramientas para desbloquear sin saber contraseñas o como esta programado?

En caso de que desde word se pueda bloquear la cinta de opciones y limitar la funcionalidad de ese fichero a lo que el programador ha diseñado, ¿podrías decirme como se hace? Es decir el paso contrario al planteado inicialmente, como volver a dejar el documento como estaba, si es que se puede hacer solo con word.

Creo que he hecho un pequeño galimatias, pero no encuentro otra forma de explicarme.

Muchas gracias.

Link to comment
Share on other sites

Hola nuevamente

Tu pregunta inicial era sobre la Cinta de Opciones, y para crear, modificar u ocultar/bloquear/mostrar/desbloquear cualquiera de sus pestañas, ya sean propias o las de Word, necesariamente necesitas los programas mencionados. Y no me refiero solo al archivo que has enviado, sino, a cualquiera así sea uno nuevo. Con solo Word o VBA, pues no se puede,

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

    • Buenas Tardes amigos, aca saludos desde Chile, quisiera vuestra ayuda , tengo este Excel el cual ocupamos cada  5 dias para enviar email masivos, enviamos aprox. 10.000 email, el tema es que cada email no tengo idea el porque, pero pesa entre 500 kg a 1 mega Aprox. y esto demora mucho, no se si se podrá hacer algo, y lo otro,  para cada mensaje debe ser personalizado si es hombre y mujer, habrá alguna forma de dejarlo unido si determina si es mujer u hombre?   le dejo el macros en caso me puedas ayudar para optimizar el macros que tengo por favor.   Se activa el macros, este copia el mensaje que esta en la hoja Datos  y lo pega en un correo nuevo en el Outlook , fue la unica opcion que pude lograr, no se si habra otra forma.     Sub ENVIARCORREONUEVO1211() Application.ScreenUpdating = False ThisWorkbook.Sheets("RS1").Select ActiveSheet.Range("B1:B26").Select x = ThisWorkbook.Sheets("Datos").Range("E5").Value For i = 1 To x ThisWorkbook.Sheets("Datos").Range("E6").Value = i ActiveWorkbook.EnvelopeVisible = True Application.ScreenUpdating = False With ActiveSheet.MailEnvelope    .Item.To = ThisWorkbook.Sheets("Datos").Range("E2").Value    ''.Item.cc = Con Copia a....''    .Item.Subject = ThisWorkbook.Sheets("Datos").Range("E3").Value    ' .Introduction = ThisWorkbook.Sheets("Datos").Range("E4").Value '        .Item.Send End With Next i Application.ScreenUpdating = True End Sub  
    • Hola,   No me funciona.   Sale este error.   Seria posible tambien no tener que editar la ruta cada vez y que coja la ruta donde esta el xlsm?   Muchas gracias
    • A ver que tal, prueba y comenta Facturación 26082021JSD.xlsm
    • Hola, Yo no me entero muy bien; en el ejemplo que has puesto de  Puedes usar =IZQUIERDA(A1;4)/100 (suponiendo que el numero esta en A1). Seguro que no te refieres a eso porque es muy simple, pon mas ejemplos.
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy