Protect und Unprotect aber nicht für alle TB
06.10.2006 17:11:13
Josef
komme nicht mehr weiter, weil meine VBA Kentnisse einfach zu schlecht sind.
Kann mir bitte jemand von euch Profis dabei behilflich sein?
Mein Prob.:
Mit unten stehenden Modulen, schütze und entschütze? ich alle TB. Beim entschützen (Unprotect) möchte ich aber das das 2.TB geschützt bleibt. Dieses 2. TB soll von Hand über EXTRAS/Schutz entschützt werden. Wenn dieses Blatt verlassen wird, soll sofort wieder PROTECT greifen. Ist so etwas zu realisieren?
Diese Arbeitsmappe:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Protect "solar"
Next wks
ThisWorkbook.Save
End Sub
Modul:
Private Sub txtPassword_Change()
Dim wks As Worksheet
If Len(txtPassword.Text) = 5 Then
If txtPassword = "solar" Then
For Each wks In Worksheets
wks.Unprotect "solar"
Unload Me
Next wks
Else
MsgBox "War wohl nix!"
txtPassword.Text = ""
End If
End If
End Sub
Danke schon mal im Voraus
Gruß Josef