Usuário com melhor resposta
Ajuda com Código

Pergunta
-
Ola boa noite!
Estou usando este código para esconder barra de tarefa excel 2010, usando o programa; Custom UI Editor For Microsoft Office.
O objetivo do uso deste código é de não interferir nas demais planilhas retirando a barra de tarefa.
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"> <!-- Definir true ao atributo startFromScratch oculta o Ribbon e o QAT. --> <ribbon startFromScratch="true"> <!-- Nem todos os menus são ocultos, menus contextuais devem ser ocultos manualmente: --> <contextualTabs> <tabSet idMso="TabSetSmartArtTools" visible="false" /> <tabSet idMso="TabSetChartTools" visible="false" /> <tabSet idMso="TabSetDrawingTools" visible="false" /> <tabSet idMso="TabSetPictureTools" visible="false" /> <tabSet idMso="TabSetPivotTableTools" visible="false" /> <tabSet idMso="TabSetHeaderAndFooterTools" visible="false" /> <tabSet idMso="TabSetTableToolsExcel" visible="false" /> <tabSet idMso="TabSetPivotChartTools" visible="false" /> <tabSet idMso="TabSetInkTools" visible="false" /> </contextualTabs> <!-- Você pode adicionar aqui código para criar seus menus personalizados --> </ribbon> <!-- Esconde todos os menus e botões da Visão Backstage (menu Arquivo) --> <backstage> <button idMso="FileSave" visible="false"/> <button idMso="FileSaveAs" visible="false"/> <button idMso="FileOpen" visible="false"/> <button idMso="FileClose" visible="false"/> <button idMso="ApplicationOptionsDialog" visible="false"/> <button idMso="FileExit" visible="false"/> <tab idMso="TabInfo" visible="false"/> <tab idMso="TabRecent" visible="false"/> <tab idMso="TabNew" visible="false"/> <tab idMso="TabPrint" visible="false"/> <tab idMso="TabShare" visible="false"/> <tab idMso="TabHelp" visible="false"/> </backstage> </customUI>
Tem alguma macro que retira este código sem utilizar o programa Custom UI Editor For Microsoft Office
Obrigado.
Respostas
-
Estou entendendo você quer remover através de VBA toda personalização XML de uma pasta de trabalho.
Isso é possível, embora trabalhoso. Em primeiro lugar, deve-se lembrar que você só pode remover a personalização do customUI.xml em pastas de trabalho que estejam fechadas.
Os passos que sua macro em VBA deverá seguir são:
1 - criar um backup do arquivo, por segurança
2 - descompactar a pasta de trabalho em algum local (veja aqui como fazer isso: http://www.rondebruin.nl/win/s7/win002.htm - lembre-se que um xlsx ou xlsm é, nada mais, que um arquivo zipado)
3 - do resultado desses arquivos descompactados, excluir o customUI.xml e customUI14.xml
4 - localize o arquivo .rels, e apague um conteúdo parecido com <Relationship Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="/customUI/customUI.xml"
Id="12345" /> dele e salve-o.5 - compacte essa estrutura de arquivos novamente com a extensão .xlsm
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta miguelinho70 quinta-feira, 19 de fevereiro de 2015 19:47
Todas as Respostas
-
Olá, esto um pouco confuso com as terminologias que você usou.
"Estou usando este código para esconder barra de tarefa excel 2010"
Acho que você quis dizer "Faixa de Opções" (ou Ribbon), não?"Tem alguma macro que retira este código"
Como assim macro que retira esse código?Felipe Costa Gualberto - http://www.ambienteoffice.com.br
-
-
Estou entendendo você quer remover através de VBA toda personalização XML de uma pasta de trabalho.
Isso é possível, embora trabalhoso. Em primeiro lugar, deve-se lembrar que você só pode remover a personalização do customUI.xml em pastas de trabalho que estejam fechadas.
Os passos que sua macro em VBA deverá seguir são:
1 - criar um backup do arquivo, por segurança
2 - descompactar a pasta de trabalho em algum local (veja aqui como fazer isso: http://www.rondebruin.nl/win/s7/win002.htm - lembre-se que um xlsx ou xlsm é, nada mais, que um arquivo zipado)
3 - do resultado desses arquivos descompactados, excluir o customUI.xml e customUI14.xml
4 - localize o arquivo .rels, e apague um conteúdo parecido com <Relationship Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility" Target="/customUI/customUI.xml"
Id="12345" /> dele e salve-o.5 - compacte essa estrutura de arquivos novamente com a extensão .xlsm
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta miguelinho70 quinta-feira, 19 de fevereiro de 2015 19:47
-