Risultati da 1 a 9 di 9

Discussione: Excel 2010 ripristinare la barra del men¨.



  1. #1
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    Bari
    EtÓ
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1

    Excel 2010 ripristinare la barra del men¨.

    Gent.mi,

    in un nuovo lavoro su Excel 2010 realizzato la finestra principale, ho usato
    il seguente codice per minimizzare il foglio di lavoro inserendo una voce che
    non dovevo In_Questa_Cartella_di_Lavoro:
    > Private Sub Workbook_Open()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.WindowState = xlMinimized
    UserForm1.Show
    End Sub.
    Il foglio viene minimizzato e naturalmente presenta un inconveniente che al
    ripristino la barra del men¨ Ŕ sparita e non so come far riapparire per
    proseguire.
    Il comando che non dovevo inserire Ŕ:
    > Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)".
    Vi Ŕ un procedimento per far ritornare alla normalitÓ?
    Per avere la finestra bloccata al centro, ho usato il seguente codice:
    > Private Sub UserForm_Initialize()
    Dim hWnd As Long
    hWnd = FindWindow(vbNullString, Me.Caption)
    SetWindowLong hWnd, -16, &H84080080
    DrawMenuBar hWnd
    End Sub
    e presenta il seguente errore:
    > errore di compilazione e viene evidenziata: FindWindow.
    Inoltre e mi scuso, per prova ho inserito la password che funziona. Come si
    elimina?

    Anticipatamente ringrazio e saluto.

    Domenico.

  2. #2
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona giornata, Domenico;
    hai provato a eseguire il Codice:
    Codice: 
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    sostituendo a "False" "True"?


    A disposizione.

    Buon fine settimana.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  3. #3
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    LocalitÓ
    Milano - Italy
    EtÓ
    67
    Messaggi
    3332
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da Pacifico437 Visualizza Messaggio
    Gent.mi,

    in un nuovo lavoro su Excel 2010 realizzato la finestra principale, ho usato
    il seguente codice per minimizzare il foglio di lavoro inserendo una voce che
    non dovevo In_Questa_Cartella_di_Lavoro:
    > Private Sub Workbook_Open()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.WindowState = xlMinimized
    UserForm1.Show
    End Sub.
    Il foglio viene minimizzato e naturalmente presenta un inconveniente che al
    ripristino la barra del men¨ Ŕ sparita e non so come far riapparire per
    proseguire.
    Il comando che non dovevo inserire Ŕ:
    > Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)".
    Vi Ŕ un procedimento per far ritornare alla normalitÓ?
    Per avere la finestra bloccata al centro, ho usato il seguente codice:
    > Private Sub UserForm_Initialize()
    Dim hWnd As Long
    hWnd = FindWindow(vbNullString, Me.Caption)
    SetWindowLong hWnd, -16, &H84080080
    DrawMenuBar hWnd
    End Sub
    e presenta il seguente errore:
    > errore di compilazione e viene evidenziata: FindWindow.
    Inoltre e mi scuso, per prova ho inserito la password che funziona. Come si
    elimina?

    Anticipatamente ringrazio e saluto.

    Domenico.
    Ciao Domenico per fare come dice Giuseppe, visto che non hai il men¨, imposta ALT + F11 dovrebbe aprirti il VBA cosý puoi eliminare/cambiare la riga incriminata
    Per avere la form al centro, dopo che sei entrato in VBA seleziona la form e vai nelle proprietÓ cerca :

    StartUpPosition e metti : 2-CenterScreen

    A volte basta usare parole inutili come ôgrazieö e ôper favoreö per rendere la vita pi¨ bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  4. #4
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    Bari
    EtÓ
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1
    Gent.mo GiuseppeMN,

    ringrazio della disponibilitÓ e tempestivitÓ, purtroppo non funziona presenta
    il solito errore anche inserendo False o True:
    > errore di compilazione e viene evidenziata: FindWindow.
    In altri termini, in un progetto prelevato dalla rete che purtroppo non lo
    trovo che ad ogni finestra ha il codice per far si che la stessa rimanga
    bloccata al centro del video.
    Il codice prelevato Ŕ:
    > Private Sub UserForm_Initialize()
    Dim hWnd As Long
    hWnd = FindWindow(vbNullString, Me.Caption)
    SetWindowLong hWnd, -16, &H84080080
    DrawMenuBar hWnd
    End Sub.
    per Baloon_50 che ringrazio l'avevo inserito nella proprietÓ 2-Center ed ho
    la finestra al centro del video mentre gradirei che sia bloccata e non
    spostabile con il mouse.

    A risentirci, saluto.

    Domenico.

  5. #5
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    LocalitÓ
    Catania
    EtÓ
    73
    Messaggi
    3200
    Versione Office
    Excel2010
    Likes ricevuti
    624
    Likes dati
    154
    Salve a tutti
    Ecco un indirizzo che pu˛ servirti:
    http://www.itware.com/blog-itware/it...rire-il-ribbon
    Vi troverai anche le seguenti macro che ti posto:
    Codice: 
    
    Sub Auto_Open()
    ViaRibbon
    End Sub
    Sub Auto_Close()
    RipristinaRibbon
    End Sub
    Private Sub Workbook_Activate()
    ViaRibbon
    End Sub
    Private Sub Workbook_Deactivate()
    RipristinaRibbon
    End Sub
    Sub Emergenza() ' Ctrl+a
    RipristinaRibbon
    End Sub
    Sub ViaRibbon()
    If Val(Application.Version) < 12 Then
    'Excel 97-2003
    Dim I As Integer
    Set Barre = Application.CommandBars
    For I = 1 To Application.CommandBars.Count
    Barre(I).Enabled = False
    Next I
    Else
    'Excel 2007 e seguenti
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    End If
    ActiveWindow.DisplayWorkbookTabs = False '(fogli)
    With Application
    .DisplayFormulaBar = False 'barra della formula
    .DisplayStatusBar = False 'barra di stato
    .ShowWindowsInTaskbar = True 'barra delle applicazioni di Windows
    End With
    End Sub
    Sub RipristinaRibbon()
    If Val(Application.Version) < 12 Then
    'Excel 97-2003
    Dim I As Integer
    Set Barre = Application.CommandBars
    For I = 1 To Application.CommandBars.Count
    Barre(I).Enabled = True
    Next I
    Else
    'Excel 2007
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    End If
    ActiveWindow.DisplayWorkbookTabs = True '(fogli)
    With Application
    .DisplayFormulaBar = True 'barra della formula
    .DisplayStatusBar = True 'barra di stato
    .ShowWindowsInTaskbar = True 'barra delle applicazioni di Windows
    End With
    End Sub
    Spero possa esserti d'aiuto anche se ripropone la sostituzione di False con True, come giÓ detto.

    Ciao,
    Mario

  6. I seguenti utenti hanno dato un "Like"


  7. #6
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona giornata, Domenico;
    consentimi un saluto a @ Baloon_50 e @ Marius44.

    Domenico, non voglio insistere ma, la mia risposta era relativa alla Tua Richiesta:

    @ Pacifico437, scrive:
    ... Vi Ŕ un procedimento per far ritornare alla normalitÓ? ...
    Per completezza, nel File in allegato, ho inserito tre Pulsanti
    - UserForm (permette l'apertura dell'UserForm
    - Ribbon Off (nasconde i Ribbon)
    - Ribbon On (visualizza i Ribbon)

    In UserForm ho impostato le seguenti ProprietÓ:
    - ShowModal False (consente di spostare il cursore nel Foglio di lavoro, lasciando attivo UserForm)
    - StartUpPosition 2 - CenterScreen

    A mio parere, UserForm rimane nella posizione centrale dello schermo indipendentemente da Riga/Colonna selezionata.

    Nel caso in cui non ho recipito esattamente le Tue Esigenze, Rimango a disposizione.


    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  8. #7
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    Bari
    EtÓ
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1
    Gent.mo GiuseppeMN,

    risolto il problema della Ribbon che funziona perfettamente.
    Il problema che gradirei che sia risolto, Ŕ avere la finestra dell'UserForm
    bloccata e non spostabile con il mouse inserendo il codice che ho trovato in
    un programma prelevato dalla rete e che riporto:

    > Private Sub Workbook_Open()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.WindowState = xlMinimized
    UserForm1.Show
    End Sub.

    e che presenta il seguente errore:
    > errore di compilazione e viene evidenziata: FindWindow.

    Purtroppo il programma non lo trovo pi¨.
    Mi scuso ed auguro di essere stato chiaro. Fiducioso, saluto.

    Domenico.

  9. #8
    L'avatar di Pacifico437
    Clicca e Apri
    Data Registrazione
    Nov 2015
    LocalitÓ
    Bari
    EtÓ
    80
    Messaggi
    335
    Versione Office
    Office 2010
    Likes ricevuti
    1
    Gent.mo GiuseppeMN,

    dopo tanto sono riuscito.
    Ho inserito il seguente codice in un modulo:

    Codice: 
    
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As 
    Long
    Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As 
    Long) As Long
    Public Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As 
    Long
    e nel UserForm, il seguente codice:
    > Private Sub UserForm_Initialize()
    Dim hWnd As Long
    hWnd = FindWindow(vbNullString, Me.Caption)
    SetWindowLong hWnd, -16, &H84080080
    DrawMenuBar hWnd
    End Sub


    La finestra risulta bloccata.

    Approfitto per chiederti in un precedente progetto, mi Ŕ stato illustrato il
    procedimento per inserire la password da Foglio1 protezione inserendo la
    spunta a Proteggi progetto dalla visualizzazione e relativa password che
    funziona.
    Per togliere, ho eliminato la spunta e rimane sempre protetto come dovrei
    fare?
    Ringrazio ed auguro buon pomeriggio.

    saluto.

    Domenico.

  10. #9
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona sera, Domenico;
    Ti leggo solo ora.

    Credo che potrsti provare in Questo modo:
    selezioni le Celle che desideri sproteggere.
    A questo punto:
    - Ribbon "Revisione"
    - "Rimuovi protezione foglio"
    - Ribbon "HOME"
    - "Celle"
    - "Formato" ▼
    - "Formato celle ..."
    - "Protezione"
    - Togli il segno di spunta
    - Confermi con "OK"

    Nel ringraziarti dell'Attenzione che hai, benevolmente, voluto dedicarmi, consentimi di consigliarti di non rivolgerti ad un Utente specifico ma, pi¨ genericamente, a Tutti gli Utenti di Forum.
    Voglio dire, la prossima volta, potresti valutare di sostituire:
    @ Pacifico437, scrive:
    ... Approfitto per chiederti
    con:
    ... Approfitto per chiedere
    Poi, ovviamente, decidi Tu.


    A disposizione.

    Buon fine settimana.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

Discussioni Simili

  1. Barra Del Menu Multifunzionale
    Di A.Maurizio nel forum Lavori e giochi con Excel
    Risposte: 0
    Ultimo Messaggio: 04/01/17, 10:38
  2. Piccolo Mio Pensierino per Tutti Vi Voi Barra Del Menu
    Di A.Maurizio nel forum Lavori e giochi con Excel
    Risposte: 10
    Ultimo Messaggio: 03/01/17, 15:01
  3. Salva in Pdf [Excel 2010]
    Di Powerwin nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 31/05/16, 23:31
  4. Macro personalizzate nella Barra Multifunzione di Excel
    Di ProgrammD69 nel forum Domande su Excel in generale
    Risposte: 14
    Ultimo Messaggio: 18/05/16, 14:04
  5. Excel 2016 per Mac - Personalizzare barra di accesso rapido
    Di Kiwi nel forum Foglio di calcolo su altre Piattaforme
    Risposte: 6
    Ultimo Messaggio: 15/03/16, 00:44

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •