Makro hebt Blattschutz auf

Hallo an alle im Forum,
ich bin Markus und bastel seit einiger Zeit an einem Arbeitszeitnachweis für das ganze Jahr. Nun habe ich alle 13 Blätter (Startblatt mit allen wichtigen Information und eingabemöglichkeiten sowie alle Monate auf je einem Blatt) soweit fertig. Es laufen zwei Makros: das erste was die Uhrzeiteingabe vereinfacht und das zweit was bei anklicken der Zelle ein Kreuz erzeugt. Bis dahin funktioniert alles stimmig, wenn ich aber den Blattschutz aktiviere kommt bei dem einen Makro (x erzeugen) eine Fehlermeldung. Das wollt ich im Makro selbst verhindern und habe den Schutz im Makro aufgehoben. Dann das komische: die Makros laufen- blattschutz drin- bewegt man sich in den Zellen wo das Makro (x erzeugen) läuft bleibt der blattschutz drin. Sobald man aber auf andere ungesperrte zellen klickt hebts den kompletten blattschutz auf. Klicke ich wieder in die Zellen wo das Makro (x erzeugen) steht geht der blattschutz wieder an.
Ich bin excel Neuling und bastel gern rum aber ich bekomme es nicht hin.
Über eure Hilfe würde ich mich sehr freuen.
Bis dahin viele Grüße Markus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro hebt Blattschutz auf

27.06.2013 14:05:02

Klaus

AW: Makro hebt Blattschutz auf

27.06.2013 14:32:47

Markus

AW: Makro hebt Blattschutz auf

27.06.2013 21:01:02

Markus

Mail: nein

28.06.2013 06:42:04

Klaus

Datei

28.06.2013 09:07:09

Markus

AW: Datei

28.06.2013 09:58:32

Klaus

Hi,
dein Makro BLATTSCHUTZ() ruft jedes Blatt einzeln auf. Dann läuft in jedem Blatt das "SelectionChange-Makro", das so aussieht:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("April").Unprotect Password:="albertschweitzer"
If Intersect(Range("C10:H40"), Target) Is Nothing Then Exit Sub
Worksheets("März").Protect Password:="albertschweitzer"

Du hebelst dich ja komplett selbst aus. Die Blätter sind geschützt, aber sobald ein Blatt angefasst wird hebst du den Blattschutz auf - und durch "ExitSub" wird das Makro nicht durchlaufen, kommt also beim erneuten Blattschutzsetzen nie an!
Ich schreibe dir mal exemplarisch dein Januar-Makro um, der Rest ist Fleißarbeit die du selbst erledigen musst:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("Januar").Unprotect Password:="albertschweitzer"
If Not Intersect(Range("C10:H40"), Target) Is Nothing Then
If Target = "X" Then
Target = ""
Else
Target = "X"
Target.HorizontalAlignment = xlCenter
End If
End If
Worksheets("Januar").Protect Password:="albertschweitzer"
End Sub

Du siehst, ich habe auf EXIT SUB verzichtet und stattdessen den relevanten Makroanteil in eine IF-Schleife verpackt. Dazu habe ich die INTERSECT-Abfrage mit NOT umgedreht. (Alternativ hätte ich den relevanten Teil des Makros auch in den ELSE-Block packen können).
Anmerkung: Googel dich mal schlau nach dem Stichwort "VBA Userinterfaceonly". Du kannst den Blattschutz auch generell so setzen, dass er den User blockert aber VBA-Makros alle rechte haben, dann sparst du dir das umständliche "aufheben-Code-setzen" in jedem Makro.
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread