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