Thema Datum  Von Nutzer Rating
Antwort
16.09.2013 21:35:24 Klaus
NotSolved
Blau Alle Excel Arbeitsblätter mit Passwort schützen außer dem Ersten
 16.09.2013 23:11:06 Neuhäusler Korbinian
NotSolved
16.09.2013 23:38:41 Klaus
NotSolved
16.09.2013 23:48:51 Klaus
NotSolved
17.09.2013 17:05:42 Neuhäusler Korbinian
*****
Solved
17.09.2013 19:39:21 klaus
NotSolved
17.09.2013 20:12:42 Neuhäusler Korbinian
NotSolved

Ansicht des Beitrags:
Von:
Neuhäusler Korbinian		 Datum:
16.09.2013 23:11:06		 Views:
837		 Rating:
     
Antwort:
  Ja
Thema:
Alle Excel Arbeitsblätter mit Passwort schützen außer dem Ersten

Bitteschön

 

Option Explicit

Private Sub BlattSchuetzen()
Dim Blatt As Worksheet

For Each Blatt In ThisWorkbook.Worksheets

 If Blatt.CodeName <> "Tabelle1" Then
  Blatt.Protect "Passwort"
 End If

Next Blatt

End Sub

Private Sub BlattSchutzAufheben()
Dim Blatt As Worksheet

For Each Blatt In ThisWorkbook.Worksheets

 If Blatt.CodeName <> "Tabelle1" Then
  Blatt.Unprotect "Passwort"
 End If

Next Blatt

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
16.09.2013 21:35:24 Klaus
NotSolved
Blau Alle Excel Arbeitsblätter mit Passwort schützen außer dem Ersten
 16.09.2013 23:11:06 Neuhäusler Korbinian
NotSolved
16.09.2013 23:38:41 Klaus
NotSolved
16.09.2013 23:48:51 Klaus
NotSolved
17.09.2013 17:05:42 Neuhäusler Korbinian
*****
Solved
17.09.2013 19:39:21 klaus
NotSolved
17.09.2013 20:12:42 Neuhäusler Korbinian
NotSolved