Fehler beim Aufheben des globalen Blatts

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 'ActiveSheet.Unprotect '--bei Zellwechsel wird Schutz aufgehoben Dim r As Long Dim c As Integer If Not Intersect(Target, Range("B5:H35")) Is Nothing Then 'hier die Pruefung ActiveSheet.Unprotect '--bei Zellwechsel wird Schutz aufgehoben Range("B5:H35").Interior.ColorIndex = xlNone r = Selection.Row ' c = Selection.Column Range(Cells(r, 2), Cells(r, 8)).Interior.ColorIndex = 35 ' Range(Cells(2, c), Cells(8, c)).Interior.ColorIndex = 35 ActiveSheet.Protect '--Schutz setzen wenn Zellwechsel innerhalb der Range ActiveSheet.EnableSelection = xlUnlockedCells '--gesperrte Zellen werden nicht angewählt End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Mike, ich wünsche mir insgeheim das die Fragenden sich mit den Lösungen auch auseinandersetzen und sie versuchen zu analysieren. Ansonsten verkommt so ein Forum wo sich Leute gegenseitig helfen, zu einem Ort wo man billig Lösungen abgreifen kann, indem man nur ein bisschen herumwinselt.
Für mich sieht deine Beispieldatei so aus als ob du die geerbt oder gefunden hast und keinen Plan hast was du da eigentlich tust.
Als erstes sollte man sich in Onlinehilfen informieren was man da eigentlich vor der Nase hat.
der Code befindet sich im Modul der Arbeitsmappe und wird ausgelöst wenn sich in einem Blatt eine Auswahl ändert. sh ist der Verweis(die Referenz) auf das auslösende Blatt. Ohne die Blattreferenz ist ein Range( einZellbezug ) nicht eindeutig.
Da du diesen Select Case Hinweis auch nicht umsetzen kannst, hast du viel zu wenig Basiswissen. Ich rate dir die Finger davon zu lassen.
gruß
rb

Moin, is' nur zum Testen. :-)


'Modul DieseArbeitsmappe
Option Explicit
Private Sub Workbook_Open()
Dim intBlatt As Integer
Application.ScreenUpdating = False 'Bildschirmaktualisierung abschalten.
For intBlatt = 1 To ThisWorkbook.Sheets.Count 'Schleife für alle Tabellenblätter:
With ThisWorkbook.Sheets(intBlatt)
Select Case .Name
Case "Jahr Eingabe", "Feiertage"  'mach nichts
Case Else
.Cells.Locked = True
.Range("B5:H35").Locked = False
'Schutz  herstellen.
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
.EnableSelection = xlUnlockedCells
End Select
End With
Next
Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder einschalten.
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
With Sh
Select Case .Name
Case "Jahr Eingabe", "Feiertage"  'mach nichts
Case Else
If Not Intersect(Target, Sh.Range("B5:H35")) Is Nothing Then 'hier die Pruefung
.Unprotect
Sh.Range("B5:H35").Interior.ColorIndex = xlNone
Intersect(Target.EntireRow, .Range("B:H")).Interior.ColorIndex = 35
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
.EnableSelection = xlUnlockedCells
End If
End Select
End With
End Sub


'Modul1
Option Explicit
Sub KeinSchutz()
Dim intBlatt As Integer
Application.ScreenUpdating = False 'Bildschirmaktualisierung abschalten.
With ThisWorkbook
For intBlatt = 1 To .Sheets.Count 'Schleife für alle Tabellenblätter:
If .Sheets(intBlatt).ProtectContents = True Then
.Sheets(intBlatt).Unprotect 'Wenn geschützt dann Schutz aufheben.
End If
Next
End With
Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder einschalten.
End Sub
Sub Schutz()
Dim intBlatt As Integer
Application.ScreenUpdating = False 'Bildschirmaktualisierung abschalten.
With ThisWorkbook
For intBlatt = 1 To .Sheets.Count 'Schleife für alle Tabellenblätter:
Select Case .Name
Case "Jahr Eingabe", "Feiertage"  'mach nichts
Case Else
With .Sheets(intBlatt)
If .ProtectContents = False Then  'Wenn ungeschützt dann Schutz wieder herstellen.
.Cells.Locked = True
.Range("B5:H35").Locked = False
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
.EnableSelection = xlUnlockedCells
End If
End With
End Select
Next
End With
Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder einschalten.
End Sub

Gruß Gerd

Beliebteste Forumthreads (12 Monate)

Fehler beim Aufheben des globalen Blatts

28 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread