Tabellenschreibschutz per Makro

de-users
#1

Guten Tag Listlinge,

in einem Kassenbuch mit 12 Monatstabellen möchte ich per Makro den Schreibschutz aktivieren und deaktivieren.
Bei aktiviertem Schreibschutz sollen nur die nicht schreibgschützen Zellen anwählbar sein.

Bisher ist es mir gelungen einen Durchlauf über alle Tabellen zu realisieren und den Schreibschutz zu setzen bei dem aber auch die schreibgeschützten Zellen anwählbat sind.

'╔═════════════════════════════════════════════════════════════════════╗
  Sub TabellenSchutzAn ' ║
'╚═════════════════════════════════════════════════════════════════════╝

' ┌───────────────────────────────────────────────────────────────────┐
' │ Deklaration der Variablen │
' └───────────────────────────────────────────────────────────────────┘
  Dim oDoc as Object
  Dim oSheet as Object
  Dim eSheets As Object
  Dim oCell as Object
  
' ┌───────────────────────────────────────────────────────────────────┐
' │ Definition der Variablen │
' └───────────────────────────────────────────────────────────────────┘
  oDoc = ThisComponent
  eSheets = oDoc.getSheets.createEnumeration
  
' ┌───────────────────────────────────────────────────────────────────┐
' │ Durchlauf aller Tabellen │
' └───────────────────────────────────────────────────────────────────┘
  While eSheets.hasMoreElements
      oSheet = eSheets.nextElement()

    oCell = oSheet.getCellRangeByName("C1")
    oCell.String = "°"
    oSheet.protect("")

' MsgBox "Nächster Tabellenname ist: " & oSheet.getName & "."
  Wend
  
  MsgBox (+ Chr(13) + "Sie können jetzt mit dem Kassenbuch sicher arbeiten!", 64,"Tabellenschutz aktiviert")

End Sub

Kann man das nach meinen Wünschen realisieren und wenn ja, wie?