Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1736to1740
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
1736to1740
1736to1740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro trotz Blattschutz

Makro trotz Blattschutz
01.02.2020 21:13:53
Andre
Hallo zusammen,
ich hoffe ihr könnt mir weiterhelfen denn ich bin mit meinem Latein am Ende.
Ich setzte beim Arbeitsmappe öffnen einen Blattschutz. 
Private Sub Workbook_Open()
Worksheets("Tabelle1").Protect Password:="Test", Contents:=True, UserInterfaceOnly:=True
End Sub
Dann möchte ich im Blatt "Tabelle1" mein Makro ausführen was aber auf Grund des Blattschutzes auf Fehler läuft. Wo ist denn hier der Fehler? Ich setze doch extra UserInterfaceOnly auf True....
Ich hoffe mir kann jemand weiterhelfen.
Wünsche erstmal noch einen schönen Samstag Abend.
Grüße Andre

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
welcher Code, welcher Fehler ?
01.02.2020 21:45:41
Matthias
Hi
Der Fehler entsteht doch sicher nicht beim Workbook_Open()
sondern 20cm vor dem Bildschirm.
Wer soll denn wissen welcher Fehler bei Dir aufläuft und warum, wenn Du keine Informationen
lieferst.
Gruß Matthias
AW: welcher Code, welcher Fehler ?
02.02.2020 08:30:13
Andre
Hi Matthias,
ich denke auch das es sich hier um einen Layer 8 Fehler handelt ;-)
Aber das ist sicher bei 99% der Beiträge in dem Forum der Fall. Die Frage ist ja, wo liegt der Fehler.
Es kommt die Fehlermeldung: Laufzeitfehler 1004 Anwendungs- oder Objektdefinierter Fehler.
Dieser Fehler erschein bei der Auswahl eines Private Sub Worksheet_SelectionChange(ByVal Target As Range) Makros, in der durch den Code geschützten Arbeitsmappe.
Ohne den vorher gesetzten Blattschutz läuft mein Makro ohne Probleme. Es müsste also an dem Setzten des Blattschutzes liegen.
Gruß Andre
Anzeige
AW: welcher Code, welcher Fehler ?
02.02.2020 09:18:39
Matthias
Hi
Zitat
Es müsste also an dem Setzten des Blattschutzes liegen.
Antwort
NEIN, denn ich bekomme keine Fehlermeldung.
Gruß Matthias
AW: welcher Code, welcher Fehler ?
02.02.2020 10:06:55
Andre
Danke für die schnelle Antwort. Nur leider komme ich kein Stück weiter.
Ich habe gerade festgestellt das mein Makro funktioniert wenn ich Contents auf False setze. Nur leider kann ich dann auch die Zellen bearbeiten welche geschützt sein sollen....
Zur Darstellung eine Datei anbei.
https://www.herber.de/bbs/user/134919.xlsm
Danke für eventuelle Hinweise und Grüße
Anzeige
ich kann die Datei nicht öffnen ...
02.02.2020 10:21:38
Matthias
Hallo Andre,
ich kann die Datei leider nicht öffnen ...
Userbild
Gruß Matthias
AW: ich kann die Datei nicht öffnen ...
02.02.2020 10:48:56
Andre
Hier ist der Wurm drin.....
Ich habe den Code in eine andere Datei kopiert. Ich hoffe diese lässt sich öffnen.
https://www.herber.de/bbs/user/134921.xlsm
Grüße Andre
AW: ich kann die Datei nicht öffnen ...
02.02.2020 12:08:12
Nepumuk
Hallo Andre,
manche sachen kann ein Makro trotz UserInterfaceOnly nicht. Z.B. einfügen nach kopieren oder eben eine Gültigkeit einfügen. Also:
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim objCell As Range
    Dim lngColumn As Long, lngRow As Long
    Dim strTemp As String
    If Target.Count = 1 Then
        If Not Intersect(Target, Range("C12:L67")) Is Nothing Then
            Call Target.Validation.Delete
            Set objCell = Tabelle2.Columns(1).Find(What:=Cells(Target.Row, 1).Text, _
                LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
            If Not objCell Is Nothing Then
                lngRow = objCell.Row
                With Tabelle2
                    For lngColumn = 2 To .Cells(lngRow, .Columns.Count).End(xlToLeft).Column
                        With .Cells(lngRow, lngColumn)
                            If IsNumeric(.Text) Then strTemp = strTemp & "," & .Text
                        End With
                    Next
                End With
                If strTemp <> vbNullString Then
                    Call Unprotect(Password:="nikolai")
                    With Target.Validation
                        Call .Add(Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
                            Operator:=xlBetween, Formula1:=Mid$(strTemp, 2))
                        .InCellDropdown = True
                    End With
                    Call Protect(Password:="nikolai")
                End If
            End If
        End If
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: ich kann die Datei nicht öffnen ...
02.02.2020 12:23:41
Andre
Nepumuk, du sollst den schönsten Sonntag haben den man sich vorstellen kann!!!!
Grüße und sicher bis bald.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige