Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Blattschutzmeldung

Betrifft: Blattschutzmeldung von: Andi
Geschrieben am: 13.08.2004 09:45:20

Morgen,

gibt es eine Möglichkeit die Blattschutzmeldung abzufangen und durch eine eigene zu ersetzen?

Gruß Andreas

  


Betrifft: AW: Blattschutzmeldung von: Ulf
Geschrieben am: 13.08.2004 09:50:28

Nein!

Ulf


  


Betrifft: AW: Blattschutzmeldung von: Andi
Geschrieben am: 13.08.2004 09:54:14

Doch!???

'Den Original-Menüpunkt löschen und an Stelle dessen einen
' Eigenen erzeugen
Sub MeinSchutz()
   Dim cmb As CommandBar
   Dim cbb As CommandBarButton
   Application.CommandBars("Protection").Controls(1).Delete
   Set cmb = Application.CommandBars("Protection")
   Set cbb = Application.CommandBars("Protection").Controls. _
      Add(Type:=msoControlButton)
   Application.CommandBars("Protection").Controls(3).Move Before:=1
   cbb.Caption = "Blatt schützen"
   cbb.OnAction = "Schutz"
End Sub


' Dies ist der neue Code für den Blattschutz
Sub Schutz()
   Dim cmb As CommandBar
   Dim Meldung As String
   Dim PW As String
   Set cmb = Application.CommandBars("Protection")
      If cmb.Controls(1).Caption = "Blatt schützen" Then
         cmb.Controls(1).Caption = "Blattschutz aufheben"
         Application.Dialogs(xlDialogProtectDocument).Show
      ElseIf cmb.Controls(1).Caption = "Blattschutz aufheben" Then
      Meldung = MsgBox("Willst du den Blattschutz wirklich aufheben?", vbYesNo)
         If Meldung = vbNo Then
            Exit Sub
         Else
            cmb.Controls(1).Caption = "Blatt schützen"
            ' Um hier mit Sternchen (*) zu arbeiten, muss ein
            ' entsprechenes UserForm programmiert werden
            PW = InputBox("Blattschutz-Passwort eingeben")
            ActiveSheet.Unprotect Password:=PW
         End If
      End If
End Sub


' Falls du wieder den Original-Menüpunkt haben möchtst,
' kannst du ihn hiermit zurücksetzen
Sub Menu_zuruecksetzen()
   Application.CommandBars("Protection").Reset
End Sub


Gruß Andi


  


Betrifft: AW: Blattschutzmeldung von: Ulf
Geschrieben am: 13.08.2004 10:01:35

Was hat das mit der Frage zu tun?

Ulf