Herbers Excel-Forum - das Archiv

Passwortschutz bestimmter Zellen

Bild

Betrifft: Passwortschutz bestimmter Zellen
von: Christoph

Geschrieben am: 13.04.2005 11:01:23
Hi Leute,
wie kann ich denn mit VBA bestimmte Zellenbereiche in meinen Arbeitsblättern vor Veränderungen schützen?
Grus
Christoph
Bild

Betrifft: AW: Passwortschutz bestimmter Zellen
von: Erich M.

Geschrieben am: 13.04.2005 11:09:21
Hallo Christoph,
diverse Ansätze:
Sub Zellenschützen()
' Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim InMldg As Integer
' Variante 1 Zellbereiche auswählen und schützen
If Target.Row <= 5 And Target.Column <= 17 Then
MsgBox "In diesem Bereich dürfen keine Änderungen stattfinden", 16, "Warnung"
Application.EnableEvents = False
Cells(6, Target.Column).Select
Application.EnableEvents = True
End If
' 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
' Variante 3 Zellen ohne Farbe schützen
If Application.ActiveCell.Interior.ColorIndex = xlNone Then
MsgBox "Eingabe ist nur in farblicher zelle möglich", 16, "Warnung"
Application.EnableEvents = False
Cells(6, Target.Column).Select
Application.EnableEvents = True
End If
' Variante 4 Zelle ohne Farbe schützen, Aufforderung ändern ja/nein
If Application.ActiveCell.Interior.ColorIndex = 1 Then
InMldg = MsgBox("Wollen Sie die Formel ändern", vbYesNo + vbQuestion, "Formelabfrage ?", "", 0)
If InMldg = 6 Then Exit Sub
' kann auch weggelassen werden
Target.Offset(0, 1).Select
End If
End Sub

' Bestimmung für welche Tabellenblätter der Schutz gelten soll
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
''Die Blätter, die ausgenommen werden sollen-----------
'If Sh.Name <> "Tabelle1" And Sh.Name <> "Tabelle2" Then
''-----------------------------------------------------
If Target.HasFormula Then
MsgBox "Diese Formel ist absichtlich geschützt", 16, "Warnung"
On Error GoTo errhandler
Application.EnableEvents = False
' kann auch weggelassen werden
' Cells(6, Target.Column).Select

End If

'End If
errhandler:
Application.EnableEvents = True
End Sub

Code eingefügt mit: Excel Code Jeanie
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
EXCEL und Lottogewinne machen glücklich: http://48678.rapidforum.com
 Bild
Excel-Beispiele zum Thema "Passwortschutz bestimmter Zellen"
Zeile löschen, wenn ein bestimmter Wert vorkommt Kommentarfenster in bestimmter Größe erstellen
Hintergrundfarbe einer Zeile, wenn bestimmter Wert in 1 Zelle Makros in Abhängigkeit vom Zellennamen aufrufen
Zellen auf Kommentar überprüfen Spalten bedingt summieren und Zellen formatieren
Text aus Textbox in Zellen aufteilen Zellen vergleichen und markieren
Zählen formatierter Zellen Daten aus Textdatei gezielt in Zellen übernehmen