Blattschutz per VBA

Hallo Zusammen
Leider kann ich die Datei nicht hochladen, da sie ca.420 KB gross ist in einer ZIP. gibt es da andere Möglichkeiten?
ich komme nicht weiter mit dem Blattschutz meiner Pendenzenliste.
Mit dem normalen Blattschutz funktionieren diverse Funktionen nicht.
Auch Funktioniert es nicht wenn per VBA das Blatt automatisch Sperre und entsperre...
Der Blattschutz benötige ich aus dem Grund, dass zu viele Personen Zugriff auf die Mappe haben und ev. Formatierungen usw. unbeabsichtigt ändern ohne dies zu bemerken...
ich habe 4 Buttons die noch funktionieren müssten einige Formeln in den Zellen, Wenige VBA Codes und eine Formatierte Tabelle welche mir am meisten mühe bereitet.
Mein Wunsch wäre dass "B4", "K2:L2", alle vier Buttons und Die Spalten
B7:B;D7:D;E7:E;F7:F;G7:G;H7:H;I7:I;K7:K;L7:L;N7:N in der Tabelle weiterhin bearbeitbar sind.
Zudem muss die Formatierte Tabelle ihre Funktion behalten!
ich hoffe das ich mich verständlich ausgedrückt habe und dass mir jemand weiterhelfen kann
mfg simon

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Uwe
Wenn ich den Code wie folgt eingebe, ist alles soweit i.O und funktioniert wie ich mir dies vorstelle, jedoch wird meine formatierte Tabelle("als Tabelle formatieren") nicht automatisch weitergeführt...
gibt es da eine Möglichkeit?

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Pendenzen").Protect Password:="ABC"
If Target.Count > 1 Then Exit Sub
'Code der die Nummerierung wiedergibt
If Target.Column = 2 And Target.Row >= 7 Then
'Code der die Nummerierung berechnet
Range("A7:A" & Target.Row).FormulaR1C1 = "=IF(RC[1]"""",COUNTA(R7C2:RC2),"""") _
'Code der den Username wiedergibt
Application.EnableEvents = False
Cells(Target.Row, 13).Value = Application.UserName
Application.EnableEvents = True
ElseIf Target.Column = 14 And Target.Row >= 7 Then
If UCase(Target.Value) = "X" Then Rows(Target.Row).Hidden = True
Sheets("Pendenzen").Unprotect Password:="ABC"
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Sheets("Pendenzen").unProtect Password:="ABC" If Target.Count > 1 Then Exit Sub 'Code der die Nummerierung wiedergibt If Target.Column = 2 And Target.Row >= 7 Then 'Code der die Nummerierung berechnet Range("A7:A" & Target.Row).FormulaR1C1 = "=IF(RC[1]"""",COUNTA(R7C2:RC2),"""") _ _ 'Code der den Username wiedergibt Application.EnableEvents = False Cells(Target.Row, 13).Value = Application.UserName Application.EnableEvents = True ElseIf Target.Column = 14 And Target.Row >= 7 Then If UCase(Target.Value) = "X" Then Rows(Target.Row).Hidden = True Sheets("Pendenzen").protect Password:="ABC" End If End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread