Condividi:        

Crea MACRO per cartella Excel "LEGGI FILE PDF PROTETTO SU CD

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: Crea MACRO per cartella Excel "LEGGI FILE PDF PROTETTO S

Postdi zanatta77 » 11/12/12 11:50

In attesa di risposta ho provato anche questo inseirmento audio e mi funziona.
Unica cosa nessun messaggio, mi va in Play all'apertura della cartella di excel e poi appena chiudo l'audio va in stop
Nel Modulo1 ho messo questo:
Codice: Seleziona tutto
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10

Dim SoundName As String
Dim wFlags As Double
Dim X


Sub WAVPlay(File)
Dim SoundName As String
SoundName = File
wFlags = SND_ASYNC Or SND_NODEFAULT
X = sndPlaySound(SoundName, wFlags)
End Sub


In ThisWorkBook questo :
Codice: Seleziona tutto
Private Sub Workbook_Open()
WAVPlay "C:\Desktop\Tensione_Evolutiva.wav"
End Sub
Windows 8
Office 2010
Avatar utente
zanatta77
Utente Senior
 
Post: 127
Iscritto il: 01/12/12 16:12

Sponsor
 

Re: Crea MACRO per cartella Excel "LEGGI FILE PDF PROTETTO S

Postdi zanatta77 » 08/02/13 21:00

Ciao a tutti !!
Il file funziona esattamente come richiesto....
Unica miglioria che vorrei apportare è questa: il file excel dove si trova la macro realizzata in precedenza inizia la lettura anche se il "cd" non è presente nel lettore.
Come posso fare per iniziare la lettura solo se il cd è presente
Windows 8
Office 2010
Avatar utente
zanatta77
Utente Senior
 
Post: 127
Iscritto il: 01/12/12 16:12

Re: Crea MACRO per cartella Excel "LEGGI FILE PDF PROTETTO S

Postdi Flash30005 » 08/02/13 22:15

Dovresti inserire una condizione nel Workbook_Open
verificare che esista il file con un codice che già hai usato nella macro (post precedenti)
Codice: Seleziona tutto
Private Sub Workbook_Open()
If Dir(Perc & File) <> "" then
WAVPlay "C:\Desktop\Tensione_Evolutiva.wav"
end if
End Sub
 


La variabile Perc e File devi dichiararla prima

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "Crea MACRO per cartella Excel "LEGGI FILE PDF PROTETTO SU CD":


Chi c’è in linea

Visitano il forum: systemcrack e 36 ospiti