OpenOffice.info

Sub Blattschutz_ein()
    Dim Blatt As Worksheet
    Dim Passwort As String
    Passwort = InputBox("Enter = Kein Passwort.", "Bitte Passwort eingeben:")
    For Each Blatt In ActiveWorkbook.Sheets
        Blatt.Protect Password:=Passwort, _
        DrawingObjects:=True, _
        contents:=True, _
        Scenarios:=True
    Next
End Sub


Sub Blattschutz_aus()
    Dim Blatt As Worksheet
    Dim Passwort As String
    Passwort = InputBox("Enter = Kein Passwort.", "Bitte Passwort eingeben:")
    For Each Blatt In ActiveWorkbook.Sheets
        If Passwort > "" Then
            Blatt.Unprotect Password:=Passwort
        Else: Blatt.Unprotect
        End If
    Next
End Sub

Hallo am Sonntag!

Ich bin noch nicht weiter gekommen.

Jetzt kopiere ich mal das Makro von der Exceldatei hier hinein.
Eventuell kann man das dann lieber einfacher auf OO anpassen :-)

Danke!
Eby
[code]

Sub Blattschutz_ein()
Dim Blatt As Worksheet
Dim Passwort As String
Passwort = InputBox("Enter = Kein Passwort.", "Bitte Passwort eingeben:")
For Each Blatt In ActiveWorkbook.Sheets
Blatt.Protect Password:=Passwort, _
DrawingObjects:=True, _
contents:=True, _
Scenarios:=True
Next
End Sub


Sub Blattschutz_aus()
Dim Blatt As Worksheet
Dim Passwort As String
Passwort = InputBox("Enter = Kein Passwort.", "Bitte Passwort eingeben:")
For Each Blatt In ActiveWorkbook.Sheets
If Passwort > "" Then
Blatt.Unprotect Password:=Passwort
Else: Blatt.Unprotect
End If
Next
End Sub[/code]

Lieben Dank!

Hab gerade auch keine Zeit.... aber vielen Dank auch für die Info zu den Makros.
Spätestens morgen gebe ich Bescheid.

Alles Gute!
Eby

[quote="effektiver"]Dein Vorschlag habe ich leider nicht zum laufen gebracht.[/quote]
Woran hängt es?

Muss zugeben... musste meine Tochter abholen und habe die Schleife nicht probiert.
Gibt es eine Fehlermeldung?


Oder haperts mit dem Wissen um Makroeinsatz im Allgemeinen?

http://www.ooowiki.de/MakrosInstallieren

Hallo!

Mit Makros muss ich mir immer helfen lassen.
Ansonsten auch nur mit Excel. Aber ich muß nun
mit OO weiter machen.

Die Exceldatei hatten die Makros alle darin.
Nur funktionieren die nicht mit OO :-(

Dein Vorschlag habe ich leider nicht zum laufen gebracht.

Danke trotzdem
Eby

StarDesktop.CurrentComponent.Sheets().getByIndex( 0 ).protect( "" )

For i = 0 to StarDesktop.CurrentComponent.Sheets().Count - 1
   StarDesktop.CurrentComponent.Sheets().getByIndex( i ).protect( "" )
Next i

Willkommen im Forum.


[quote="effektiver"]Ich bin neuer Nutzer von OO und habe eine Frage an die, die Makros erstellen können.[/quote]
Auch neu in der Forenwelt?
Hier gibt es für Makrofragen ein Unterforum - deshalb habe ich Dein Post gleich dahin verschoben 8)



[quote="effektiver"]Aber ich möchte gerne alle Blätter, oder noch besser immer die gleichen ausgewählten Blätter mit einem Paßwort schützen und wieder öffnen können. [/quote]

[code]
StarDesktop.CurrentComponent.Sheets().getByIndex( 0 ).protect( "" )[/code]

Ein Passwort könnte dann innerhalb der Anführungszeichen stehen...

Um die Anweisung noch eine Schleife gebaut - arbeitet die Zeile für alle Tabellenblätter
[code]
For i = 0 to StarDesktop.CurrentComponent.Sheets().Count - 1
StarDesktop.CurrentComponent.Sheets().getByIndex( i ).protect( "" )
Next i[/code]

Die Anweisung zum Schutz entfernen heisst dann -logischerweise- [color=#008000].unprotect( "" ) [/color]

Hilft Dir das weiter?

Hallo!

*meinersterBeitraghier* :-)

Ich bin neuer Nutzer von OO und habe eine Frage an die, die Makros erstellen können.

Ich habe eine Datei mit diversen Blättern als Tabellenkalkulation (Calc). Blattschutz kenne ich. Aber ich möchte gerne alle Blätter, oder noch besser immer die gleichen ausgewählten Blätter mit einem Paßwort schützen und wieder öffnen können. Ich habe schon die Forensuche ausprobiert, aber nichts gefunden was mir da weiter hilft.

Über eine Antwort würde ich mich sehr freuen.

Viele Grüße!
Eby