Blattschutz auch bei Formeln aufheben
19.05.2008 19:13:01
Toni
irgendwo habe ich das folgende Makro gesehen.
Es funktioniert tadellos - sobald man auf eine Zelle mit einer Formel klickt, wird die Tabelle "geschützt".
Nun wollte ich das Makro etwas verfeinern!
Wenn mein Chef und ich, die Tabelle(n) modifzieren wollen,
so soll er und ich einfach mit der PasswortEingabe über eine Input-Box "Bayern" den Schutz aufheben.
Warum wird der Schutz nicht aufgehoben, was habe ich hier nicht richtig gemacht.
Danke für Hilfe.
Toni
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Zelle As Range
If FGPassw "Bayern" Then
For Each Zelle In Target.Cells
If Zelle.HasFormula Then
ActiveSheet.Protect
Exit Sub
Else
ActiveSheet.Unprotect
End If
Next Zelle
Else
End If
End Sub
Sub Freigabe_Passwort()
Dim FGPassw As String
FGPassw = InputBox("Freigabe-Passwort eingeben! ")
End Sub