Hallo Excel Freund
Ich habe mich mal im Internet umgeschaut und folgendes Makro Gefunden: von einem anderem Beitrag:
Das Makro ist in dem Tabellen Ordner wo es benutzt wird.
Ich habe es für meine Zwecke geändert und es geht.
Aber was jetzt immer Passiert ist das wenn ich auf einem Anderem Tabellen Blatt Arbeite tut sich die Tabelle Sperren.
Was kann ich tun das, das nicht passiert?
Bitte um Hilfe!
LG BD
Ich habe mich mal im Internet umgeschaut und folgendes Makro Gefunden: von einem anderem Beitrag:
Das Makro ist in dem Tabellen Ordner wo es benutzt wird.
Code:
Private Sub Worksheet_Calculate()
Dim A As Integer
A = Range("D6").Value
On Error GoTo Ende
Application.EnableEvents = False
ActiveSheet.Unprotect Password:="Geheim"
Cells.Locked = True
Select Case A
Case 0
Range("F6").Locked = False
Case 1
Range("F8, F6").Locked = False
Range("F8").Select
Case 2
Range("F8, F6, F9:G9").Locked = False
Range("F9:G9").Select
Case 3
Range("F8, F6, F9:G9, I6:J8, I9:L9, M6, E11:E130, I11:I130").Locked = False
End Select
Ende:
ActiveSheet.Protect Password:="Geheim", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.EnableEvents = True
End Sub
Aber was jetzt immer Passiert ist das wenn ich auf einem Anderem Tabellen Blatt Arbeite tut sich die Tabelle Sperren.
Was kann ich tun das, das nicht passiert?
Bitte um Hilfe!
LG BD