Date: prev next · Thread: first prev next last
2013 Archives by date, by thread · List index


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.kleinfeld@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+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

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.