Macros ausführen bei Blattschutz

Hallo!
Ich habe eine Excel Arbeitsmappe mit 3 Tabellen mit einem Blattschutz versehen.
Einzelne Zellen sind, wie vorgesehen, weiterhin bearbeitbar. Nun habe ich einige Buttons auf der Seite, welche Macros ausführen. Die Macros springen beim Auswählen, Kopieren und Eingeben zwischen den Tabellen hin und her. Diese Macros sind nach Blattschutzeinrichtung nicht mehr ausführbar.

Wie kann ich es nun einrichten, dass die Macros weiterhin ausgeführt werden, auch wenn die Tabellenblätter mit Blattschutz versehen sind.
mit derartigen Codes habe ich es bereits probiert:

Private Sub Worksheet_Activate()
ActiveSheet.Protect password:="*****", Userinterfaceonly:=True
End Sub

Kann mir da eventuell jemand weiterhelfen?
Mit besten Grüßen
Johann Starnberg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub search3() ' search3 Makro Application.CutCopyMode = False Application.CutCopyMode = False Application.CutCopyMode = False Application.CutCopyMode = False Sheets("Kundendaten").Range("A1:AD500").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A1:AD2"), CopyToRange:=Range("A8:AD9"), Unique:=False End Sub

hätte 1 mal "Application.CutCopyMode = False" nicht auch gereicht? ;)
du nutzt recht häufig den Makrorecorder.

Sub Suchelos()
' Suchelos Makro
If WorksheetFunction.CountA(Worksheets("Verwaltung").Range("A2:AD2")) = 0 Then Exit Sub
Application.ScreenUpdating = False
Worksheets("Kundendaten").Unprotect Password:="3133"
Worksheets("Verwaltung").Unprotect Password:="3133"
Application.CutCopyMode = False
Sheets("Kundendaten").Range("A1:AD500").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("Verwaltung").Range("A1:AD2"), CopyToRange:=Worksheets(" _
Verwaltung").Range("A8"), Unique:=False
Worksheets("Kundendaten").Protect Password:="3133", Userinterfaceonly:=True
Worksheets("Verwaltung").Protect Password:="3133", Userinterfaceonly:=True
Worksheets("Verwaltung").Activate
Application.ScreenUpdating = True
End Sub

der folgende Code ist das wie dein Code werden könnte. Gleiche Funktion, sehr viel übersichtlicher


Sub sucheloeschen()
' sucheloeschen Makro
Range("A2:AD2", "A10:AD50").ClearContents
With Range("A10:R20")
.Borders.LineStyle = xlNone
With .Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Macros ausführen bei Blattschutz

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread