Re: [de-users] Re: Calc: Zeilen einfügen in Tabelle mit gesperrten Zellen

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