Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.09.2013 21:35:24 |
Klaus |
|
|
|
16.09.2013 23:11:06 |
Neuhäusler Korbinian |
|
|
|
16.09.2013 23:38:41 |
Klaus |
|
|
|
16.09.2013 23:48:51 |
Klaus |
|
|
|
17.09.2013 17:05:42 |
Neuhäusler Korbinian |
|
|
Alle Excel Arbeitsblätter mit Passwort schützen außer dem Ersten |
17.09.2013 19:39:21 |
klaus |
|
|
|
17.09.2013 20:12:42 |
Neuhäusler Korbinian |
|
|
Von:
klaus |
Datum:
17.09.2013 19:39:21 |
Views:
785 |
Rating:
|
Antwort:
|
Thema:
Alle Excel Arbeitsblätter mit Passwort schützen außer dem Ersten |
Hallo,
vielen Dank für deine Mühe, dass ist schon ziemlich nahe dran an meiner Lösung.
Aktuell sieht mein Code so aus
Option Explicit
Private Sub encryptit()
Dim i As Integer
For i = 2 To ThisWorkbook.Worksheets.Count
On Error GoTo 1:
Worksheets(i).Visible = False
Next i
ActiveWorkbook.Protect Password:="ABC"
Exit Sub
1:
Exit Sub
End Sub
Private Sub decryptit()
Dim Sh As Worksheet
ActiveWorkbook.Unprotect Password
For Each Sh In Worksheets
Sh.Visible = xlSheetVisible
Next Sh
End Sub
Public Sub BlattSchuetzen()
encryptit
End Sub
Public Sub BlattschutzEntfernen()
decryptit
End Sub
Damit nun nicht irgendwer einfach den Macroeditor aufruft und sich das hardcodedte Passwort anschaut, habe ich die Projekteigenschaften auch mit einem Passwort geschützt
Gibt es nun noch eine möglichkeit die decryptroutine so aufzurufen das nach einem Passwort gefragt wird statt das hardcoded in den Text zu schreiben?
(sonst macht das ja keinen Sinn)
Gruß
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
16.09.2013 23:11:06 |
Neuhäusler Korbinian |
|
|
|
16.09.2013 23:38:41 |
Klaus |
|
|
|
16.09.2013 23:48:51 |
Klaus |
|
|
|
17.09.2013 17:05:42 |
Neuhäusler Korbinian |
|
|
Alle Excel Arbeitsblätter mit Passwort schützen außer dem Ersten |
17.09.2013 19:39:21 |
klaus |
|
|
|
17.09.2013 20:12:42 |
Neuhäusler Korbinian |
|
|