Thema Datum  Von Nutzer Rating
Antwort
05.11.2021 06:51:02 Ropholos
NotSolved
05.11.2021 10:49:09 Gast95843
NotSolved
Rot Alle Blätter Kennwortschutz
 05.11.2021 11:20:15 Nobody
NotSolved
05.11.2021 13:29:10 Ropholos
NotSolved
05.11.2021 18:08:43 Nobody
NotSolved
05.11.2021 18:41:41 Nobody
NotSolved

Ansicht des Beitrags:
Von:
Nobody		 Datum:
05.11.2021 11:20:15		 Views:
605		 Rating:
     
Antwort:
  Ja
Thema:
Alle Blätter Kennwortschutz

Hallo

die Lösung mit For Next ist richtig, ich glaube aber nicht das der Frager den Code selbst entwickeln kann. Man beachte die Fehlerroutine!!  Ich benutze die With Klammer, da klappt der Befehl On Error Goto Fehler nicht mehr.

mfg Nobody

Private Sub CommandButton1_Click()
On Error Resume Next
For i = 1 To Worksheets.Count
With Worksheets(i)
    If .ProtectContents = False Then GoTo nx
    .Unprotect
    .CommandButton2.Visible = True
    .CommandButton3.Visible = True
    .CommandButton4.Visible = True
    If Err > 0 Then
nx:     Err.Clear
       .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
         AllowSorting:=True, AllowFiltering:=True, Password:=("test")
       .CommandButton2.Visible = False
       .CommandButton3.Visible = False
       .CommandButton4.Visible = False
    End If
End With
Next i
On Error GoTo 0
End Sub

 

 

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
05.11.2021 06:51:02 Ropholos
NotSolved
05.11.2021 10:49:09 Gast95843
NotSolved
Rot Alle Blätter Kennwortschutz
 05.11.2021 11:20:15 Nobody
NotSolved
05.11.2021 13:29:10 Ropholos
NotSolved
05.11.2021 18:08:43 Nobody
NotSolved
05.11.2021 18:41:41 Nobody
NotSolved