Auto_open

Buongiorno.

Vorrei un macro (Auto_open, immagino) che all'apertura di una cartella Excel 2007 mi chiudesse tutti i menu e mi aprisse il Foglio con nome Home indiopendentem ente dalla sua posizione tra gli altri fogli visibili. Naturalmente alla chiusura della stessa cartelle ripristinasse tutto.

Grazie a chi vorra aiutarmi.

Giuseppe 

Risposta
Risposta

Grazie. Buona giornata.

Giuseppe


Qui trovi un esempio che non visualizza le schede e i vari pulsanti in Excel 2007/2010/2013:

http://www.maurogsc.eu/esempiforum13/noschede.zip

 

Inoltre vi è già il codice VB che all'apertura ti porta sul foglio Home(codice VB che può essere reso inutile premendo il tasto Shift all'avvio del file, mentre le schede sono sempre nascoste).

 

Io ho postato in precedenza il link al sito di Ron dove vi sono spiegazioni ed esempi per come modificare/nascondere le schede e i pulsanti.

 

In pratica, dopo aver modificato l'estensione del file (.xlsx o .xlsm) in .zip, se si apre il file .zip si trovano i vari oggetti che compongono il file di Excel. Nella cartella CustomUI trovi i due file .xml da modificare, CustomUI (per Excel 2007) e CustomUI14 (per Excel 2010 e 1013).

 

Senza modificare l'estensione del file di Excel, puoi aprire i due file con il programma consigliato da Ron:http://openxmldeveloper.org/blog/b/openxmldeveloper/archive/2006/05/26/customuieditor.aspx

 

e quindi modificarlo secondo le istruzioni che trovi nelle pagine del suo sito.

 

Questo tipo di modifica riguarderà solo il file sulle CustomUI del quale stai eseguendo le modifiche. Ogni altro file di Excel manterrà le schede di default. E' poi possibile creare proprie schede/pulsanti per personalizzare al massimo il file.

 

Qui invece trovi un file che *solo per il 2007* (in questo esempio specifico) presenta schede e pulsanti personalizzati. Non sono collegati a nessuna macro, è solo per esempio:

http://www.maurogsc.eu/esempiforum13/mieschede.zip

 

 

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

La risposta è risultata utile?

Siamo spiacenti che questo non sia stato utile.

Ottimo. Grazie per il tuo feedback.

Quanto sei soddisfatto di questa risposta?

Grazie per il feedback, ci aiuta a migliorare il sito.

Quanto sei soddisfatto di questa risposta?

Grazie per il tuo feedback.

Risposta
Risposta

Grazie ad Andrea e Bibbia per gli utili link che mi avete inviato. Li ho letti attentamente,. Il fatto però è che non ho trovato un esempio di codice che mi nascondesse tutte le schede e mi lasciasse la barra di accesso rapido con i pulsanti "Salva" e Salva con nome". E' evidente che io non sono in grado di modificare gli esempi e crearmi quello che voglio!

Perciò avevo chiesto se qualcuno poteva aiutarmi a modificare  CustomUI e CustomUI14 nel file NO SCHEDE di Mauro che è riscontrabile in questo thread  per adattarlo alle mie esigenze.

Io sono solo un piccolo utente che prova a fare qualcosina con Excel da meno che dilettante e soprattutto con l'aiuto di persone professionali e competenti come voi.

Grazie.

Giuseppe


Allora.... per la barra della formula, come ha scritto Andrea, serve il VBA e puoi sfruttare l'evento Open di Questa_cartella_di_lavoro:

 

Private Sub Workbook_Open()
    Application.DisplayFormulaBar = False
End Sub

 

Questa, se lasciata così com'è, impedirà la visualizzazione della barra delle formule in TUTTI i file presenti su quella macchina. E' un settaggio che vale per TUTTI i file di Excel della macchina. Se apro un file che mi fa una cosa del genere..... anche perché non tutti saprebbero poi come ripristinarlo. In se è semplice, nelle Opzioni, Impostazioni avanzate, sottomenu Visualizzazione, va spuntato Mostra barra della formula. Ma ripeto, così è una cosa che non si dovrebbe fare.

 

Per rimediare (in parte, perché non sempre il codice qui sotto è eseguito), sempre nel modulo di Questa_cartella_di_lavoro:

 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayFormulaBar = True
End Sub

 

In definitiva, quando si modificano le opzioni che interessano TUTTI i file di quella macchina, bisognerebbe ripristinare alla fine quello che l'utente ha settato per la sua macchina.

 

Per la barra di accesso rapido e lo XAML, modifica così la parte che vedi qui sotto(in grassetto la parte da aggiungere):

 

    <ribbon startFromScratch="true">

        <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>

 <qat>
  <documentControls>
   <control idMso="FileSave" />
   <control idMso="FileSaveAs" />
  </documentControls>
 </qat>

    </ribbon>

 

 

 

Sempre se ho capito.... ;-)

 

Ciao e buona navigazione.

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

La risposta è risultata utile?

Siamo spiacenti che questo non sia stato utile.

Ottimo. Grazie per il tuo feedback.

Quanto sei soddisfatto di questa risposta?

Grazie per il feedback, ci aiuta a migliorare il sito.

Quanto sei soddisfatto di questa risposta?

Grazie per il tuo feedback.

 
 

Informazioni domanda


Ultimo aggiornamento 6 ottobre 2021 Visualizzazioni 674 Si applica a: