[de-users] Tabellenschreibschutz per Makro

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?

-- 
Mit freundlichen Grüßen
Jörg Kleinfeld

mailto:joerg.kleinfeld@arcor.de
http://www.bsv.de

 The Bat! Version 6.7.7.0 (Christmas Edition) (32-bit) auf Windows 6.2 9200 
-- 
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert