{"id":1302,"date":"2014-07-11T09:04:13","date_gmt":"2014-07-11T07:04:13","guid":{"rendered":"http:\/\/www.office-guru.com\/wordpress\/?p=1302"},"modified":"2014-07-11T09:04:13","modified_gmt":"2014-07-11T07:04:13","slug":"058-rileva-username-del-pc","status":"publish","type":"post","link":"https:\/\/www.office-guru.com\/wordpress\/2014\/07\/058-rileva-username-del-pc\/","title":{"rendered":"058. Rileva Username del pc"},"content":{"rendered":"
\"Download<\/a><\/div>

In un contest lavorativo, a volte \u00e8 utile poter rilevare chi st\u00e0 utilizzando un file per poter abilitare o meno l’utilizzo di macro o calibrare quest’ultime in funzione dell’utilizzatore.<\/p>\n

Torna utile in questi casi la seguente funzione, non realizzata a me.<\/p>\n

In un modulo inserite il seguente codice:<\/p>\n

 <\/p>\n

Declare Function Get_User_Name Lib \"advapi32.dll\" Alias \"GetUserNameA\" (ByVal lpBuffer As String, nSize As Long) As Long\r\n\r\nPublic Function GetUserName() As String\r\nDim lpBuff As String * 25\r\nGet_User_Name lpBuff, 25\r\n\r\nGetUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)\r\n\r\nEnd Function<\/pre>\n
Per vedere al volo il valore che restituisce, in un nuovo modulo inserite:<\/p>\n
Msgbox (GetUserName)<\/pre>\n
Per usarla per abilitare o meno un utente ad eseguire una macro,\u00a0potete scrivere:<\/p>\n
If GetUserName = \"Riccardo\" Then\r\n   'codice macro a piacere\r\nElse\r\n   Msgbox \"Non sei autorizato!\", VbCritical , \"ATTENZIONE\"\r\nEnd if<\/pre>\n
Riccardo Vincenti<\/p>\n","protected":false},"excerpt":{"rendered":"
In un contest lavorativo, a volte \u00e8 utile poter rilevare chi st\u00e0 utilizzando un file per poter abilitare o meno l’utilizzo di macro o calibrare quest’ultime in funzione dell’utilizzatore. Torna utile in questi casi la seguente funzione, non realizzata a … Continua a leggere→<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":"","jetpack_publicize_message":"","jetpack_is_tweetstorm":false,"jetpack_publicize_feature_enabled":true,"_links_to":"","_links_to_target":""},"categories":[14],"tags":[],"jetpack_featured_media_url":"","jetpack_publicize_connections":[],"jetpack_shortlink":"https:\/\/wp.me\/p39IU1-l0","jetpack_sharing_enabled":true,"jetpack_likes_enabled":true,"jetpack-related-posts":[{"id":520,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/04\/creare-file-con-vba-ed-inviarli-via-mail-avanzato\/","url_meta":{"origin":1302,"position":0},"title":"017. Creare file con VBA ed inviarli via mail (avanzato)","date":"20 Aprile 2013","format":false,"excerpt":"Ciao a tutti, in questo giorni ho modificato il Tool che invia allegati tramite email seguendo alcune necessit\u00e0 di Alessandra. Le modifiche sono le seguenti: 1) verifica della presenza dei nomi inseriti nella base dati con quelli presenti in elenco e segnalazione di eventuali assenze 2) selezione attraverso di un\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":101,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/02\/vba-macro-eseguire-una-macro-automaticamente-allapertura-del-foglio-excel\/","url_meta":{"origin":1302,"position":1},"title":"VBA Macro: eseguire una macro automaticamente all’apertura del foglio Excel","date":"7 Febbraio 2013","format":false,"excerpt":"Pu\u00f2 capitare di volere eseguire una macro all'apertura di un foglio excel in modo automatico. Ad esempio si vuole che la pivot table che \u00e8 presente nel foglio sia sempre aggiornata oppure che venga aggiornato il fornitore di dati esterno. Per poterlo fare bisogna programmare l'evento\u00a0che Excel esegue all'apertura di\u2026","rel":"","context":"In "Macro"","img":{"alt_text":"","src":"https:\/\/i0.wp.com\/www.office-guru.com\/wordpress\/wp-content\/uploads\/2013\/02\/esegui_macro_avvio-1.gif?resize=350%2C200","width":350,"height":200},"classes":[]},{"id":201,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/02\/salvataggio-file-tramite-vba\/","url_meta":{"origin":1302,"position":2},"title":"007. Salvataggio file tramite VBA","date":"18 Febbraio 2013","format":false,"excerpt":"Domanda: vorrei chiederle un controllo del codice seguente, lo scopo del codice \u00e8 il salvataggio del file in una directory specifica e se la directory esiste, salvare il file con il nome specifico. in attesa Sub salvaFile() On Error GoTo mess Dim p As Worksheet Dim Directory As String Dim\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":883,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/01\/esportare-file-con-vba-come-csv-impostando-delimitatore\/","url_meta":{"origin":1302,"position":3},"title":"036. Esportare file con VBA come CSV impostando delimitatore","date":"22 Gennaio 2014","format":false,"excerpt":"Domanda: Come posso fare a salvare il file con estensione .csv ma con separatore \";\" invece della \",\"\u00a0? Risposta: Non avendo mai avuto\u00a0la necessit\u00e0 di risolvere questo problema, ho cercato la soluzione in rete dove ho trovato il seguente articolo (I thank the author for sharing code): http:\/\/www.erlandsendata.no\/english\/index.php?d=envbatextexportcsv Vi spiego\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":52,"url":"https:\/\/www.office-guru.com\/wordpress\/2013\/02\/autofiltro-con-i-colori-tradurre-il-colore-di-una-cella-in-un-numero\/","url_meta":{"origin":1302,"position":4},"title":"Autofiltro con i colori: Tradurre il colore di una cella in un numero","date":"6 Febbraio 2013","format":false,"excerpt":"Pu\u00f2 capitare a volte di avere a che fare con un database (un insieme di righe) che sono state lavorate da qualcuno e che per indicare i vari stati delle righe, questi ha pensato bene di usare i colori e evidenziare le righe on giallo, rosso etc. Purtroppo per\u00f2 questa\u2026","rel":"","context":"In "Excel"","img":{"alt_text":"","src":"https:\/\/i1.wp.com\/www.office-guru.com\/wordpress\/wp-content\/uploads\/2013\/02\/colorecella.gif?resize=350%2C200","width":350,"height":200},"classes":[]},{"id":1129,"url":"https:\/\/www.office-guru.com\/wordpress\/2014\/04\/copia-file-con-condizione\/","url_meta":{"origin":1302,"position":5},"title":"047. Copia File con condizione","date":"9 Aprile 2014","format":false,"excerpt":"Domanda: Avrei bisogno di una macro che mi permetta di copiare i soli file di testo di una specifica directory che contengono una specifica stringa alfanumerica dalla directory sorgente ad un'altra da specificare. Risposta: E\u2019 possibile risolvere il problema con una solo macro che verifica presenza della stringa nel nome\u2026","rel":"","context":"In "Domande Lettori"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]}],"_links":{"self":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/1302"}],"collection":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/comments?post=1302"}],"version-history":[{"count":1,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/1302\/revisions"}],"predecessor-version":[{"id":1303,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/posts\/1302\/revisions\/1303"}],"wp:attachment":[{"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/media?parent=1302"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/categories?post=1302"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.office-guru.com\/wordpress\/wp-json\/wp\/v2\/tags?post=1302"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}