Windows 2010 la prima lettera in maiuscolo

[pacifico]

Gent.mi,

in un foglio excel 2010, in una colonna vengono inseriti delle voci e gradirei che la prima
lettera sia convertita in maiuscolo.

Ho inserito in un modulo il seguente codice senza ottenere un risultato:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("D4:D200")) Is Nothing Then
Target(1).Value = UCase(Left(Target(1).Value, 1)) & Right(Target(1).Value, Len

(Target(1).Value) - 1)
End If
Application.EnableEvents = True
End Sub

Attualmente scrivo una frase in una TextBox e tramite un comando (Bottone) la frase si
colloca nella cella della colonna D.

Gradirei gentilmente un Vosto aiuto, cordialmente saluto.


Domenico.

[Anthony47]

Quella e' una macro "di evento" ch quindi non andrebbe messa in un modulo qualsiasi, ma nel modulo di classe del foglio il cui evento deve essere gestito:
-tasto dx sul tab col nome del foglio, scegli Visualizza codice; incolla il codice su "quel" modulo.

Comunque se popoli quella colonna dal textbox, ti dovrebbe bastare modificare l'istruzione con cui trasferisci il testo sulla cella; es:

Codice: Seleziona tutto

Range("LaMiaCella").Value = UCase(Left(UserForm1.TextBox1.Text, 1)) & Mid(UserForm1.TextBox1.Text, 2)

Ciao

[pacifico]

Gent.mo Antony47,

mi scuso del ritardo e ringrazio della gentile attenzione la formula consigliata funziona
perfettamente.

Al programma ultimato, lavoro con le relative finestre: inserimenti dati, calendario,
stampa, ricerca dati e visione dati inseriti con ListBox ed ecc.
Gradirei sapere ed il reativo codice per far si che il foglio di lavoro sia invisibile e
bloccato e non accessibile.

Attualmente lo minimizzo ed inserisco anche la password se vi è una ulteriore protezione.

Nuovamente ringrazio, cordialmente saluto.

Domenico.

[Anthony47]

L'efficacia delle protezioni in Excel e' in rapporto all'abilita' tra chi vuole nascondere e chi vuole vedere.
Se parli di Fogli io ti suggerisco di dichiararli "veryHidden", in modo che almeno non si possono sbloccare con semplici comandi.
Ad esempio metti in una macro di Workbook_Open istruzioni del tipo

Codice: Seleziona tutto

Sheets("Foglio1").Visible = xlVeryHidden
Sheets("Foglio2").Visible = xlVeryHidden

E' possibile che alcune operazioni richiedano che il foglio sia visibile; per questo userai ad esempio:

Codice: Seleziona tutto

Sheets("Foglio2").Visible = True


Ciao

[pacifico]

Gent.mo Antony47,

nel rigraziare per la gentilezza anche questa modifica funziona.

Riscontro un problema che chiuso il programma tramite un comando "Esci", alla riapertura
dello stesso, mi esce la seguente finestra:

Il programma è già aperto. Riaprendolo le modifiche apportate andranno perse. Riaprire....?

Cordialmente saluto.

Domenico.

[Anthony47]

Non ho capito quali operazioni fai, se cioe' chiudi il file e poi l'applicazione Excel; e se il messaggio (che dovrebbe essere riferito a un file gia' aperto) ti compare quando rilanci Excel o quando apri ul file.
Quindi prova a descrivere dettagliatamente le operazioni che esegui e quel che succede, passo passo.

Ciao

[pacifico]

Gent.mo Antony47,

mi scuso se non sono stato chiaro nell'esprimere il problema che riscontro.

Cerco di descrivere.

Come accennato, ho il programma che ha 5 UserForm con vari pulsanti di comando ed un
pulsante di comando (Esci) con il seguente codice:

Private Sub CommandButton1_Click()

Unload UserForm1 (o UserForm2 ed ecc.)

End Sub

all'apertura mi esce il primo e l'unico foglio di lavoro con la relativa UserForm1 ed ho
inserito a "Questa_Cartella_di_lavoro" il seguente codice:

Private Sub Workbook_Open()

Application.Visible = False

UserForm1.Show

End Sub

Con questo comando mi da la possibilità di rendere il foglio di lavoro invisibile o
nascosto e, una volta chiuso il programma con il pulsante di lavoro "Esci" che regolarmente
chiude, alla riapertura del programma mi esce la finestra con la seguente dicitura:

"Il programma è già aperto. Riaprendolo le modifiche apportate andranno perse.
Riaprire....?"

Evidentemente mi chiude l'UserForm e ci vorrebbe un comando che mi chiude anche il foglio
di lavoro che essendo invisibile, rimane aperto.

Ringrazio della pazienza, cordialmente saluto.

Domenico.

[Anthony47]

Evidentemente lasci il file Excel aperto, visto che non lo chiudi.
Devi inserire, dulcis in fundo, anche la chiusura del workbook, tipo

Codice: Seleziona tutto

Workbooks("NomeFile").Close   


Ciao