Connectify: trasformare un pc con Win 7 in router Wi-Fi

30 aprile 2010

Connectify è un’utility gratuita che consente di trasformare un qualsiasi computer (portatile o dotato di schede Wi-Fi) con a bordo Windows 7 in un router Wi-Fi, per condividere facilmente la connessione ad Internet.

La procedura è molto semplice: basta installare il software, impostare un nome utente / password e cliccare sul pulsante per condividere la connessione.


Iron Man 2: da stasera al cinema

30 aprile 2010

Stasera esce al cinema in Italia, Iron Man 2.

Anche se, purtroppo, le critiche non sono state molto positive, sono sicuro che riuscirà a stupire e divertire come il primo.

Aggiornamento: Dopo aver visto il film (ieri sera) devo ammettere che il secondo episodio è leggermente inferiore rispetto al primo, ma Iron Man è sempre Iron Man e vale la pena vederlo.


Word (VBA): impostare una password in tutti i file .doc di una cartella

26 aprile 2010

Di seguito riporto una macro VBA per Word che assegna una specifica password (di protezione in modifica) a tutti i file DOC contenuti in una determinata directory.

Una volta applicata la protezione ai file, sarà inibita qualsiasi modifica,  ad esclusione di eventuali moduli presenti nei documenti .

Ovviamente i file a cui deve essere applicata la password, prima dell’esecuzione della macro, non devono essere già protetti.

Sub inserisci_password_file_cartella()
Dim i As Integer
Dim miapassword As String

Set cartella = Application.FileSearch
miapassword = "MiaPassw12345678" 'specificare la passw da inserire
With cartella
  .LookIn = "c:\luca" 'specificare il percorso dove sono contenuti i file
  .FileName = "*.doc" 'la macro considera solo i file DOC

  If .Execute(SortBy:=msoSortByFileName, _
  SortOrder:=msoSortOrderAscending) > 0 Then
  'MsgBox .FoundFiles.Count
     For i = 1 To .FoundFiles.Count
       'MsgBox .FoundFiles(i)
        file_trovato = .FoundFiles(i)
        'apertura file
        Documents.Open FileName:=file_trovato, ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
        "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
        Format:=wdOpenFormatAuto
        If ActiveDocument.ProtectionType = wdNoProtection Then
           'inserisce protezione
            ActiveDocument.Protect Password:=miapassword, NoReset:=False, _
            Type:= wdAllowOnlyFormFields
           'Chiude e salva il file
           ActiveDocument.Close SaveChanges:=wdSaveChanges
        End If
     Next i
  Else
     MsgBox "Nessun file trovato nella cartella specificata!"
     Exit Sub
  End If
End With
End Sub

Purtroppo le righe del codice vengono interrotte nell’articolo, ma facendo un copia-incolla è possibile visualizzarle per intero.


Dexpot: desktop virtuali

23 aprile 2010

Dexpot è un software leggero e gratuito per la creazione e la gestione dei desktop virtuali.

Il programma risulta molto utile per ottimizziare lo spazio e l’organizzazione del dekstop, infatti riesce a gestire fino a 20 ambienti di lavoro paralleli con relative finestre e programmi aperti.

In questo video viene illustrato il funzionamento del programma:

Nell’ultima versione attualmente disponibile (1.5) è stata notevolmente migliorata la compatibilità con Windows 7 (32 e 64 bit).


Winscape: lo voglio!

22 aprile 2010

Maggiori info:

http://www.rationalcraft.com/Winscape.html


Excel (VBA): trovare l’ultima riga avvalorata

22 aprile 2010

Capita spesso di dover creare cicli in VBA che coinvolgono tutte le righe avvalorate in un determinato foglio di lavoro.
Ma se il numero di righe è variabile, a priori non è possibile conoscere il numero l’ultima riga avvalorata.

Una delle possibili soluzioni a questo problema è quella di salire (dal basso verso l’alto) fino alla prima riga vuota disponibile (in Excel 2003, e versioni precedenti, il nostro foglio non può avere più di 65.000 righe). In pratica:

UltimaRiga = Sheets("Foglio1").Range("A65000").End(XlUp).Row

Quindi il nostro ciclo sarà qualcosa del genere:

Sub prova()
UltimaRiga = Sheets("Foglio1").Range("A65000").End(XlUp).Row
For i = 1 to UltimaRiga
   ...
Next
End Sub

N.B.: in Excel 2007 e 2010 il numero massimo di righe è stato aumentato a 1.048.576.


Excel (VBA): velocizzare esecuzione macro

21 aprile 2010

Per velocizzare l’esecuzione del codice VBA è possibile bloccare lo “sfarfallio” dello schermo all’inizio della macro e quindi ripristinarlo alla fine dell’esecuzione.

Sub prova()
Application.ScreenUpdating = False
...
Application.ScreenUpdating = True
End Sub