VBA Excel Lan

[corrado_62]

Ciao,
ho sviluppato un'applicazione per la gestione delle offerte/clienti residente sul server aziendale.
il mio problema è il seguente:
se il file non è aperto da nessun utente, vorrei che l'applicazione mettesse a disposizione una certa serie di funzioni comprese quelle che vanno a modificare i dati nell'excel
se il file è già utilizzato, vorrei che l'applicazione mettesse a disposizione solamente quelle funzioni di riepilogo (report, stampe, ...) che non comportano modifiche ai dati

nei vari forum/topic ho trovato varie soluzioni per capire se il file X è "aperto" ma nessuna per gestire file condivisi in LAN.

attendo fiducioso e vi ringrazio.

[Flash30005]

Ciao Corrado_62 e benvenuto nel Forum

A me risulta che un file di excel in rete e quindi condiviso può essere gestito in lettura e scrittura solo dal primo utente che apre il file, gli altri potranno solo avere diritto alla lettura e quindi non potranno assolutamente modificare i dati in quel file già aperto.

Ma forse intendevi qualche altra opzione (?)

Ciao

[corrado_62]

grazie Flash.
mi spiego meglio.
il file excel PIPPO contiene dati e codice VBA.
all'apertura di PIPPO, appare una form MENU composta da diversi Botton; ogni button attivano altre form x l'inserimento di nuove offerte, x l'inserimento di nuovi clienti, x visualizzare report, x stampare report, ...
proprio perchè excel attiva un lock sul file aperto e consente l'apertura in sola lettura ad un secondo utente, vorrei gestire questo evento consentendo al 2° utente di accedere comunque alla form MENU ma non far apparire quei button che attivano funzioni come inserimento e modifica dati, un codice tipo:

in form MENU:
commandbutton1 attiva la form per inserimento dati nuova offerta
commandbutton2 attiva la form per inserimento dati nuovi clienti
commandbutton3 attiva la forma di visualizzazione report
commandbutton4 attiva la stampa

.....
NumeroUtente =1 se il file non è aperto
NumeroUtente =2 se il file è già aperto

select case NumeroUtente
case 1
commandbutton1.visible=true
commandbutton2.visible=true
commandbutton3.visible=true
commandbutton4.visible=true
case 2
commandbutton1.visible=false
commandbutton2.visible=false
commandbutton3.visible=true
commandbutton4.visible=true
end select

grazie

[Flash30005]

Per conoscere l'utente
puoi usare questo codice all'apertura del file

Codice: Seleziona tutto

NomeUtente = Environ("userName")

Ora potresti scrivere all'apertura del file questo codice in una cella di un foglio prestabilito
Es:
If worksheets("Foglio1").Range("IV1").value = "" then worksheets("Foglio1").Range("IV1").value = NomeUtente
(alla chiusura del file cancellarlo)

Dichiarare NomeUtente Public in un modulo

Ora hai una variabile che sarà inserita solo dal primo utente
basterà fare un controllo se

Codice: Seleziona tutto

If NomeUtente = worksheets("Foglio1").Range("IV1").value then

avrà le maschere e i bottoni visibili
altrimenti
no

Non potendo provare quanto consigliato il tutto è da ritenersi sperimentale

Ciao

[corrado_62]

grazie Flash
implemento, provo e ti racconto
ciao

[Flash30005]

Ok
Attendo il risultato
in caso di novità o altri problemi a riguardo pubblica quanto è successo

Ciao

[Anthony47]

Ciao Corrado_62, benvenuto anche da parte mia.
Penso che potresti inserire nella macro di Workbook_Open il controllo se il file e' read-only:

Codice: Seleziona tutto

If ActiveWorkbook.ReadOnly Then
'qui le istruzioni per rendere nascosti i comandi critici
End if


Ciao

[corrado_62]

grazie a tutti. ho provato e funziona. ciao