Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1396to1400
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vba Alle Datenverbindungen aktivieren

vba Alle Datenverbindungen aktivieren
19.12.2014 08:05:25
Michael
Moin Allerseits!
In unserer Firma greifen wir über ein Makro auf Webseiten zu. Bei manchen Kollegen klappt das nicht. Wir haben herausgefundne, dass der Schalter unter
Sicherheitscenter - Externer Inhalt - Sicherheitseinstellungen für Datenverbindungen
deaktiviert ist.
Kann ich das per vba abfragen? Dann kann ich eine Meldung mit dem Hinweis "Bitte aktivieren" ausgeben.
Danke für Eure Hilfe
Michael H

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba Alle Datenverbindungen aktivieren
19.12.2014 10:05:23
ransi
Hallo Michael
Da brauchst du Zugriff auf die Registry.
Versuch mal sowas:
Option Explicit

Public Sub machs()
    Const Pfad = "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel\Security\DataConnectionWarnings"
    Dim objWSH As Object
    Dim sText As String
    Set objWSH = CreateObject("WScript.Shell")
    Select Case objWSH.RegRead(Pfad)
        Case 0:
            sText = """Alle Datenverbindungen aktivieren."""
        Case 1:
            sText = """Benutzer zu Datenverbindung auffordern."""
        Case 2:
            sText = """Alle Datenverbindungen deaktivieren."""
    End Select
    MsgBox "Option: " & sText & " ist ausgewählt"
End Sub


ransi

Anzeige
AW: vba Alle Datenverbindungen aktivieren
19.12.2014 10:36:23
Michael
Hallo ransi!
Vielen Dank. Ich probiere das aus.
VG
Michael H

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige