Thema Datum  Von Nutzer Rating
Antwort
05.11.2021 06:51:02 Ropholos
NotSolved
05.11.2021 10:49:09 Gast95843
NotSolved
05.11.2021 11:20:15 Nobody
NotSolved
05.11.2021 13:29:10 Ropholos
NotSolved
Rot Alle Blätter Kennwortschutz
 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 18:08:43		 Views:
545		 Rating:
     
Antwort:
  Ja
Thema:
Alle Blätter Kennwortschutz

Hallo

der Code NUR zum Sperren lautet wie unten.  Dann solltest du bitte einen zweiten Button nehmen um alle Tabellen zu sperren.  Oder man müsste im Code eine InputBox einbauen die abfragt was du machen willst:  Sperren oder Entsperren.  Der Button kann das nicht wiessen!!

mfg Nobody

Private Sub CommandButton1_Click()
On Error Resume Next
For i = 1 To Worksheets.Count
With Worksheets(i)
     .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
      AllowSorting:=True, AllowFiltering:=True, Password:=("test")
      .CommandButton2.Visible = False
      .CommandButton3.Visible = False
      .CommandButton4.Visible = False
End With
Next i
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
05.11.2021 11:20:15 Nobody
NotSolved
05.11.2021 13:29:10 Ropholos
NotSolved
Rot Alle Blätter Kennwortschutz
 05.11.2021 18:08:43 Nobody
NotSolved
05.11.2021 18:41:41 Nobody
NotSolved