Thema Datum  Von Nutzer Rating
Antwort
12.09.2017 10:00:06 Fey
NotSolved
Blau Excel automatisch schreibgeschützt öffnen und bei code-eingabe schreibschutz entfernen
 12.09.2017 13:00:20 SJ
NotSolved

Ansicht des Beitrags:
Von:
SJ		 Datum:
12.09.2017 13:00:20		 Views:
503		 Rating:
     
Antwort:
  Ja
Thema:
Excel automatisch schreibgeschützt öffnen und bei code-eingabe schreibschutz entfernen

Hallo,

ich weiß zwar nicht, warum du die Tabellenblätter schützen möchtest, wenn die Excel Anwenung sowieso nicht zu sehen ist, jedoch funktioniert es wie folgt:

UserForm1:

Option Explicit

Private Const PASSWORD As String = "passwort"
Private Const PW_PROTECT As String = ""
Private blnUnlocked As Boolean

Private Sub CommandButton1_Click()
    If Me.TextBox1.Value = PASSWORD Then
        blnUnlocked = True
        Unload Me
    End If
End Sub

Private Sub UserForm_Initialize()
    Dim wks As Worksheet
    For Each wks In ThisWorkbook.Worksheets
        wks.Protect PW_PROTECT
    Next
    Application.Visible = False
End Sub

Private Sub UserForm_Terminate()
    Application.Visible = True
    
    If blnUnlocked Then
        Dim wks As Worksheet
        For Each wks In ThisWorkbook.Worksheets
            wks.Unprotect PW_PROTECT
        Next
    Else
        MsgBox "Falsches Passwort.", vbExclamation
        ThisWorkbook.Save
        Application.Quit
    End If
End Sub

DieseArbeitsmappe:

Option Explicit

Private Sub Workbook_Open()
    Dim f As New UserForm1
    f.Show vbModeless
End Sub

Viele 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
12.09.2017 10:00:06 Fey
NotSolved
Blau Excel automatisch schreibgeschützt öffnen und bei code-eingabe schreibschutz entfernen
 12.09.2017 13:00:20 SJ
NotSolved