Per visualizzare il testo senza che sia possibile modificarlo, puoi pensare di piazzare un controllo TextBox con proprietà Enabled = False.
Per utilizzare i controlli devi visualizzare l'apposita toolbar: Visualizza/BArre degli strumenti/Controlli (non so se si chiami esattamente così: io ho excel in inglese e lì si chiama Control Toolbox.); clicchi sul controllo che serve (TextBox, ad esempio, trascini sul foglio e dimensioni a piacimanto, poi clicchi col destro e scegli Proprietà, impostando:
(Name) = TESTO_FILE
Enabled = False
MultiLine = True
WordWrap = False
ScrollBars = 3
Visible = True
Per aprire il file, puoi utilizzare la gestione file tradizionale: richiedi il nome file all'utente tramite il metodo GetOpenFilename (trovi tutte le informazioni necessarie sulla Guida di Excel
), poi leggi in modo sequenziale il file scelto :
- Codice: Seleziona tutto
nomefile = application.GetOpenFilename(...) ' Vedi guida x i parametri...
if nomefile = False then Goto FINE 'esce se l'utente non ha selezionato alcun file
F= FreeFile
Open nomefile For Input As #F
testo = Input$(LOF(F), F)
Close #F
TESTO_FILE.TEXT = testo
FINE:
Se non ho sbagliato a digitare qualche istruzione, così dovrebbe funzionare.
Ciao!
MAx