Blattschutz für in bestimmten Bereich aktivieren

[tomcat]

Hallo Ihr Lieben,

ich benötige bitte wieder mal eure Hilfe.

ich habe ein worksheet mit dem Namen "Matrix"

in diesem worksheet werden 3 Bereiche bearbeitet:

1. Bereich: ab Zeile 15 und Spalte1-10
2. Bereich: Zeile 1-13 und ab Spalte 12
3. Bereich: ab Zeile 15 und ab Spalte 12

jetzt soll folgendes passieren sobald ein Button betätigt wird:

schaue alle Bereiche an und ermittle die letzte befüllte Zelle in diesen Bereichen und sperre alle vorherigen Zellen mit einem Blattschutz mit einem Passwort 1234.

Dazu muss ich sagen das es vor dem Ausführen bereits gesperrte Zellen gibt diese sollen aber immer gesperrt bleiben (ich denke das ist egal wollte ich aber nur mitteilen)

Ich hoffe ich hab mich verständlich ausgedrückt.


Vielen Dank euch!

[NobX]

Hallo tomcat,

wie sieht den der Code aus, den Du bisher zu Deinem Button hinterlegt hast?

Grüße

Norbert

[tomcat]

Hi NobX

hier der Code. 

Hier ist eig keine Sonderlocke 

Public Sub Protect()
' Marko um Dokument zu schützen

    Range("A1:K14,K:K,14:14,A15:A1003").Select
    Sheets("Matrix").Protect "K@ba1234"
    Sheets("Matrix").EnableSelection = xlUnlockedCells
    Sheets("Lagerort").Protect Password:="K@ba1234"
    Sheets("Lagerort").EnableSelection = xlUnlockedCells
    Sheets("import Schlüssel").Protect Password:="K@ba1234"
    Sheets("import Schlüssel").EnableSelection = xlUnlockedCells
    Sheets("import Zylinder").Protect Password:="K@ba1234"
    Sheets("import Zylinder").EnableSelection = xlUnlockedCells
    Sheets("import Schließung").Protect Password:="K@ba1234"
    Sheets("import Schließung").EnableSelection = xlUnlockedCells
    Sheets("import Schließungsmatrix").Protect Password:="K@ba1234"
    Sheets("import Schließungsmatrix").EnableSelection = xlUnlockedCells
    Sheets("export KWD").Protect Password:="K@ba1234"
    Sheets("export KWD").EnableSelection = xlUnlockedCells
   
End Sub

Public Sub Unprotect()
' Marko um Dokumentenschutz aufzuheben

Dim Matrix As Worksheet
Set Matrix = ThisWorkbook.Worksheets("Matrix")

    Range("A1:K14,K:K,14:14,A15:A1003").Select
    Sheets("Matrix").Unprotect Password:="K@ba1234"
    Sheets("Matrix").EnableSelection = xlUnlockedCells
    Sheets("Lagerort").Unprotect Password:="K@ba1234"
    Sheets("Lagerort").EnableSelection = xlUnlockedCells
    Sheets("import Schlüssel").Unprotect Password:="K@ba1234"
    Sheets("import Schlüssel").EnableSelection = xlUnlockedCells
    Sheets("import Zylinder").Unprotect Password:="K@ba1234"
    Sheets("import Zylinder").EnableSelection = xlUnlockedCells
    Sheets("import Schließung").Unprotect Password:="K@ba1234"
    Sheets("import Schließung").EnableSelection = xlUnlockedCells
    Sheets("import Schließungsmatrix").Unprotect Password:="K@ba1234"
    Sheets("import Schließungsmatrix").EnableSelection = xlUnlockedCells
    Sheets("export KWD").Unprotect Password:="K@ba1234"
    Sheets("export KWD").EnableSelection = xlUnlockedCells
   
End Sub

[tomcat]

Hallo Leute,

anbei hab ich euch mal meine Datei angefügt ohne Makros.