CALC: Schutz von Grafiken aufheben
Verfasst: Mi, 17.06.2015 15:01
Hi zweite Runde,
da das Makro auch in geschützten Tabellen funktionieren muss, muss der Schutz zeitweise abgeschaltet werden.
Dieser Code
ist nicht brauchbar, da er nur den Zellschutz, nicht aber den Schutz von Grafiken ändert.
Ein mit dem Recorder ausgezeichnetes Makro geht zum Ausschalten, beim Einschalten des Schutzes, wird aber nach einem neuen Passwort gefragt.
Wie kann ich bei diesem, die Abfrage nach einem neuen Passwort unterbinden?
Grüße
Moderation,4: neue Frage = neues Thema: Beitrag vom alten Thread [Grafiken in original Größe] abgetrennt; Betreff angepasst
da das Makro auch in geschützten Tabellen funktionieren muss, muss der Schutz zeitweise abgeschaltet werden.
Dieser Code
Code: Alles auswählen
Sub Tabellenschutz_Aus
Doc = ThisComponent
oSheet = doc.sheets(0)
oSheet.unprotect("Pass")
End Sub
Sub Tabellenschutz_Ein
Doc = ThisComponent
oSheet = doc.sheets(0)
oSheet.protect("Pass")
End Sub
Ein mit dem Recorder ausgezeichnetes Makro geht zum Ausschalten, beim Einschalten des Schutzes, wird aber nach einem neuen Passwort gefragt.
Code: Alles auswählen
sub Recorder_Tabellenschutz_Ein
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Protect"
args1(0).Value = true
dispatcher.executeDispatch(document, ".uno:Protect", "", 0, args1())
end sub
Grüße
Moderation,4: neue Frage = neues Thema: Beitrag vom alten Thread [Grafiken in original Größe] abgetrennt; Betreff angepasst