Newsgroup: it.comp.lang.visual-basic
Titolo: Disattivare Macro Da VBasic

C'è chi mi sa dire se è possibile aprire da VBasic dei documenti
Office (Excel e Word) senza far partire le macro di VBA?
E se si COME???
Ciao Jimmy

 Office (Excel e Word) senza far partire le macro di VBA?
in office 97 c'era una apposita opzione nelle impostazioni di sicurezza.
oppure proverei a aprire il documento tenendo premuto il tasto shift (ma
forse era solo per access)
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 ha scritto nel messaggio
news:FBgDb.190438$e6.71...@twister2.libero.it...

 Lo shift di cui parla CSSoft vale solo per Access, e serve semplicemente
per non far partire la macro "Autoexec" all'apertura del database, quindi
evita che parta un'applicazione basata su Access.
Non pensa che sia quello che hai bisogno tu.
Un'applicazione che ho davanti in questo momento usa una funzione di questo
tipo:
Private Function CaricaWord() As Boolean
    On Error Resume Next
    Set MyWD = New Word.Application
    'disabilito la funzione di controllo virus macro di Word
    MyWD.Options.VirusProtection = False
End Function
dovrebbe funzionare, o è comunque uno spunto.....
good coding!!!
-- 
Alletun
Sorry, ask me if you want to get my e-mail!

 ha scritto nel messaggio
news:brkej4$3tgb1$1...@ID-134521.news.uni-berlin.de...

il metodo "VirusProtection" serve unicamente per attivare o disattivare la
comparsa della finestra che avvisa della presenza nel documento di Macro.
Il problema che devo risolvere invece è:
se in un documento è presente una Macro VBA:
'
     Private Sub Document_Open()
 MsgBox "Prova"
     End Sub
'
come faccio ad aprire il documento da un programma VBasic senza
fare apparire nessuna finestra per leggerne il contenuto?
'
    Dim objWord         As Word.Application
    Dim objDoc          As Word.Document
    Dim objRange      As Word.Range
    Set objWord = CreateObject("Word.application")
    With objWord.Options
        .VirusProtection = True
    End With
    Set objDoc = objWord.Documents.Open(fileToOpen,
Format:=wdOpenFormatAuto)
    Set objRange = objWord.ActiveDocument.Content
    objRange.Copy
'
Con .VirusProtection = True
Appare la finestra di avviso "Disattiva"/"Attiva" Macro
ed il programma si blocca in attesa di input.
Con .VirusProtection = False
Si attiva la Macro Document_Open e compare la finestra "Prova"
ed il programma si blocca in attesa di input.
In Excel oltretutto non esiste neppure il metodo "VirusProtection"
Qualcuno sa darmi qualche lume??
Jimmy
il metodo "VirusProtection" serve unicamente per attivare o disattivare la
comparsa della finestra che avvisa della presenza nel documento di Macro.
Il problema che devo risolvere invece è:
se in un documento è presente una Macro VBA:
'
     Private Sub Document_Open()
 MsgBox "Prova"
     End Sub
'
come faccio ad aprire il documento da un programma VBasic senza
fare apparire nessuna finestra per leggerne il contenuto?
'
    Dim objWord         As Word.Application
    Dim objDoc          As Word.Document
    Dim objRange      As Word.Range
    Set objWord = CreateObject("Word.application")
    With objWord.Options
        .VirusProtection = True
    End With
    Set objDoc = objWord.Documents.Open(fileToOpen,
Format:=wdOpenFormatAuto)
    Set objRange = objWord.ActiveDocument.Content
    objRange.Copy
'
Con .VirusProtection = True
Appare la finestra di avviso "Disattiva"/"Attiva" Macro
ed il programma si blocca in attesa di input.
Con .VirusProtection = False
Si attiva la Macro Document_Open e compare la finestra "Prova"
ed il programma si blocca in attesa di input.
In Excel oltretutto non esiste neppure il metodo "VirusProtection"
Qualcuno sa darmi qualche lume??
Jimmy