Risultati da 1 a 9 di 9

Discussione: Intestazioni di Pagina



  1. #1
    L'avatar di RiccardoDengo
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Padova
    Età
    33
    Messaggi
    15
    Versione Office
    2013 WIN
    Likes ricevuti
    0
    Likes dati
    0

    Intestazioni di Pagina

    Ciao Raga, nel terzo menù a linguetta, "Layout di pagina"Margini personalizzatiIntestaz./Piè di page poi indifferentemente Personalizzare sia l'intestazione si il pie di paginaMi serve il campo oggetto che come quello dell' ora &[Ora] piuttosto che il num di pagine &[Pagine]mi serve il campo che vada a prendersi il nome dell'utente o del PC che apre il foglio di calcolo e che poi vada a stampare, NON l'autore del Foglio di calcolo.Esempio questo file può essere aperto dall'uff.Tecnico, dagli Acquisti dal Commerciale, quindi nella stampa mi serve il nome del PC o UtenteE'possibile?

  2. #2
    L'avatar di Pagero
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano
    Età
    36
    Messaggi
    18
    Versione Office
    Excel 2013
    Likes ricevuti
    6
    Likes dati
    1
    Quasi sicuramente è possibile ottenere il nome utente solo con VBA.

    Se utilizzi la versione Excel per Windows la soluzione è la seguente:

    1) da Excel -> premere ALT + F11
    2) alla tua sinistra dovresti vedere la gestioni progetti (se non la vedi -> visualizza -> gestione progetti oppure CTRL+R)
    3) cliccare su "Questa_cartella_di_Lavoro"
    4) copiare il seguente codice:
    Private Sub Workbook_Open()
    Dim Nome_Office As String
    Nome_Office = Application.UserName
    Sheets("Foglio1").Select
    ActiveSheet.PageSetup.LeftHeader = Nome_Office
    End Sub

    Tradotto:
    Quando il file viene aperto seleziona il foglio "foglio1" e nell'intestazione di pagina inserisce il nome utente di Office.

    File esempio:

    https://onedrive.live.com/redir?resi...nt=file%2cxlsm


    N.B.:
    - se utilizzi la versione su MAC quasi sicuramente non funzionerà
    - NON aprire il file con Excel on-line ma scaricare il file e aprirlo in locale
    - se vuoi il nome del PC il codice è più complesso tuttavia su internet si trova facilmente

  3. #3
    L'avatar di Andrea
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Levico Terme
    Età
    60
    Messaggi
    31
    Versione Office
    2013
    Likes ricevuti
    4
    Likes dati
    9
    Se adatti il codice qui sotto puoi inserire anche il nome del PC.
    Io questo lo uso in un file di testo per tenere traccia di chi apre il file.
    Non mi ricordo se bisogna abilitare qualche libreria.
    Appena ho un attimo ti faccio sapere.

    Library VBA
    C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL
    Visual Basic For Applications



    Ciao


    Private Sub Workbook_Open()


    Dim NomeFile As String
    Dim OpenFile As String
    Dim Utente As String
    Dim Computer As String
    Dim Tempo As String
    Dim FileIn As String


    FileIn = ActiveWorkbook.Path


    NomeFile = "LOG15.USE"
    OpenFile = "OPEN " 'OCf
    Utente = Environ("UserName") 'Un
    Computer = Environ("ComputerName") 'Cm
    Tempo = Date & " " & Time 'Tp


    Open FileIn & "\" & NomeFile For Append As #1
    Print #1, OpenFile; ", "; Utente; ", "; Computer; ", "; Tempo
    Close #1


    End If


    End Sub
    Ultima modifica fatta da:Andrea; 03/09/15 alle 06:00

  4. #4
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Ciao Andrea
    Sto cercando di imparare un po il VBA ma ho provato ad incollare il tuo codice in un nuovo modulo, ma non funziona
    dove sbaglio?
    Ciao grazie

  5. #5
    L'avatar di Andrea
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Levico Terme
    Età
    60
    Messaggi
    31
    Versione Office
    2013
    Likes ricevuti
    4
    Likes dati
    9
    Ops.... scusa Gerardo, ho lasciato un End if. Quello va cancellato.

    Comunque la macro crea un file di testo chiamato "LOG15.USE" dove memorizza questi dati.....

    OPEN , UserName , Nome PC , Data ed ora di apertura
    OPEN , Francesco, PC-ANDREA, 03/09/2015 17.45.50

  6. #6
    L'avatar di RiccardoDengo
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Padova
    Età
    33
    Messaggi
    15
    Versione Office
    2013 WIN
    Likes ricevuti
    0
    Likes dati
    0
    Perfetto grazie mille proprio questo volevo, funzionaora devo capire meglio come formattarlo e inquadrarlo assieme agli altri datigrazie mille

  7. #7
    L'avatar di Andrea
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Levico Terme
    Età
    60
    Messaggi
    31
    Versione Office
    2013
    Likes ricevuti
    4
    Likes dati
    9
    Citazione Originariamente Scritto da RiccardoDengo Visualizza Messaggio
    ...
    Te non immagini quanto mi è stato utile. Immagina in una azienda con 30 postazioni e condivisione del file excel. Purtroppo quando il file è aperto da altri ti dice che è in sola lettura e se in excel, quando questo viene installato, non viene inserito nelle Opzioni Generali il nome dell'utente, ti compare solo il nome generico Admin o simili. Almeno in questo modo risalivo a chi aveva il file aperto e dopo l'uso se ne andava a spasso. :166:
    Ultima modifica fatta da:Canapone; 16/05/17 alle 16:10

  8. #8
    L'avatar di Andrea
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Levico Terme
    Età
    60
    Messaggi
    31
    Versione Office
    2013
    Likes ricevuti
    4
    Likes dati
    9
    Citazione Originariamente Scritto da Pagero Visualizza Messaggio
    ...

    Attenzione che Application.UserName ti ritorna il nome dell'utente scritto nelle Opzioni Generali di Excel e non il nome utente che usa il pc.
    Addirittura quel nome con una macro glielo puoi cambiare.
    Se scrivi questa Application.UserName = "SEI UN BRUTO" in Workbook_Open() e un utente apre il file potrebbe innervosirsi :176:
    Ultima modifica fatta da:Canapone; 16/05/17 alle 16:10

  9. #9
    L'avatar di Andrea
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Levico Terme
    Età
    60
    Messaggi
    31
    Versione Office
    2013
    Likes ricevuti
    4
    Likes dati
    9
    Allego qui un file con il contenuto che può restituire Environ(1.......36)
    Ultima modifica fatta da:Gerardo Zuccalà; 03/09/15 alle 21:07

Discussioni Simili

  1. Prendere Valori delle intestazioni e copiarli in altre celle
    Di Razer nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 01/02/17, 17:03
  2. Estrarre le intestazioni di campo e di riga di una tabella incrociata
    Di Carme2014 nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 11/06/16, 17:36
  3. Stampare "da pagina a pagina" in automatico
    Di PALLAS0TTO nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 16/05/16, 12:29
  4. Righe intestazioni excel "integrate"
    Di G.Bove nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 01/02/16, 16:52
  5. modificare le intestazioni di colonna in riga
    Di vtedone nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 19/01/16, 16:21

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
  •