Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Blattschutz mit VBA aufheben
#21
Hi Günter,

ich musste meinen Edit noch ergänzen (s.o.).
Schande über mich :100: .

Gruß
Max

Ich werde noch Editier-König  Blush

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Doppelklick im Sheet "Ausgabe" von Uwe

If Target.Address = "$J$1" Then
 If Sheets("Daten").Visible = True Then
   Sheets("Daten").Visible = xlVeryHidden
   Me.Unprotect 'Password:="xxx"
 Else
   Sheets("Daten").Visible = True
   Me.Protect Password:="xxx"
   Me.Range("H2").Activate
 End If
 Cancel = True
End If
End Sub
Antworten Top
#22
(27.02.2015, 21:17)Max schrieb: Hallo Günter,

bei mir läuft das Makro auch mit folgender Zeile ohne Fehlermeldung


Code:
Me.Range("H2").Activate

Hi Max, bei mir auch. Wink

Gruß Uwe
Antworten Top
#23
(27.02.2015, 21:33)Kuwer schrieb:
(27.02.2015, 21:17)Max schrieb: Hallo Günter,

bei mir läuft das Makro auch mit folgender Zeile ohne Fehlermeldung




Code:
Me.Range("H2").Activate

Hi Max, bei mir auch. Wink

Gruß Uwe


Tja, Max und Uwe, was soll ich sagen? Bei mir auch! Jetzt! Denn ich habe meine Probleme nur mit "Range("H2").Activate" gehabt - das "Me" habe ich aus Spargründen weggelassen. ;) Im Ernst, das war weiter oben ja ein Teil meiner Frage, wieso diese Anweisung nicht ohne ME ausgeführt wird. Ich meine, es in der erstgenannten Schreibweise schon gesehen zu haben.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#24
(27.02.2015, 21:17)Max schrieb: ...
Was ich allerdings nicht verstehe ist, warum Du für ein Blatt "xlVeryHidden" noch einen Blattschutz vergibst?
...

Ich muss echt genauer hinschauen!
Vergesst das mal wieder ganz schnell.
Bin im Keller mich schämen! Blush

Gruß
Max
Antworten Top
#25
Hallo Günter,


Code:
Range("H2").Activate
 geht auch und dürfte keinen Fehler verursachen.

Hast Du vielleicht versehentlich ein Punkt vor Range gehabt?

so:

Code:
.Range("H2").Activate
Das ginge in diesem Fall nicht. Dann müsste eine With Anweisung vorhanden sein.


Bei Protect und Unprotect muss aber "Me" oder "Activesheet" stehen.
Gruß Atilla
Antworten Top
#26
Hi Atilla,

danke, das war der leichte Schlag auf den Hinterkopf, der mein Denkvermögen wieder anspornte. Klar, ohne me, dafür aber mit Punkt und With.... So hatte ich  das schon mal gesehen und auch verwendet.

Dann ist meine Anfrage restlos beantwortet und ich kann das Thema beruhigt schließen.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste