Toggle Button mit drei zustände.

[Niko]

eureka, eureka :23:

jetzt funkts wie ich es möchte

Code:

Private Sub ToggleButton1_Change()
 ActiveWorkbook.ActiveSheet.Unprotect ("1234")
 Dim xAddress As String
xAddress = "I:M"
 ActiveSheet.Range("E13:E23, F13:F23").Cells.Locked = True
 ActiveSheet.Range("J4:J23, K4:K23").Cells.Locked = True

 If IsNull(ToggleButton1.Value) Then
 Application.ActiveSheet.Columns(xAddress).Hidden = True
   ActiveSheet.Shapes("Textfeld 18").Visible = False
   ActiveSheet.Shapes("Grafik 25").Visible = False
   ActiveSheet.Range("E13:E23, F13:F23").Cells.Locked = False
   ActiveSheet.Range("J4:J23, K4:K23").Cells.Locked = True
   ToggleButton1.Caption = "Middle Picture"

 ElseIf ToggleButton1.Value = False Then
 Application.ActiveSheet.Columns(xAddress).Hidden = True
   ActiveSheet.Shapes("Textfeld 18").Visible = True
   ActiveSheet.Shapes("Grafik 25").Visible = True
   ToggleButton1.Caption = "Small Picture"

 ElseIf ToggleButton1.Value = True Then
Application.ActiveSheet.Columns(xAddress).Hidden = false
   ActiveSheet.Shapes("Textfeld 18").Visible = False
   ActiveSheet.Shapes("Grafik 25").Visible = False
ActiveSheet.Range("E13:E23, F13:F23").Cells.Locked = False
   ActiveSheet.Range("J4:J23, K4:K23").Cells.Locked = False
   ToggleButton1.Caption = "Big Picture"

 End If
 ActiveWorkbook.ActiveSheet.Protect ("1234")
End Sub

[snb]

Zu früh

Statt

Code:

ActiveSheet.Range("E13:E23, F13:F23").Cells.Locked = True
 ActiveSheet.Range("J4:J23, K4:K23").Cells.Locked = True

Code:

ActiveSheet.Range("E13:F23,J4:K23").Locked = True