Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1572to1576
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
Inhaltsverzeichnis

Makro läuft nur wenn kein Blattschutz

Makro läuft nur wenn kein Blattschutz
13.08.2017 11:25:11
mike49
Hallo Leute,
nachfolgendes Makro läuft nur, wenn kein Blattschutz vorhanden:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C5:C35")) Is Nothing Then
Cancel = True
If Target = "" Then
Select Case Target.Column
Case 3
Target = "Urlaub"
Target.Font.Color = -16776961
'                    Target.Offset(0, 6) = CDate("1:58")
End Select
Else
Target = ""
'            Target.Offset(0, 6).ClearContents
Target.Font.ColorIndex = xlAutomatic
End If
End If
End Sub

Mit Blattschutz kommt "Laufzeitfehler 1004" und bleibt an der Stelle: "Target.Font.Color = -16776961" stehen (gelb unterlegt).
Kann man das korrigieren?
Gruß
mike49

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro läuft nur wenn kein Blattschutz
13.08.2017 12:08:47
Daniel
Hi
Makros dürfen immer nur das tun, was auch der Anwender darf.
Wenn das Blatt geschützt ist, musst du im Makro selbst am Anfang den Schutz aufheben und am Ende wieder aktivieren.
Dazu gibt es die Befehle ActiveSheet.Unprotect und ActiveSeet.Protect.
Gruß Daniel
Ja. So klappt's . . .
13.08.2017 13:41:11
mike49
. . . ich habe ActiveSheet.Unprotect bzw. Protect-Methode gewählt.
Danke euch beiden.
Gruß
mike49
Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige