Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
740to744
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
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sicherheitsstufe niedrig

Sicherheitsstufe niedrig
08.03.2006 09:39:42
detleffranz
Hallo zusammen,
wie kann ich z.B.
beim öffnen meiner Arbeitsmappe überprüfen welche Sicherheitsstufe eingestellt ist und dieser dann auf niedrig stellen ?

Private Sub Workbook_Open()
End Sub

Hat jemand eine Idee ?
Gruss Detlef

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sicherheitsstufe niedrig
08.03.2006 09:49:21
Sylvio
Hallo Detlef,
es gibt ne Eigenschaft MsoAutomationSecurity die das regelt.
secAutomation wird der wert hinterlegt der aktuell gilt
msoAutomationSecurityForceDisable weist deaktivieren von makros der Anwendung zu
Application.AutomationSecurity = secAutomation am schluss wird es wieder zurückgesetzt
Beispiel aus der Hilfe von Excel (das Ding mit F1 :-)

Private Sub Workbook_Open()
Dim secAutomation As MsoAutomationSecurity
secAutomation = Application.AutomationSecurity
Application.AutomationSecurity = msoAutomationSecurityForceDisable
Application.AutomationSecurity = secAutomation
End Sub

Gruß Sylvio
Anzeige
AW: Sicherheitsstufe niedrig
08.03.2006 10:03:18
detleffranz
Hallo Sylvio,
beim Komplitieren bekomme ich eine Fehlermeldung bei
MsoAutomationSecurity
Brauche ich für den Code noch eine Library unter Extras-Verweis ?
Gruss Detlef
AW: Sicherheitsstufe niedrig
08.03.2006 13:17:56
Sylvio
Hallo Detlef,
hab das 1 zu 1 aus der Excel-VBA-Hilfe kopiert.
das geht bei mir (beachte aber den Hinweis von Rames)
Gruß Sylvio
AW: Sicherheitsstufe niedrig
08.03.2006 09:52:17
Nepumuk
Hallo Detlef,
das geht im Prinzip schon, aber was soll das bringen? Wenn du sie per Makro runter setzt, wirkt sich das erst beim nächsten öffnen von Excel aus.
Gruß
Nepumuk

Sicherheitsstufe
08.03.2006 17:44:25
Hannes
Hallo Nepumuk,
kann man tatsächlich die Sicherheitsstufe per
Makro ansprechen ?
wenn ja,wie geht das?
Danke !
Grüße Hannes
Anzeige
AW: Sicherheitsstufe
08.03.2006 17:56:43
Nepumuk
Hallo Hannes,
klar:
Sub lesen()
    Dim WSHShell As Object
    Set WSHShell = CreateObject("wscript.shell")
    Select Case WSHShell.RegRead("HKCU\Software\Microsoft\Office\" & _
                Application.Version & "\Excel\Security\Level")
        Case 1: MsgBox "''niedrig''"
        Case 2: MsgBox "''mittel''"
        Case 3: MsgBox "''hoch''"
    End Select
    Set WSHShell = Nothing
End Sub

Gruß
Nepumuk

Anzeige
Klar ! ...Danke !... o.T.
08.03.2006 22:13:49
Hannes
Gruß Hannes

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige