OpenOffice.info

Stephan hat geschrieben: Ich hätte auch selbst einen Dialog benutzt und wollte mir lediglich die 5 Minuten sparen die ich gebraucht hätte den zu erstellen.

Stephan hat geschrieben: Wenn ich von der grundsätzlich besseren Anpassbarkeit sprach dann eher mit Blick darauf das man die Bedienbarkeit optimieren könnte, jenachdem was der Nutzer will, z.B. eine Standardschaltfläche festlegen.

Stephan hat geschrieben: ich würde beispielsweise auf die Messagebox verzichten die meldet das man das richtige Passwort eingegeben hat, denn die testet doch nur die Nervenstärke des Nutzers der sie immer wieder wegklicken muß.

Stephan hat geschrieben: Bei solchen, etwas unklaren Problemen, ist es hilfreich OOo (inklusiv Schnellstarter) neuzustarten und nochmals zu testen wie sich ds Makro verhält.

Stephan hat geschrieben: Meine Rückfrage bezog sich also darauf ob Du etwas Konkretes bemerkt hättest was hinreichend verlässlich reproduzierbar wäre und mir noch nicht bekannt.

Meine Lösung ist wohl nicht schlecht, aber "grundsätzlich besser" Ja-Nein.

Denn ein negativer Knackpunkt an der ganze Sache ist ja die unterschiedliche Größe unter verschiedenen Betriebssystemen. Und von daher müsste sie dann natürlich angepasst werden, wenn sie nicht unter WinXP zum Einsatz kommt.

Wenn es aber darum geht dem Anwender gleich an dieser Stelle weitere Informationen auf Abruf zur Verfügung zu stellen, dann ist sie wirklich besser auch wenn es programmiertechnisch etwas mehr aufwand bedeutet.

Aber glaub mir, mit meinem Anfängerwissen habe ich mich extrem damit abgekämpft um den jetzigen funktionsstatus des Dialogs hinzubekommen.

Ich hatte ihn nämlich auch anfangs an das Ereigniss "Dokument öffnen" angehängt weil ich dachte das dies richtig wäre, aber nach etlichen fehlversuchen musste ich feststellen das dem nicht so ist. Denn ich hatte extreme schwierigkeiten alleine mit der Variable für oPassWort. Obwohl soweit alles richtig deklariert und defeniert war, funktionierte der Dialog einfach nicht. Im Dialog hatte ich eine Print-Anweisung eingebaut die mir mitteilte das der Inhalt der Variable korrekt ist, aber sie wurde dennoch nicht richtig verarbeitet. Obwohl ich das Passwort richtig eingegeben hatte wurde die Datei nicht wie vorgesehen ungeschützt geöffnet, sondern geschützt. Und erst als ich das Makro leicht umschrieb und den Dialog an das Ereigniss "Ansicht wurde erzeugt" anhieng, funktionierte es endlich.

Ich weiß nicht ob Du das schon wusstest, oder ob Du überhaupt Erfahrung mit starten eines Dialogs in dieser Situation hast

Stephan hat geschrieben: Im Übrigen ist die Lösung mit Dialog aber natürlich grundsätzlich besser, weil sie flexibler anpassbar ist.

balu hat geschrieben: Ferner habe ich die gleiche Sub auch noch bei den Ereignissen "Dokument sichern" & "Dokument sichern als" zugeordnet. Nur bin ich mir nicht sicher ob das überhaupt nötig ist. Würde mich über weitere Infos darüber freuen.

Stephan hat geschrieben: Im Falle das das Dokument zum Bearbeiten geöffnet ist ist das Setzen des Schutzes beim Sichern falsch, denn falls der Nutzer zwischenspeichert und danach noch weitere Änderungen machen will ist das Dokument plötzlich gesperrt.

Stephan hat geschrieben:

Bei dem Ereigniss "Ansicht wurde erzeugt" habe ich die Sub *DialogStarten* zugeordnet, da nach meinem bisherigen tests das die einzige richtige Stelle ist um den Dialog funktionstüchtig zu starten.

mmh, soll mir das jetzt einen Wink geben?
Offen gestanden sind bei neueren OOo-Versionen unter Extras-Anpasen einige Ereignisse hinzugekommen mit denen ich mich noch nie eingehend befasst habe da ich sie nicht gebraucht habe. Wenn ich also mein Startmakro mit dem Ereignis "Dokument öffnen" verknüpfe geschieht das nur aus Gewohnheit.
Falls Du Argumente kennst die dagegen sprechen mußt Du diese wirklich konkret nennen, denn ich kenne sie dann bisher nicht. (Hinweis: Probleme bezüglich des ThisComponent-Objektes bestehen hier im Konkreten z.B. nicht.)

blos ist meine Lösung etwas umfangreicher und das öffnen der Datei sieht anders aus

Ferner habe ich die gleiche Sub auch noch bei den Ereignissen "Dokument sichern" & "Dokument sichern als" zugeordnet. Nur bin ich mir nicht sicher ob das überhaupt nötig ist. Würde mich über weitere Infos darüber freuen.

Bei dem Ereigniss "Ansicht wurde erzeugt" habe ich die Sub *DialogStarten* zugeordnet, da nach meinem bisherigen tests das die einzige richtige Stelle ist um den Dialog funktionstüchtig zu starten.

Die Calc-Datei wird von einem Mitarbeiter gepflegt und steht 20 weiteren Mitarbeitern als Information zur Verfügung.

[...]

Bei dem klassischen Blattschutz ist die Gefahr dass der Blattschutz nicht wieder aktiviert wird ziemlich groß (mehrfache tägliche Ergänzungen parallel zu anderen Arbeiten).

	Global Const oPassWort as String = "123"
	
	Public oDok as Object
	Public sheets as Object
	Public sheet as Object
	Public oDialog1 as Object
	Public oPSW as Object	
	Dim i as integer
	Dim io as integer	
'**********************************************************	
Sub DialogStarten
	DialogLibraries.loadLibrary("Standard")
	oDialog1 = CreateUnoDialog(DialogLibraries.Standard.Dialog)
	Dim bNativeLook as Boolean
	bNativeLook = False
	oDialog1.getPeer().setProperty( "NativeWidgetLook", bNativeLook )
	oPSW = oDialog1.getControl("TextField1")	
	oDialog1.execute
End sub
'**********************************************************
Sub TabellenSperren
	oDok = thisComponent
	Anzahl = oDok.Sheets.count
		For i = 0 to Anzahl-1
			oSheet = oDok.Sheets(i)
			oSheet.protect(oPassWort)
		Next i
End Sub
'**********************************************************	
Sub TabellenFreischalten
	oDok = thisComponent
	Anzahl = oDok.Sheets.count
		For io = 0 to Anzahl-1
			oSheet = oDok.Sheets(io)
			oSheet.unprotect(oPassWort)
		Next io
End Sub
'**********************************************************	
Sub PasswortCheck	
	PSWinput = oPSW.Text
	If PSWinput <> oPassWort Then
		oPSW.Text =  ""
		Msgbox "Das Passwort ist Falsch"				
	Else
		Msgbox "Das Passwort ist Richtig!"
		TabellenFreischalten
		oDialog1.endexecute
	End If
End Sub
'**********************************************************
Sub MitBlattschutzWeiter	
	oDialog1.endexecute
end Sub

[...] Mitarbeitern [...] nicht jeder Nutzer erkennt wenn er eine Datei schrottet [...]

Bei dem klassischen Blattschutz ist die Gefahr dass der Blattschutz nicht wieder aktiviert wird ziemlich groß (mehrfache tägliche Ergänzungen parallel zu anderen Arbeiten).

sub blattschutz_setzen()
  With ThisComponent.Sheets
    For i = 0 To .Count - 1
      .getByIndex(i).protect("meinPasswort")
    Next I
  End With
  'ThisComponent.Store()
end sub

sub blattschtz_entfernen()
  With ThisComponent.Sheets
    For i = 0 To .Count - 1
      .getByIndex(i).unprotect("meinPasswort")
    Next I
  End With
end sub

Warum benutzt du nicht unter Extra ---> Dokument schützen ----> Tabelle

Die Variante bei jedem speichern den Blattschutz wieder zu aktivieren ist mir zu unsicher.
Die Datei wird ständig bearbeitet und die Gefahr dass das Aktivieren vergessen wird ist zu groß.

Die Variante bei jedem speichern den Blattschutz wieder zu aktivieren ist mir zu unsicher.

Die Variante bei jedem speichern den Blattschutz wieder zu aktivieren ist mir zu unsicher.
Die Datei wird ständig bearbeitet und die Gefahr dass das Aktivieren vergessen wird ist zu groß.