Thema Datum  Von Nutzer Rating
Antwort
16.09.2013 21:35:24 Klaus
NotSolved
16.09.2013 23:11:06 Neuhäusler Korbinian
NotSolved
Rot Alle Excel Arbeitsblätter mit Passwort schützen außer dem Ersten
 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:
Klaus		 Datum:
16.09.2013 23:38:41		 Views:
1054		 Rating:
     
Antwort:
  Ja
Thema:
Alle Excel Arbeitsblätter mit Passwort schützen außer dem Ersten

Hi,

 

vielen Dank schonmal.

 

Kannst Du mir vielleicht noch beantworten warum mein blutiger Versuch nicht geklappt hat?

Eigentlich habe ich mir angeblich funktionierende Snippets zusammen geklaut

Wie gesagt Ziel des Spiels

1) das erste Blatt soll bleiben wie es ist

2) alles danach nur über ein Passwort zugänglich

 

Private Sub encryptit()

  ' Set WS_Count equal to the number of worksheets in the active
         ' workbook.
         WS_Count = ActiveWorkbook.Worksheets.Count

         ' Begin the loop.
         For I = 2 To WS_Count
             Worksheets(I).Visible = False
             Worksheets(I).Protect Password:="ABC", CONTENTS:=False
             ActiveWorkbook.Protect Password:="ABC"
        Next I
        Application.ScreenUpdating = True
End Sub

Grüße

 

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
16.09.2013 23:11:06 Neuhäusler Korbinian
NotSolved
Rot Alle Excel Arbeitsblätter mit Passwort schützen außer dem Ersten
 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