Archivio mensile:luglio 2014

058. Rileva Username del pc

Download PDF

In un contest lavorativo, a volte è utile poter rilevare chi stà 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 me.

In un modulo inserite il seguente codice:

 

Declare Function Get_User_Name Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function GetUserName() As String
Dim lpBuff As String * 25
Get_User_Name lpBuff, 25

GetUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

End Function

Per vedere al volo il valore che restituisce, in un nuovo modulo inserite:

Msgbox (GetUserName)

Per usarla per abilitare o meno un utente ad eseguire una macro, potete scrivere:

If GetUserName = "Riccardo" Then
   'codice macro a piacere
Else
   Msgbox "Non sei autorizato!", VbCritical , "ATTENZIONE"
End if

Riccardo Vincenti

057. Da lettere a numero

Download PDF

Domanda:

Come posso convertire da lettere a numeri ?

Risposta:

Questo argomento è stato trattato nell’articolo presente al seguente link:

http://excelvba.altervista.org/blog/index.php/Excel-VBA/Convertire-numeri-da-lettere-a-cifre-UDF.html

Riccardo Vincenti

056. Azione in base a selezione

Download PDF

Domanda:

Il mio problema è il seguente: quando passo dalla cella I1,I2,I3,…..In   mi si deve evidenziare senza cambiare formattazione la colonna ad esempio \”A:A\” e quando passo dalla cella J1,J2,J3,…..Jn mi sideve evidenziare la colonna (sempre senza perdere la formattazione) \”B:B\”.  Si può fare con una macro? Continua a leggere

055. Alert

Download PDF

Domanda:

Con 8 Gb di RAM e un processore Intel 5, Excel si blocca con neanche 400 righe utili di foglio dicendomi che non ce la fa… E\’ lo sterminato numero di righe la causa? Come faccio per tenere dei fogli standard di massimo 1000 righe ? Grazie!

Continua a leggere