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

    • 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.
    • Hola a todos, soy nueva por aquí     Tengo una duda de una exportación de una tabla SQL, donde los precios de los productos, en lugar de exportarlos en formato moneda con decimales, me los exporta en el siguiente formato: "00.000.000" está en formato "número", pero no sé como hacer para pasarlo a un formato de moneda, ya que los últimos tres "0" me sobran y me suma los 8 dígitos, cuando los 3 últimos no valen.    Por ejemplo:  10.123.001 (Es un producto que vale 10,12€ Como puedo hacer para eliminar el resto de dígitos? No encuentro la manera y claro, tampoco puedo realizar operaciones en excel puesto que me suma todos los dígitos...   No sé si me he explicado bien...   Gracias!!  
    • Buenas , soy nuevo en esto de Macros , pero investigando he dado esta solución , El macro funciona con el directorio "C:\Excel\"  la llamada al Macro es " Analizar_archivos" desde Libro.xlsm Option Explicit Dim ArchivoAbrir As Excel.Workbook Sub Analizar_Archivos() Dim Dir, Carpeta, Archivo As Object Dim Ruta As String Dim Listado() As Variant Set Dir = CreateObject("Scripting.FileSystemObject") Ruta = "C:\Excel\" ' ruta donde mirar On Error GoTo Error Set Carpeta = Dir.GetFolder(Ruta) For Each Archivo In Carpeta.Files ' recorremos los archivos de la carpeta If InStr(1, Archivo.Name, "~$") = 0 And _ InStr(1, Archivo.Name, "xlsm") = 0 And _ Archivo.Name <> "C:\Excel\Libro.xlsm" Then ' exclusiones AbrirarchivoExterno (Ruta & Archivo.Name) ' abrimos el archivo End If Next Exit Sub Error: MsgBox "Ruta inexistente", vbCritical End Sub Sub AbrirarchivoExterno(Archivo) On Error Resume Next If Len(Archivo) > 0 Then Set ArchivoAbrir = Workbooks.Open(Archivo) Workbooks.Open(Archivo).Application.Visible = False ' abrimos el archivo en modo invisible Comprueba ' comprobamos el archivo abierto Cerrar (Archivo) ' cerramos el archivo abierto End If End Sub Sub Cerrar(Archivo) Set ArchivoAbrir = Workbooks.Open(Archivo) ArchivoAbrir.Save ArchivoAbrir.Close End Sub Sub Comprueba() Dim Texto As String Texto = Range("Bc30").Value Select Case Texto Case Is = "hogares" Range("bc30").Value = "infiernos" Case Is = "alquileres" Range("bc30").Value = "placeres" Case Is = "compartir" Range("bc30").Value = "genesis" Case "infiernos", "placeres", "genesis" Case Else Range("Bc30").Value = "" End Select End Sub    suerte.
  • Recently Browsing

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

Important Information

Privacy Policy