apertura files

Hai un problema con Excel?

Nuova discussione

apertura files
di accordix data: 08/05/2016 18:31:51
Quando apro un file .docx con la procedura di cromagnon mi esce un messaggio di protezione che potete vedere in allegato
e anche con un file di excel e con i file txt
invece con i file .pdf non da problemi.
come potrei bypassare il messaggio?

Private Sub CommandButton1_Click()
SelezionaFileEsterno
End Sub
Public Sub SelezionaFileEsterno()
Dim percorso As String

With Me
    If .ComboBox1.Value = "" Then
        MsgBox "Scegliere un file da aprire!!!"
        .ComboBox1.SetFocus
    End If
    percorso = ThisWorkbook.Path & "archivio" & .ComboBox1.Value & ".txt"
    ThisWorkbook.FollowHyperlink percorso, , True
End With
End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
ActiveWorkbook.Close True
End Sub

Private Sub UserForm_Initialize()
Dim nomi_file() As String, i As Long

nomi_file = Split(Range("A1").Value, Chr(10))

For i = 0 To UBound(nomi_file)
    nomi_file(i) = Application.WorksheetFunction.Clean(nomi_file(i))
    Me.ComboBox1.AddItem nomi_file(i)
Next i
End Sub

Private Sub CommandButton1_Click()
SelezionaFileEsterno
End Sub
Public Sub SelezionaFileEsterno()
Dim percorso As String

With Me
    If .ComboBox1.Value = "" Then
        MsgBox "Scegliere un file da aprire!!!"
        .ComboBox1.SetFocus
    End If
    percorso = ThisWorkbook.Path & "archivio" & .ComboBox1.Value & ".txt"
    ThisWorkbook.FollowHyperlink percorso, , True
End With
End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
ActiveWorkbook.Close True
End Sub

Private Sub UserForm_Initialize()
Dim nomi_file() As String, i As Long

nomi_file = Split(Range("A1").Value, Chr(10))

For i = 0 To UBound(nomi_file)
    nomi_file(i) = Application.WorksheetFunction.Clean(nomi_file(i))
    Me.ComboBox1.AddItem nomi_file(i)
Next i
End Sub

di alfrimpa data: 08/05/2016 19:40:29
Ciao Accordix

Il messaggio che vedi ė il tipico warning che avvisa sulla potenziale pericolosità dei collegamenti ipertestuali (macro virus). In quanto tale non ė eliminabile da Excel/Office ma occorre agire (con tutte le cautele del caso) sul registro di Windows e, almeno per me, non è cosa semplice.

Vedi se può esserti utile questo link Microsoft.

h t t p s://support.microsoft.com/it-it/kb/925757

Alfredo
di alfrimpa data: 08/05/2016 19:40:29
Ciao Accordix

Il messaggio che vedi ė il tipico warning che avvisa sulla potenziale pericolosità dei collegamenti ipertestuali (macro virus). In quanto tale non ė eliminabile da Excel/Office ma occorre agire (con tutte le cautele del caso) sul registro di Windows e, almeno per me, non è cosa semplice.

Vedi se può esserti utile questo link Microsoft.

h t t p s://support.microsoft.com/it-it/kb/925757

Alfredo
di patel data: 08/05/2016 20:01:19
la cosa strana è che la prima volta che ho provato la macro mi ha aperto il file senza messaggi, poi riprovando mi è comparso il messaggio
di patel data: 08/05/2016 20:01:19
la cosa strana è che la prima volta che ho provato la macro mi ha aperto il file senza messaggi, poi riprovando mi è comparso il messaggio
di accordix data: 08/05/2016 21:37:34
mettere le mani sul registro di configurazione non e' mai un buona idea, oltretutto questa procedura deve girare su un pc con accesso limitato -.- per cui vuol dire che chi lo usa premerà ok dopo aver letto il messaggio
In ogni caso se a qualcuno viene in mente qualche soluzione............ la discussione la rimarro' aperta
grazie cmq
di accordix data: 08/05/2016 21:37:34
mettere le mani sul registro di configurazione non e' mai un buona idea, oltretutto questa procedura deve girare su un pc con accesso limitato -.- per cui vuol dire che chi lo usa premerà ok dopo aver letto il messaggio
In ogni caso se a qualcuno viene in mente qualche soluzione............ la discussione la rimarro' aperta
grazie cmq

Vuoi Approfondire?