title image


Smiley Re: Dokumentschutz per VBA erstellen (Word 2003)
Hallo



hier ein Beispiel von Hubert







      

' Formularschutz - Text Formularfelder nicht löschen

' Geschickt von hubert am 08.04.2002 um 17:47:13

Private Sub oFSchutz()

   ' Erzeugt eine neue Symbolleiste mit einem Umschalt Button(Toggle Button)

   ' einmalger Aufruf des Makros oFSchutz und Speichern der Dokumentvorlage

    Dim xLeiste As CommandBar

    Dim Titel As String

    Dim CmdBar, neuesElement

    ' Erzeugen der Symbolleiste

    Titel = "FSchutz"

    ' Prüfen, ob die Symbolleiste existiert

    For Each xLeiste In CommandBars

        If xLeiste.Name = Titel Then

            MsgBox "Eine Symbolleiste " & Chr(34) & Titel & Chr(34) & " ist bereits vorhanden!", 48 + 0, "Fehler"

            Exit Sub

        End If

    Next xLeiste

 

    Set CmdBar = CommandBars.Add( _

    Name:=Titel, Position:=msoBarBottom, Temporary:=False)

 

    Dim Knopf As CommandBarButton

    Set Knopf = CommandBars(Titel).Controls.Add(ID:=1)

    With Knopf

      .Style = msoButtonIconAndCaption

      .Caption = "Formularschutz aktivieren"

      .TooltipText = "Schaltet den Formularschutz ein"

      .OnAction = "FormularSchutzEinAus"

      .FaceId = 264

    End With

   CmdBar.Visible = True

End Sub

' Schaltet den Formularschutz ein und aus und stellt die Menuleiste dem entsprechend ein.

Private Sub FormularSchutzEinAus()

    Dim Knopf As CommandBarButton

    Set Knopf = CommandBars.ActionControl

    If Documents.Count = 0 Then

       MsgBox "Es ist kein Dokument geöffnet"

       Exit Sub

    End If

    

    With Knopf

       Select Case ActiveDocument.ProtectionType

          Case wdNoProtection

             ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True

                .FaceId = 264

                .State = msoButtonDown

                .Caption = "Formularschutz aufheben"

                .TooltipText = "Hebt den Formularschutz auf"

          Case wdAllowOnlyFormFields

             ActiveDocument.Unprotect

                .FaceId = 277

                .State = msoButtonUp

                .Caption = "Formularschutz aktivieren"

                .TooltipText = "Schaltet den Formularschutz ein"

       End Select

    End With

    

End Sub 











Gruß

Bongartz

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: