Formeln schützen / Arbeitsmappen
Erich
habe folgendes Makro, das in einzelnen Tabellenmodulen funktioniert, mit dem alle
Zellen mit formeln geschützt werden:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim InMldg As Integer
' Variante 2 Zellen mit Formeln schützen
If Target.HasFormula Then
MsgBox "Diese Formel ist absichtlich geschützt", 16, "Warnung"
Application.EnableEvents = False
Cells(6, Target.Column).Select
Application.EnableEvents = True
End If
End Sub
Da die Datei variabel zwischen 30 und 40 Tabellen hat, suche ich eine Möglichkeit, dieses Makro evtl. bei workbook-open einzusetzen und dann
bestimmen kann, für welche Tabellen es nicht gelten soll - dies sind in der Regel
nur zwei bis drei, während für alle anderen Tabellen der Schutz wirken soll.
Geht so was?
Besten Dank für eine Hilfe!
mfg
Erich
Anzeige