Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code zusammenfügen

Code zusammenfügen
20.08.2006 14:51:31
Dirk
Hallo an alle VBA-Kenner,
habe hier im Forum folgende 2 Codes gefunden.
Ziel ist es, mittels CommandButton alle Blätter der Mappe mit Blattschutz (ohne PW) zu versehen, wobei der CB dann grün sein soll mit der Aufschrift "Freigabe".
Bei nochmaligen Klicken sollen alle Blätter ENTschützt werden u. der CB soll rot werden mit der Aufschrift "Sperren".
Leider scheint im 1. Code ein Fehler zu stecken - funzt nicht - und ich bekomme es auch nicht gebacken, beide Codes zu vereinen.
1. Blattschutz an/aus (leider fehlerhaft)

Private Sub CommandButton1_Click()
Dim objWs As Worksheet
Dim blnProtect As Boolean
blnProtect = CommandButton1.Caption = "Freigabe"
Application.ScreenUpdating = False
For Each objWs In ThisWorkbook.Worksheets
If blnProtect Then
objWs.Protect
Else
objWs.Unprotect
End If
Next
CommandButton1.Caption = IIf(blnProtect, "Freigabe", "Sperren")
Application.ScreenUpdating = True
End Sub

2. Farbänderung (verbunden mit Änd. der Aufschrift)
' With Me.CommandButton1
' If .Value = False Then
' .Caption = "Freigabe"
' .BackColor = &HC000&
' Me.Frame2.Enabled = True
' Else
' .BackColor = &HFF&
' .Caption = "Sperren"
' Me.Frame2.Enabled = False
' End If
' End With
Wie habe ich kürzlich hier im Forum gelesen: Ich werde alle Helfer in mein Abendgebet einschliessen... ;-)
MfG Dirk N.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code zusammenfügen
20.08.2006 15:42:55
chris
Hallo Dirk, habe deinen code etwas abgeändert ich hoffe er funtioniert jetzt wie du es wolltest? Rückmeldung wäre nett.
Gruß Chris
Option Explicit

Private Sub CommandButton1_Click()
Dim objWs As Worksheet
Dim x As Boolean
Dim blnProtect As Boolean
Application.ScreenUpdating = False
For Each objWs In ThisWorkbook.Worksheets
If objWs.ProtectContents = False Then
objWs.Protect
x = True
Else
objWs.Unprotect
x = False
End If
Next
If x = False Then
CommandButton1.Caption = "Sperren"
CommandButton1.BackColor = &HFF&
Else
CommandButton1.Caption = "Freigabe"
CommandButton1.BackColor = &HC000&
End If
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Code zusammenfügen
20.08.2006 15:50:41
Dirk
Hallo Chris ("GROSSMASTER B"),
funzt absolut perfekt - VIELEN DANK für die schnelle Hilfe bei dieser Schönheits-OP !!!
Wünsche dir noch einen schönen Sonntag.
MfG Dirk N.
AW: Code zusammenfügen
20.08.2006 16:02:39
Dirk
Hallo Chris,
noch eine kl. Nachfrage:
Wie ist es möglich, einen CommandButton MEHRZEILIG zu beschriften?
MfG Dirk N.
AW: Code zusammenfügen
20.08.2006 16:12:18
chris
Hallo Dirk,
das geht mit der
WordWrap-Eigenschaft
"Gibt an, ob der Inhalt eines Steuerelements am Zeilenende automatisch umbrochen wird."
Also umstellen auf true in den Eigenschaften des Commandbuttons.
Dann wird dein Text automatisch umbegrochen wqenn die 1 Zeile gefüllt ist.
Klapps ?
Anzeige
AW: Code zusammenfügen
20.08.2006 16:20:32
Dirk
Hi Chris,
ich versinke im Boden - ich muß wohl auch meine Englischkenntnisse aufbessern...
Klappt SUPER - danke für deine Geduld - nun ist mein Sonntag gerettet. ;-)
MfG Dirk N.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige