Blattschutz mit VBA aufheben

[Max]

Hi Günter,

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

Gruß
Max

Ich werde noch Editier-König 

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

[Kuwer]

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.

Gruß Uwe

[WillWissen]

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.

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.

[Max]

...
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! 

Gruß
Max

[atilla]

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.

[WillWissen]

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.