"Dokumentschutz aufheben" deaktivieren   

Hallo zusammen,

ich habe mal zwei kleine Fragen:
Ich habe eine Wordvorlage mit einigen VBA-Funktionen, die ablaufen, wenn
diese Vorlage geffnet wird; bzw. ein neues Dokument auf Basis dieser
Vorlage erstellt wird.
Am Ende dieser Makros wird das Dokument per VBA mit einem Pawort geschtzt.
(activedokument.protect).

Nun mchte ich aber verhindern, dass User den Schutz dieses Dokumentes
aufheben knnen. Dabei dachte ich daran, den Menpunkt "Extras ->
Dokumentschutz aufheben" sowie die Punkte "Symbolleisten anpassen" und
"Extras -> Makros" zu deaktivieren.
Leider habe ich bis jetzt nichts gefunden, wie ich auf genau diese Punkte
zugreifen kann, um sie aus den Mens zu entfernen bzw. zu deaktivieren.

Nun meine Fragen:
1.) Ist ein Schutz, wie ich ihn plane einigermaen sicher? (Vor allem fr
Dau's *g*)
2.) Wie greife ich am besten per VBA auf diese Menpunkte zu? Und gibt es
irgendwo eine bersicht, welcher Menpunkt wie anzusprechen ist; bzw.
welcher Menpunkt welche eindeutige ID hat?

Fr eine baldige Antwort sage ich besten Dank im Voraus und wnsche noch
einen schnen Tag.
N. Jrn

date: Wed, 20 Apr 2005 07:53:16 +0200   author:   Nils

Re: "Dokumentschutz aufheben" deaktivieren   

FollowUp-To microsoft.public.de.word.vba gesetzt!

Hallo Nils,

> Nun mchte ich aber verhindern, dass User den Schutz dieses Dokumentes
> aufheben knnen. Dabei dachte ich daran, den Menpunkt "Extras ->
> Dokumentschutz aufheben" sowie die Punkte "Symbolleisten anpassen" und
> "Extras -> Makros" zu deaktivieren.

den Schutz knnen die Anwender doch nur aufheben, wenn sie das Kennwort
kennen, und welchen Schutz meinst Du genau?


> 1.) Ist ein Schutz, wie ich ihn plane einigermaen sicher? (Vor allem fr
> Dau's *g*)

um was fr ein Dok handelt es sich genau? Formular?
Wenn Formular, dann reicht ein Formularschutz per Kennwort fr DAUs aus.

> 2.) Wie greife ich am besten per VBA auf diese Menpunkte zu? Und gibt es
> irgendwo eine bersicht, welcher Menpunkt wie anzusprechen ist; bzw.
> welcher Menpunkt welche eindeutige ID hat?

Sub EnableDisableFunctions()
Dim b As Boolean, ret As Integer
ret = MsgBox("Funktionen deaktivieren?", vbQuestion + vbYesNo)
If ret = vbYes Then
  b = False
ElseIf ret = vbNo Then
  b = True
End If
Dim cbar As CommandBar
Dim ctl As CommandBarControl
Dim ctlsub As CommandBarControl
Set cbar = CommandBars("Menu Bar")
Set ctl = cbar.Controls("Extras")
' Menpunkt "Dokument schtzen..."
Set ctlsub = cbar.FindControl(ID:=336, Recursive:=True)
ctlsub.Enabled = b
' Menpunkt Toolbar List
CommandBars("Toolbar List").Enabled = b
For Each ctl In cbar.Controls
 For Each ctlsub In ctl.Controls
  If ctlsub.ID = 797 Then
' Menpunkt Extras/Anpassen...
   ctlsub.Enabled = b
  End If
 Next ctlsub
Next ctl
' Menpunkt "Makros..."
Set ctlsub = cbar.FindControl(ID:=30017, Recursive:=True)
ctlsub.Enabled = b
Set ctlsub = Nothing
Set ctl = Nothing
Set cbar = Nothing
End Sub

damit hast Du aber noch nicht den Doppelklick und die Symbolleisten selbst
geschtzt.
Dazu gab es erst neulich einige Beitrge; musst Du mal bei groups.google.de
suchen.
Fazit: kompletten Schutz gibt es nicht wirklich.

-- 
Gru Christian
~~~~~~~~~~~~
=> http://www.fruiture.de/perl/questions.html#intro
=> http://word.mvps.org

date: Wed, 20 Apr 2005 09:09:11 +0200   author:   FreßdorfChristian