06.06.2020, 20:16
Hallo Zusammen.
bei mir taucht trotz aufgehobenen Blattschutz die Meldung auf " Die Zelle oder das Diagramm das Sie ändern möchten befindet sich auf einen schreibgeschützten Blatt. Um Änderungen vorzunehmen heben Sie den schutz auf. Möglicherweise werden Sie aufgefordert ein Kennwort einzugeben."
Diese Meldung kommt zweimal obwohl der Code den Blattschutz aufhebt. Den Code für den Blattschutz habe ich auch dran gehängt.
Der Code wird aber trotzdem richtig ausgeführt.
Wisst ihr wie man diese Meldung vermeiden kann?
bei mir taucht trotz aufgehobenen Blattschutz die Meldung auf " Die Zelle oder das Diagramm das Sie ändern möchten befindet sich auf einen schreibgeschützten Blatt. Um Änderungen vorzunehmen heben Sie den schutz auf. Möglicherweise werden Sie aufgefordert ein Kennwort einzugeben."
Diese Meldung kommt zweimal obwohl der Code den Blattschutz aufhebt. Den Code für den Blattschutz habe ich auch dran gehängt.
Der Code wird aber trotzdem richtig ausgeführt.
Wisst ihr wie man diese Meldung vermeiden kann?
Code:
Private Sub ComboBox8_Change()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
Blattschutz_aufheben ActiveSheet.Name
Call Jahre_variablen_definieren
If Me.ComboBox8.Value = "Gesamt" Then
'Call Zeilen_ausblenden_Stationsblatt_Gesamt
ActiveSheet.Rows("21:" & 24).EntireRow.Hidden = False
ActiveSheet.Rows("25:" & 43).EntireRow.Hidden = True
End If
If Me.ComboBox8.Value = "Alle" Then
If Frz_Jahre = 1 Then
ActiveSheet.Rows("21:" & 28).EntireRow.Hidden = False
ActiveSheet.Rows("29:" & 43).EntireRow.Hidden = True
End If
If Frz_Jahre = 2 Then
ActiveSheet.Rows("21:" & 32).EntireRow.Hidden = False
ActiveSheet.Rows("33:" & 43).EntireRow.Hidden = True
End If
If Frz_Jahre = 3 Then
ActiveSheet.Rows("21:" & 36).EntireRow.Hidden = False
ActiveSheet.Rows("37:" & 43).EntireRow.Hidden = True
End If
If Frz_Jahre = 4 Then
ActiveSheet.Rows("21:" & 40).EntireRow.Hidden = False
ActiveSheet.Rows("41:" & 43).EntireRow.Hidden = True
End If
If Frz_Jahre = 5 Then
ActiveSheet.Rows("21:" & 43).EntireRow.Hidden = False
End If
'Call Zeilen_ausblenden_Stationsblatt_Alle
End If
If Me.ComboBox8.Value = Jahr1 Then
ActiveSheet.Rows("21:" & 24).EntireRow.Hidden = True
ActiveSheet.Rows("25:" & 28).EntireRow.Hidden = False
ActiveSheet.Rows("29:" & 43).EntireRow.Hidden = True
'Call Zeilen_ausblenden_Stationsblatt_Jahr1
End If
If Me.ComboBox8.Value = Jahr2 Then
ActiveSheet.Rows("21:" & 28).EntireRow.Hidden = True
ActiveSheet.Rows("29:" & 32).EntireRow.Hidden = False
ActiveSheet.Rows("33:" & 43).EntireRow.Hidden = True
'Call Zeilen_ausblenden_Stationsblatt_Jahr2
End If
If Me.ComboBox8.Value = Jahr3 Then
ActiveSheet.Rows("21:" & 32).EntireRow.Hidden = True
ActiveSheet.Rows("33:" & 36).EntireRow.Hidden = False
ActiveSheet.Rows("37:" & 43).EntireRow.Hidden = True
'Call Zeilen_ausblenden_Stationsblatt_Jahr3
End If
If Me.ComboBox8.Value = Jahr4 Then
ActiveSheet.Rows("21:" & 36).EntireRow.Hidden = True
ActiveSheet.Rows("37:" & 40).EntireRow.Hidden = False
ActiveSheet.Rows("41:" & 43).EntireRow.Hidden = True
'Call Zeilen_ausblenden_Stationsblatt_Jahr4
End If
If Me.ComboBox8.Value = Jahr5 Then
ActiveSheet.Rows("21:" & 40).EntireRow.Hidden = True
ActiveSheet.Rows("41:" & 43).EntireRow.Hidden = False
'Call Zeilen_ausblenden_Stationsblatt_Jahr5
End If
'Combobox_Werte_richtigstellen
Blatt_schützen ActiveSheet.Name
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub
Sub Blatt_schützen(ByVal strName As String)
Code:
With ThisWorkbook.Worksheets(strName)
Code:
.Protect Password:="TEF14", UserInterfaceOnly:=True, AllowFiltering:=True
Code:
.EnableOutlining = True
Code:
End With
Code:
End Sub
Code:
Sub Blattschutz_aufheben(ByVal strName As String)
Code:
ThisWorkbook.Worksheets(strName).Unprotect Password:="TEF14"
Code:
End Sub