26.02.2015, 06:59
Hallo Freunde,
helft mir bitte bei einem kleinen VBA-Problem. Ich habe in meiner Mappe die Blätter "Ausgabe" (dauerhaft sichtbar) und "Daten" (wird per VBA aus- bzw. eingeblendet).
Dazu habe ich folgenden Code (mit Tante Gugls Hilfe) zusammengeschustert:
Mit Doppelklick ("Ausgabe") in Zelle J1 (ist vom Blattschutz ausgenommen) hole ich das ausgeblendete Blatt hervor. Nun muss ich nach Eingaben im Blatt "Daten" noch in einem bestimmten Bereich im Blatt "Ausgabe" Einträge vornehmen . Allerdings wird mir durch das Makro der Blattschutz (noch) nicht aufgehoben.
An welcher Stelle gehört die Codezeile, die den Schutz aufhebt, hin? Und stimmt überhaupt meine Syntax?
helft mir bitte bei einem kleinen VBA-Problem. Ich habe in meiner Mappe die Blätter "Ausgabe" (dauerhaft sichtbar) und "Daten" (wird per VBA aus- bzw. eingeblendet).
Dazu habe ich folgenden Code (mit Tante Gugls Hilfe) zusammengeschustert:
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim raBereich As Range
Set raBereich = Sheets("Ausgabe").Range("J1")
Sheets("Ausgabe").Unprotect Password:="xxx"
If Intersect(Target, raBereich) Is Nothing Then Exit Sub
If Sheets("Daten").Visible = xlVeryHidden Then
Sheets("Daten").Visible = True
Else: Sheets("Daten").Visible = xlVeryHidden
End If
Range("H2").Activate
Sheets("Ausgabe").Protect Password:="xxx"
End Sub
Mit Doppelklick ("Ausgabe") in Zelle J1 (ist vom Blattschutz ausgenommen) hole ich das ausgeblendete Blatt hervor. Nun muss ich nach Eingaben im Blatt "Daten" noch in einem bestimmten Bereich im Blatt "Ausgabe" Einträge vornehmen . Allerdings wird mir durch das Makro der Blattschutz (noch) nicht aufgehoben.
An welcher Stelle gehört die Codezeile, die den Schutz aufhebt, hin? Und stimmt überhaupt meine Syntax?
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)