Tabellenschreibschutz per Makro

classic Classic list List threaded Threaded
1 message Options
Jörg Kleinfeld Jörg Kleinfeld
Reply | Threaded
Open this post in threaded view
|

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:[hidden email]
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: [hidden email]
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