Guten Tag Günter Ohmer,
am Mittwoch, 25. September 2013 um 09:20 hast du geschrieben:
> Hallo Micha,
> Danke!
> Am Montag, 23. September 2013, 20:24:41 schrieb Micha Kuehn:
>> Günter Ohmer schrieb:
>> > Hallo Leute,
>> >
>> > wie kann ich in eine Tabelle mit gesperrten Zellen Zeilen einfügen ohne
>> > vorher zu entsperren?
>> > Geht das überhaupt?
>>
>> Um einzelne Zellen zu sperren, musst du doch das Tabellenblatt schützen.
>> Und wenn das Blatt geschützt ist, kannst du keine Zeilen oder Spalten
>> einfügen.
> Habe ich mir auch schon selbst überlegt, aber die Bestätigung war mir wichtig.
> Da muss ich wohl ein Makro schreiben.
Vielleicht hilft dir das etwas weiter. Hier werden alle Tabellen
behandelt und geschützt oder freigegeben.
'╔═════════════════════════════════════════════════════════════════════╗
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 "Tabellenschutz wurde aktiviert!" & CHR$(13) &_
"In Zelle C1 wurde ""°"" eingetragen."
End Sub
'╔═════════════════════════════════════════════════════════════════════╗
Sub TabellenSchutzAus ' ║
'╚═════════════════════════════════════════════════════════════════════╝
' ┌───────────────────────────────────────────────────────────────────┐
' │ 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")
oSheet.unprotect("")
oCell.String = ""
' MsgBox "Nächster Tabellenname ist: " & oSheet.getName & "."
Wend
MsgBox "Tabellenschutz wurde deaktiviert!" & CHR$(13) &_
"Zelle C1 wurde eingefärbt."
End Sub
--
Mit freundlichen Grüßen
Jörg Kleinfeld
mailto:joerg.kleinf...@arcor.de
http://www.bsv.de
Mittwoch, 25. September 2013 * 18:27:34 Uhr
Windows 7 6 1 Build 7601 Service Pack 1
TheBat! 5.4.8
--
Liste abmelden mit E-Mail an: users+unsubscr...@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
