Servus zusammen,
ich habe mehrere Registerkarten und auf denen sind immer die selbe zellen gesperrt und sollen auch nicht angewählt werden dürfen.
Anfangs hat alles perfekt funktioniert, nach ein paar Wochen konnte ich aber die gesperrten Zellen zwar nicht editieren aber wieder anwählen.
Hab mir damals mehrere Codes geben lassen, damit ich zum einen nur das betreffenden Blatt oder eben die Komplette Mappe auf einmal sperren und entsperren kann.
jetzt zu meiner Frage ... kann hier der Fehler begraben sein bzw kann man in den Code evtl. nachträglich etwas einbauen damit ich die gesperrten Zellen nicht anwählen kann wenn ich diese zuvor mit dem Makro erneut gesperrt habe.
Hier die alten Codes :
Sub BlattschutzAktivesBlattEinschalten()
ActiveSheet.Protect
End Sub
Sub BlattschutzAusschalten()
ActiveSheet.Unprotect
End Sub
Sub alle_Blätter_Schutz_aufheben()
Dim wksBlatt As Worksheet
For Each wksBlatt In ThisWorkbook.Worksheets
wksBlatt.Unprotect
Next wksBlatt
End Sub
Sub alle_Blätter_Schützen()
Dim wksBlatt As Worksheet
For Each wksBlatt In ThisWorkbook.Worksheets
If wksBlatt.Name <> "Index" Then wksBlatt.Protect
Next wksBlatt
End Sub
------------------------------------------------------------------------
Hier ist noch ein Code der damit eigentlich nichts zu tun haben dürfte aber zur Sicherheit post ich den trozdem :
Sub Index()
Dim intTab As Integer
Dim tbl As Worksheet
Dim intZeile As Integer
Set tbl = Worksheets.Add(Before:=Worksheets(1))
intZeile = 1
For intTab = 2 To ActiveWorkbook.Worksheets.Count
tbl.Cells(intZeile, 1).Value = Worksheets(intTab).Name
tbl.Cells(intZeile, 1).Hyperlinks.Add _
Anchor:=Cells(intZeile, 1), Address:="", SubAddress:= _
Worksheets(intTab).Name & "!A1", _
ScreenTip:="Klicken Sie auf den Hyperlink", _
TextToDisplay:=Worksheets(intTab).Name
intZeile = intZeile + 1
Next intTab
End Sub
Hoffe ihr habt eine lösung, ist langsam echt nervig das ganze !!!!!!!
ich habe mehrere Registerkarten und auf denen sind immer die selbe zellen gesperrt und sollen auch nicht angewählt werden dürfen.
Anfangs hat alles perfekt funktioniert, nach ein paar Wochen konnte ich aber die gesperrten Zellen zwar nicht editieren aber wieder anwählen.
Hab mir damals mehrere Codes geben lassen, damit ich zum einen nur das betreffenden Blatt oder eben die Komplette Mappe auf einmal sperren und entsperren kann.
jetzt zu meiner Frage ... kann hier der Fehler begraben sein bzw kann man in den Code evtl. nachträglich etwas einbauen damit ich die gesperrten Zellen nicht anwählen kann wenn ich diese zuvor mit dem Makro erneut gesperrt habe.
Hier die alten Codes :
Sub BlattschutzAktivesBlattEinschalten()
ActiveSheet.Protect
End Sub
Sub BlattschutzAusschalten()
ActiveSheet.Unprotect
End Sub
Sub alle_Blätter_Schutz_aufheben()
Dim wksBlatt As Worksheet
For Each wksBlatt In ThisWorkbook.Worksheets
wksBlatt.Unprotect
Next wksBlatt
End Sub
Sub alle_Blätter_Schützen()
Dim wksBlatt As Worksheet
For Each wksBlatt In ThisWorkbook.Worksheets
If wksBlatt.Name <> "Index" Then wksBlatt.Protect
Next wksBlatt
End Sub
------------------------------------------------------------------------
Hier ist noch ein Code der damit eigentlich nichts zu tun haben dürfte aber zur Sicherheit post ich den trozdem :
Sub Index()
Dim intTab As Integer
Dim tbl As Worksheet
Dim intZeile As Integer
Set tbl = Worksheets.Add(Before:=Worksheets(1))
intZeile = 1
For intTab = 2 To ActiveWorkbook.Worksheets.Count
tbl.Cells(intZeile, 1).Value = Worksheets(intTab).Name
tbl.Cells(intZeile, 1).Hyperlinks.Add _
Anchor:=Cells(intZeile, 1), Address:="", SubAddress:= _
Worksheets(intTab).Name & "!A1", _
ScreenTip:="Klicken Sie auf den Hyperlink", _
TextToDisplay:=Worksheets(intTab).Name
intZeile = intZeile + 1
Next intTab
End Sub
Hoffe ihr habt eine lösung, ist langsam echt nervig das ganze !!!!!!!